اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

بعد اذن الاخ ابو البراء

انسخ هذا الكود الى موديل جديد 

 Function Color_Num(rg As Range, source_rg As Range)
 my_color = source_rg.Interior.ColorIndex
 For i = 1 To rg.Count
  If rg.Cells(i).Interior.ColorIndex = my_color Then s = s + 1
  Next
  Color_Num = s
 End Function

ثم في الخلية CS8 اكتب هذه المعادلة و اسحب يساراً (و نزولاً اذا كنت تريد العمل على اكثر من صف)

=IF($B8="","",Color_Num($D8:$CR8,CS$5))

اليك الملف مع المعادلة

 

ديسمبر 2016 سليم.rarFetching info...

  • Like 1
قام بنشر
  في 26‏/2‏/2017 at 14:58, alaaaltwel said:

شكرا جدا

انا حاولت كتير على العمل على رود سيادتكم لكن لما اوصل الى حل نهائيا

الاستاذ / سليم حاصبيا

الشيت لا يعمل

وشكرا لسيادتكم

Expand  

ربما كان الاصدار عندك قديم

تم تعديل الملف حتى يعمل مع الاكسل 97 2003

 

ديسمبر 2016 سليم 2003.rar

قام بنشر
  في 26‏/2‏/2017 at 18:20, سليم حاصبيا said:

ربما كان الاصدار عندك قديم

تم تعديل الملف حتى يعمل مع الاكسل 97 2003

 

ديسمبر 2016 سليم 2003.rarFetching info...

Expand  

الاستاذ الكبير / سليم حاصبيا

بعد التحية ,,,

الرجاء العلم ان عند تغيير اي خانة من الخانات الموجودة لم يتم تغيير عد الالوان الا بعد عمل calculation للصفحة ..... لذا هل من الممكن وجود طريقة بحيث عند تغيير لون اي خانة يتم تغيير عملية عد الالوان بدون عمل calculation للصفحة .

وشكرا

قام بنشر

اضف هذا السطر البسيط على الكود

 Application.Volatile

ليصبح الكود بهذا الشكل

 Function Color_Num(rg As Range, source_rg As Range)
 Application.Volatile
 my_color = source_rg.Interior.ColorIndex
 For i = 1 To rg.Count
  If rg.Cells(i).Interior.ColorIndex = my_color Then s = s + 1
  Next
  Color_Num = s
 End Function

 

قام بنشر
  في 26‏/2‏/2017 at 20:11, سليم حاصبيا said:

اضف هذا السطر البسيط على الكود

 Application.Volatile

ليصبح الكود بهذا الشكل

 Function Color_Num(rg As Range, source_rg As Range)
 Application.Volatile
 my_color = source_rg.Interior.ColorIndex
 For i = 1 To rg.Count
  If rg.Cells(i).Interior.ColorIndex = my_color Then s = s + 1
  Next
  Color_Num = s
 End Function

 

Expand  

الاخ الكبير /  سليم حاصبيا

تحية طيبة وبعد ,,,

الرجاء العلم ان بعد اضافة Application.Volatile علي الكود لم تعمل حيث انني قمت بالوقوف علي خلية و فتحت fill color في مجموعة font و قمت باختيار اللون الاصفر و لكن لم يتم تغيير الرقم الا بعد الضغط علي F9 فهل من حل اخر بحيث تقوم بتغيير الرقم بمجرد اختيار اللون 

مع العلم انني بالامس بحثت علي الانترنت علي كود يقوم بعمل Refresh للصفحة بحيث بمجرد اختيار اللون يتم تغيير الرقم تلقائيا ولكن دون جدوي و ذلك لعدم علمي الشديد بلغة VBA 

ولكم جزيل الشكر و التقدير 

  • 3 weeks later...
  • 6 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information