هل يوجد كود يعمل مثل عمل دالة ال COUNTIF

[ميسون الدايني]

السلام عليكم انا بحاجة الى كود يعمل مثل ما تقوم به دالة (COUNTIF)

 

[أ / محمد صالح]

ما السبب الذي يجعلك تحتاج إلى كود يقوم بهذه الوظيفة طالما أن الدالة مدعومة في جميع إصدارات الاكسل؟ 

نحتاج إلى تحويل الدالة إلى كود vba في حالة كونها دالة جديدة في اصدار جديد 

ونريد استعمال مميزاتها في الإصدارات القديمة مثل دالة textjoin مثلا

اللهم إلا إذا كنت تقصد

طريقة استعمالها داخل vba 

وفي هذه الحالة يمكنك استخدام هذه الطريقة

مع تغيير المرجع والشرط كما تريد 

Application.WorksheetFunction.CountIf(Range("D2:D9"), ">5")

بالتوفيق 

[ميسون الدايني]

تحيه طيبة لشخصك االكريم واشكرك جزيل الشكر

كثير من مواضيعك استفدت منها الله يجعلها في ميزان حسناتك

استاذ محمد الدوال دائما ماتكون ثقيله وهيه معرضة للحذف او التوقف عكس الكود يعمل خلف الكواليس

ومن ناحيه اخرى اود ان اطور من مهاراتي والاستفاده من خبراتكم حتى اصبحت مدمنه على هذا المنتدى 

طاب مسائك

[أ / محمد صالح]

آمين ولك مثلها إن شاء اللّه