عدد القيم بالاعتماد على عدة خلايا

dragon2007 · أغسطس 17, 2020

ارجو المساعدة ...عد القيم العليا او الدنيا بالاعتماد على وجود رمز بالخلية كما هو مرفق

**سليم حاصبيا** · أغسطس 17, 2020

جرب هذا الماكرو

Option Explicit

Sub Count_My_Colors()
Dim lr%, i%, x%, y%
lr = Cells(Rows.Count, 5).End(3).Row
For i = 1 To lr
 If Cells(i, 5).Interior.ColorIndex = _
  Range("I3").Interior.ColorIndex Then x = x + 1
 If Cells(i, 5).Interior.ColorIndex = _
  Range("J3").Interior.ColorIndex Then y = y + 1
Next
Range("I3") = Switch(x = 0, "Zero", True, x)
Range("j3") = Switch(y = 0, "Zero", True, y)
End Sub

الملف مرفق

Dragon.xlsm