تجميع خلايا بالالوان

[ابو سما]

الاخوة الاعزاء وكل من له جهد فى هذا المنتدى الرائع

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

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

كشف+حضور+الادارة.rar

تم تعديل مارس 28, 2013 بواسطه ابو سما

[احمد عبد الناصر]

السلام عليكم

 

جرب هذا 

 

تحياتي

 

Sub dahmour()
Application.ScreenUpdating = False
For Each c In Range("ae9:ah" & Range("a" & Rows.Count).End(xlUp).Row)
c.Value = color(Range("f" & c.Row & ":ad" & c.Row), c.Interior.color)
Next
Application.ScreenUpdating = True
End Sub

Function color(r, i)
For Each c In r
If c.Interior.color = i Then color = color + 1
Next
End Function

 

 

كشف+حضور+الادارة+.rar

[زاكي بوشلاغم]

اخي  لدي جدول  فيه  7 اعمدة  و40 سطر  حيث  احيانا  تكون في  السطر  قيمة  الصفر ممكن  زر يخفي  اسطر  التي  فيها  قيمة  الصفر  عند  ظغط عليه وذلك لنطبع  جدول  بدون  اصفار  ثم نظغط مرة  اخرى ترجع  اصفار  كما  كانت  من قبل