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

[dragon2007]

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

New Microsoft Excel Worksheet.xlsx

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

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

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

[أحمد يوسف]

dragon2007

فين انت من هذه الإجابة الممتازة ؟!!!

أين الضغط على الإعـــجـــــاب ؟!!!💙

تم تعديل أغسطس 17, 2020 بواسطه أحمد يوسف