ارجو تعديل بسيط فى كود جمع على حسب لون الخلية

[zarouki2000]

اعضاء المنتدى الافاضل السلام عليكم ورحمة الله و بركاته

لرجو المساعدة فما هو مرفق داخل الملف بارك الله فيكم و فتح عليكم بوافر العلم

فى امان الله

Book1.zip

[zarouki2000]

السلام عليكم

اذا كان تعديل هذا الكود غير ممكن هل ممكن التكرم على بحل بديل

جزاكم الله خيرا

[رجب جاويش]

السلام عليكم

أخى الفاضل

جرب هذا الملف ربما يفى بالغرض

الجمع بالالوان.rar

[zarouki2000]

الاخ الفاضل رجب جاويش بارك الله فيك على سرعة المساعدة

للاسف المطلوب هو جمع الخلايا بلون معين و ليكن الاصفر 6 بشرط ان يكون ناتج عن تنسيق شرطى و ليس تلوين يدوى للخلية

بارك الله فيك و اتمنى ان اجد الحل سريعا لشدة حاجتى اليه

تم تعديل ديسمبر 15, 2012 بواسطه zarouki2000

[الـعيدروس]

السلام عليكم

جرب هذه المعادلة المركبه

إستخدامها كالتالي

=Ali_Cond(TAM;"";6)

المعيار الاول المدى المعيار الثاني رقم اللون المعيار الثالث شرط جمع الفارغه ام التي بها بيانات

Public Function Ali_Cond(ByVal My_r As Range, Cond As String, Nu_Colr As Long) As Long

Dim R As Range

Dim Ali_c As FormatConditions

Dim A_Dou As Double

A_Dou = 0

For Each R In My_r

Set Ali_c = R.FormatConditions

Select Case Ali_c(1).Interior.ColorIndex

	   Case Is = Nu_Colr And IIf(Cond = "", R.Text = Cond, R.Text > "")

	   If R.Interior.ColorIndex = Nu_Colr Then A_Dou = A_Dou + 1

End Select

Next

Ali_Cond = A_Dou

End Function

ارجو التجربه

تم تعديل ديسمبر 15, 2012 بواسطه عباد

[zarouki2000]

الاخ الفاضل العبقرى ابو نصار بارك الله فيك تم تجربه المرفق و اعطى نتيجة عكس كل الاكواد التى جربتها سابقا و التى لم تعطى اى عدد لكن للاسف نتيجة خاطئة

اسف على الازعاج و جعله الله فى ميزان حسناتك

تم تعديل ديسمبر 15, 2012 بواسطه zarouki2000

[الـعيدروس]

ارجو منك ارفاق المثال

وبه نتائج ماتريد

كي اعرف طلبك بالشكل الصحيح

تقبل تحياتي

[zarouki2000]

السلام عليكم و رحمة الله و بركاته

تفضل اخى الفاضل مع الوضع فى الاعتبار حذفت بعض الاوراق لسهولة الرفه و باسورد الاكواد 77

انعم الله عليك بموفور الصحة و رغد العيش و جنة الفردوس

امييييييييييين

xx.zip

[الـعيدروس]

اخي الفاضل zarouki2000

الظاهر نسخت الكود قبل التعديل الاخير

ملاحظة مسمى t ليس به اي خليه لونها اصفر

اذا نتيجة المعادلة بتكون = 0

انسخ الكود التالي او الذي في المشاركة السابقة

في انتظار ردك

Public Function Ali_Cond(ByVal My_r As Range, Cond As String, Nu_Colr As Long) As Long

Dim R As Range

Dim Ali_c As FormatConditions

Dim A_Dou As Double

A_Dou = 0

For Each R In My_r

Set Ali_c = R.FormatConditions

Select Case Ali_c(1).Interior.ColorIndex

	   Case Is = Nu_Colr And IIf(Cond = "", R.Text = Cond, R.Text > "")

	   If R.Interior.ColorIndex = Nu_Colr Then A_Dou = A_Dou + 1

End Select

Next

Ali_Cond = A_Dou

End Function

[ياسر خليل أبو البراء]

الأخ الحبيب عباد

ممكن ترفق ملف كمثال للدالة التي قمت بها - بعد إذنك - لأني حاولت أجربها ولكنها لم تلفح معي بالمرة

[zarouki2000]

استاذنا ابو نصار تم نسخ الكود الاخير كما بالمرفق لكن عذرا اخى الحبيب فالنطاق ## t يحتوى على خليه لونها اصفر هى C29

لذا المفترض ان يكون نا تج الجمع هو 1 فى الخلية C41 ## التى بها المعادلة و ليس 0 و بالمثل للعمود المجاور له

xx.zip

[الـعيدروس]

عذرا تأكدت من الدالة بها خطاء

جرب هذا التعديل

Public Function Ali_Cond(ByVal My_r As Range, Cond As String, Nu_Colr As Long) As Long

Dim R As Range

Dim F_A As WorksheetFunction

Dim Ali_c As FormatConditions

Dim A_Dou As Double

A_Dou = 0

Set F_A = Application.WorksheetFunction

Debug.Print F_A.CountA(My_r)

For Each R In My_r

Set Ali_c = R.FormatConditions

Select Case Ali_c(1).Interior.ColorIndex

		   Case Is = Nu_Colr And IIf(Cond = "", R.Text = Cond, R.Text <> "")

		   If F_A.CountA(My_r) = 0 And Cond = "" Then GoTo 0

		   If F_A.CountA(My_r) > 0 And Cond = "" Then GoTo 0

		   A_Dou = A_Dou + 1

End Select

0

Next

Ali_Cond = A_Dou

End Function

تم تعديل ديسمبر 15, 2012 بواسطه عباد

[الـعيدروس]

الاخ الحبيب يوسف خليل

الكود يعمل على 2007 ومافوق للمعلوميه فقط

وهذا المرفق كمثال

Ali_Condict.rar

[zarouki2000]

للاسف الخلية ##c41 ## ظهر بها عدد الخلايا الملونة بالاصفر 31 رغم انها خليو واحدة فى العمود

جزاك الله خيرا

[الـعيدروس]

كلامك سليم

يوجد خلل في الشرط

احاول معها عسى ان تزبط

[ياسر خليل أبو البراء]

الأخ عباد صراحة لم أفهم الدالة الخاصة بك

لو أمكن شرح مبسط للدالة

[ياسر خليل أبو البراء]

الأخ

zarouki2000

ما هو الناتج المرتقب للخلية C41؟

هل هو عدد الخلايا الصفراء الناتجة عن التنسيق الشرطي أم مجموع محتوى الخلايا الصفراء؟

[zarouki2000]

الاخ الفاضل ياسر متوقع عدد الخلايا الصفراء الناتجة عن التنسيق الشرطي فى المرفق المفروض تكون الناتج 1

[أبو حنــــين]

جرب أخي المرفق

1.rar

[zarouki2000]

الاخ الفاضل لاابو حنين بارك الله فيك و جزيل الشكر على المحاولة

اريد ان تعمل الاكواد فى حالة ان يكون لون الخلية الاصفر ناتج عن تنسيق شرطى وليس تنسيق يدوى

[ياسر خليل أبو البراء]

أخي صاحب الموضوع

إذا بدت لك الأمور معقدة ، فغير طريقة تفكيرك

ما رأيك لو قمت بعمل معادلة بسيطة تغنيك عن كل هذا التعقيد

=COUNTIF($E$5:$E$35;"Holiday")

أو يمكنك أن تذكر لنا ما هو الشرط الذي على أساسه يعمل التنسيق الشرطي لديك ، ومن خلال الشرط يمكن حل المشكلة ببساطة شديدة

[zarouki2000]

الاخ ياسر بارك الله فيك حاولت بطرق عدة و اكواد مختلفة من منتديات اجنبية للاسف كله لم يلبى ما احتاج

اقرب الحلول الذى تقدم به الاخ ابو نصار انعم الله بموفوفر العلم لكن كما رايت فى المشاركات السابقه انه يحاول تعديل الكود حتى ينتج العدد الصحيح

بارك الله فيه و فيك و فى كل من يحاول مساعدة كل صاحب حاجة

و الله الموفق

[ياسر خليل أبو البراء]

أخي صاحب الموضوع

إذا بدت لك الأمور معقدة ، فغير طريقة تفكيرك

ما رأيك لو قمت بعمل معادلة بسيطة تغنيك عن كل هذا التعقيد

=COUNTIF($E$5:$E$35;"Holiday")

أو يمكنك أن تذكر لنا ما هو الشرط الذي على أساسه يعمل التنسيق الشرطي لديك ، ومن خلال الشرط يمكن حل المشكلة ببساطة شديدة

لم ترد على مشاركتي بشكل واضح ... ما هو الشرط الذي على أساسه يعمل التنسيق الشرطي لديك

[zarouki2000]

الاخ الفاضل ياسر لم اتعمد ان تكون ردى على مشاركتك غير واضح

كما هو مبين فى الملف المرفق التنسيق الشرطى عند اختيار كلمة Holiday ## فى اى خلية يتم تلوين الصف بأكمله باللون الاصفر

ما اريده هو جمع كل خليه لونها اصفر و خالية من اى محتوى يعنى لو خلية صفراء و بهها كلمة holiday # واخترت فيها انا اى شئ غير هذه الكلمة مفترض الا تعد

اتمنى لو لديك حل بديل ان شاكر ليك كل الشكر

[ياسر خليل أبو البراء]

أخي ما هي الخلايا التي يمكن أن تدرج فيها كلمة Holiday؟

يمكن استخدام الدالة Countif كما أشرت في المشاركة رقم 21

ولو أمكن شرح مفصل والنتيجة المرجوة في أي خلية تريدها (أعتقد الخلية C41)...