مسح قيم خلايا متفرقة بمعلومية لون الخلايا اوحجم الفونت

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

مرفق مثال لمسح قيم خلايا بمعلومية لون الخلايا

او حجم الخط الخاص بها

الكود الخاص بالملف

 Sub Yasser()  
   Dim Rng As Range  
   Application.ScreenUpdating = False  
   For Each Rng In Range("a3:g31")  
     If Rng.Interior.Color = Range("h1").Interior.Color Then  
       Rng.ClearContents  
     End If  
   Next Rng  
   Application.ScreenUpdating = True  
 End Sub  
 Sub Yasser2()  
   Dim Rng As Range  
   Application.ScreenUpdating = False  
   For Each Rng In Range("a3:g31")  
     If Rng.Font.Size = "10" Then  
       Rng.ClearContents  
     End If  
   Next Rng  
   Application.ScreenUpdating = True  
 End Sub  

صورة توضيحية لشكل الخلايا المتفرقة

لتحميل الملف اضغط هنا

اعداد / ياسر العربي

شارك المقال

شاركه على فيسبوكشاركه على جوجل+