كيفية استخدام الدالة counta في vba (مع أمثلة)

يمكنك استخدام الأسلوب CountA في VBA لحساب عدد الخلايا غير الفارغة في نطاق معين.

فيما يلي طريقة شائعة لاستخدام هذه الطريقة عمليًا:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

يقوم هذا المثال بحساب عدد الخلايا غير الفارغة في النطاق A1:A10 ويعرض النتيجة في الخلية C1 .

إذا كنت تريد بدلاً من ذلك عرض عدد الخلايا غير الفارغة في مربع رسالة، فيمكنك استخدام بناء الجملة التالي:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع عمود القيم التالي في Excel:

مثال 1: حساب الخلايا غير الفارغة في النطاق وعرض النتائج في الخلية

لنفترض أننا نريد حساب عدد الخلايا غير الفارغة في النطاق A1:A10 وعرض النتائج في خلية معينة.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن الخلية C1 تحتوي على القيمة 7 .

يخبرنا هذا بوجود 7 خلايا غير فارغة في النطاق A1:A10 .

المثال 2: حساب الخلايا غير الفارغة في النطاق وعرض النتائج في مربع الرسالة

لنفترض أننا نريد بدلاً من ذلك حساب عدد الخلايا غير الفارغة في النطاق A1:A10 وعرض النتائج في مربع رسالة.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يخبرنا مربع الرسالة بوجود 7 خلايا غير فارغة في النطاق A1:A10 .

لاحظ أنه إذا كنت تريد بدلاً من ذلك حساب عدد الخلايا غير الفارغة في عمود كامل، فيمكنك كتابة A:A بدلاً من ذلك.

سيؤدي هذا إلى حساب عدد الخلايا غير الفارغة في العمود A بأكمله.

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA CountA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية كتابة وظائف AVERAGEIF وAVERAGEIFS
فبا: كيفية كتابة وظائف SUMIF وSUMIFS
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS