dragon2007 قام بنشر أغسطس 17, 2020 مشاركة قام بنشر أغسطس 17, 2020 ارجو المساعدة ...عد القيم العليا او الدنيا بالاعتماد على وجود رمز بالخلية كما هو مرفق New Microsoft Excel Worksheet.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أغسطس 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 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر أغسطس 17, 2020 مشاركة قام بنشر أغسطس 17, 2020 (معدل) dragon2007 فين انت من هذه الإجابة الممتازة ؟!!! أين الضغط على الإعـــجـــــاب ؟!!!💙 تم تعديل أغسطس 17, 2020 بواسطه أحمد يوسف رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.