تصفية الخلايا على اساس اللون

[sherko_bax]

السلام عليكم

الاخوة الاعزاء هل يمكن فرز خلايا معينة او تصفيتها على اساس اللون مثلا عندي 20 خلية 3 منها ملونة هل يمكن تصفية الملون منها

[طارق محمود]

السلام عليكم

تفضل أخي المرفق والكود

طارق

Sub Button1_Click()
 a = Selection.Columns.Count
 b = Selection.Rows.Count

ActiveCell.Select
For j = 1 To b
x = 0
   For i = 1 To a
       If ActiveCell.Interior.Pattern = xlNone Then x = x + 1
       ActiveCell.Offset(0, 1).Select
   Next i
   If x = a Then ActiveCell.EntireRow.Hidden = True

   ActiveCell.Offset(1, -a).Select
Next j

End Sub

Filter_01.rar

[sherko_bax]

شكرا اخي الكريم لكن مشكلتي لا افهم في الجمل البرمجية وايضا لايمكنني فتح الفيجوال اي تصميم البرنامج

[sambam]

اذا تستخدم الاوفيس 2007 يمكنك فرزها كاي فرز اخر