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

[مداد_1423]

السلام عليكم

تحية طيبة

 

هل يوجد طريقة لتنسيق شرطي إذا وجدت سبع خلايا متجاورة لا تحتوي على قيمة صفر (صفر وليس فراغ) ـ

 

صورة توضيحية 

 

 

الملف في المرفقات

 

تحية لكل من مر من هنا

 

وجزى الله خير من ساعدني

 

تحياتي

 

تنسيق شرطي سبع خلايا بدون صفر.xlsx

[سليم حاصبيا]

يمكن عمل ذلك بواسطة كود (الصفحة SALIM   من هذا الملف)

Option Explicit

Sub colorize()
With Sheets("SALIM")
    Dim cl As Long, Lastcol As Long, Lastrow As Long

       Lastcol = .Cells(4, Columns.Count).End(1).Column - 1
       Lastrow = .Cells(Rows.Count, 3).End(3).Row
       Range("c4").Resize(Lastrow - 3, Lastcol).Interior.ColorIndex = xlNo
        Dim n#, RO%, k%, m%
        
        For RO = 4 To Lastrow
          For m = 3 To Lastcol
             n = .Cells(RO, m)
               k = Application.CountIf(Cells(RO, m).Resize(, 7), n)
             If k = 7 Then
              .Cells(RO, m).Resize(, 7).Interior.ColorIndex = 28
              m = m + 6
             End If
        Next
      Next
      End With
End Sub

الملف مرفق

 

 

 

تنسيق شرطي by_VBA .xlsm

[مداد_1423]

منذ ساعه, سليم حاصبيا said:

يمكن عمل ذلك بواسطة كود (الصفحة SALIM   من هذا الملف)

Option Explicit

Sub colorize()
With Sheets("SALIM")
    Dim cl As Long, Lastcol As Long, Lastrow As Long

       Lastcol = .Cells(4, Columns.Count).End(1).Column - 1
       Lastrow = .Cells(Rows.Count, 3).End(3).Row
       Range("c4").Resize(Lastrow - 3, Lastcol).Interior.ColorIndex = xlNo
        Dim n#, RO%, k%, m%
        
        For RO = 4 To Lastrow
          For m = 3 To Lastcol
             n = .Cells(RO, m)
               k = Application.CountIf(Cells(RO, m).Resize(, 7), n)
             If k = 7 Then
              .Cells(RO, m).Resize(, 7).Interior.ColorIndex = 28
              m = m + 6
             End If
        Next
      Next
      End With
End Sub

الملف مرفق

 

 

 

تنسيق شرطي by_VBA .xlsm

أستاذنا : سليم 

سلمت من كل شر ، جزاك الله خير وبارك فيك ونفع بعلمك وكثر الله من أمثالك

أعلم أن بناء مثل هذا الكود يأخذ من وقتك

 

فأشكرك جزيل الشكر على الوقت الذي منحته لمساعدتي

تحياتي