اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤال هل يمكن تجميع الخلايا الملونه


alaaaltwel

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

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

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

 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 سليم.rar

  • Like 1
رابط هذا التعليق
شارك

3 ساعات مضت, alaaaltwel said:

شكرا جدا

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

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

الشيت لا يعمل

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

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

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

 

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

رابط هذا التعليق
شارك

54 دقائق مضت, سليم حاصبيا said:

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

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

 

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

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

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

الرجاء العلم ان عند تغيير اي خانة من الخانات الموجودة لم يتم تغيير عد الالوان الا بعد عمل 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

 

رابط هذا التعليق
شارك

50 دقائق مضت, سليم حاصبيا 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

 

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

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

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

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

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

رابط هذا التعليق
شارك

يمكن إضافة هذا السطر في حدث تغير ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.CalculateFull
End Sub

أو من لوحة المفاتيح Ctrl + Shift + F9

رابط هذا التعليق
شارك

  • 3 weeks later...

شكرا جدا

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

ولكن يوجد خطاء ما

فبرجاء الافادة ان امكن.

مارس 2017.rar

 

تم تعديل بواسطه alaaaltwel
رابط هذا التعليق
شارك

  • 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