مشكلة في حساب عدد الخانات التي تحتوي علي لون معين

[daolabs]

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

الاخوا الاعظاء الافاضل , ارجوا منكم المساعده في دالة حساب عدد الخلايا التي تحتوي على لون معين التي قام بابداعها الاستاذ عبدالله عبد السلام .

** بعد تثبيت الكود على الملف تقوم الداله بحساب عدد الخلايا التي تحتوي على اللون الازرق عند تلوينها بشكل يدوي , لكنها لا تحتسبها عند تلوينها بشكل الى باستخدام الشروط ( ادخال شروط alt+o+d )

المرجوا منكم المساعده كما عهدنا مخوتكم و شكرا

CA E70 SEP BID CLOSER.rar

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

[طارق محمود]

السلام عليكم

أخي العزيز

يمكنك إضافة الأمر DisplayFormat للكود أو بمعني أدق تغيير السطر

If rCell.Interior.ColorIndex = color_cell_index Then

إلي

If rCell.DisplayFormat.Interior.ColorIndex = color_cell_index Then

ولكني أخشي ألا يكون فعالا إلا مع الأوفيس 2010

[daolabs]

السلام عليكم

جربة و لم تنفع ، المرجوا المساعده و شكراً

[طارق محمود]

أنا جربته ونفع

بس عندي

أوفيس 2010

[daolabs]

طيب اوريد حلاً

[طارق محمود]

أخي العزيز

عندك حق

الأمر DisplayFormat يعمل فقط مع الكود ولايعمل مع الدوال المخلقة !!!

لاأدري لماذا

ما رأيك في إدخال الشروط (التنسيق الشرطي) في الكود

وبذلك حتي 2003 يستطيع التعامل معها

مثلا يمكنك استبدال الدالة الحالية

Function Compte_Couleurs(cell_range As Range, color_cell_index) As Integer

Dim rCell As Range

Dim cell_count As Integer

cell_count = 0

For Each rCell In cell_range

If rCell.Interior.ColorIndex = color_cell_index Then

cell_count = cell_count + 1

End If

Next rCell

Application.Volatile

Compte_Couleurs = cell_count

End Function

بالدالة التالية

Function new_col_Ind(rg As Range) As Integer

Dim x As Integer, y As Integer, cl As Range

x = 0

For Each cl In rg

y = WorksheetFunction.CountIf([A:A], cl) + WorksheetFunction.CountIf([N:W], cl)

If y = 4 Then x = x + 1

Next

Application.Volatile

new_col_Ind = x

End Function

مرفق الملف بعد التعديل

جرب وأخبرني

CA E70 SEP BID CLOSER_2.rar

[daolabs]

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

جاري تجربة المرفق و جزاكم الله كل خير

[daolabs]

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

الاستاذ / طارق محمود و جميع القائمين علي هذا المنتدى الكبير .

اولا اود ان اشكركم على مجهوداتكم

ثانيا جربت الملف المرسل وكان في قت الروعه , خصوصا انه لا يطلب لون و يقوم بحساب الخانات المضلله , و لاكن عند نقل الدالة الى ملف اخر يحتوي على صفحات اكثر من ثلاثه صفحات لا يعمل ( عدد الصفحات قابل لزياده و النقصان ) , و لتوضيح انا احتاج من الدالة ان تقوم بحساب عدد الخانات الملونه في نطاق معين بجاورها في نفس الصفحة ما بين العامودين N & W

ثالثا قمت بعمل قائمة منسدله في العامود F و عند طلبها تظهر بشكل صغير جدا , هل هناك طريقه اجعلها تظهر بشكل كبير

و لكم جزيل الشكر و العرفان

test.rar

[daolabs]

مافي افكار .... مافي مساعده

[طارق محمود]

السلام عليكم

أخي العزيز

عذرا لتأخري بالرد

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

إذا تغير الرقم 4 في الكود إلي الرقم 11 كما بالتنسيق الشرطي الجديد ستعمل الدالة بلامشاكل

الأول

If y = 4 Then x = x + 1

Next

الثاني

If y = 11 Then x = x + 1

Next

جرب وأخبرني

[daolabs]

جزاك الله خير

ولاكن ،،،، هل في امكانيه ان اجعل ان غير عدد الصفحات من دون العوده الى محرر الفجول بيسك ؟

لان عددالصفحات يتغير في كل مره .

[طارق محمود]

ليست المشكلة في عدد الصفحات

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

أخبرني ماهي علاقة الرقم 4 أو الرقم 11 بالتنسيق الشرطي برقم الصفحة

وسأخبرك بالتعديل اللازم في الكود