فبا: كيفية حساب عدد الصفوف في النطاق

يمكنك استخدام بناء الجملة الأساسي التالي لحساب عدد الصفوف في نطاق في Excel باستخدام VBA:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

يحسب هذا المثال عدد الصفوف في العمود A، ثم يعين النتيجة للخلية E2 .

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

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

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

لنفترض أننا نريد حساب عدد الصفوف في العمود A وعرض النتائج في خلية معينة.

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

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

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

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

يخبرنا هذا أن هناك 9 صفوف في العمود A تحتوي على قيم.

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

لنفترض أننا نريد بدلاً من ذلك حساب عدد الصفوف في العمود A وعرض النتائج في مربع رسالة.

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

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

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

يخبرنا مربع الرسالة بوجود 9 صفوف في العمود A تحتوي على قيم.

لاحظ أنه في هذا المثال قمنا بحساب عدد الصفوف في كل العمود A باستخدام A:A كنطاق.

ومع ذلك، إذا كنت تريد بدلاً من ذلك حساب عدد الصفوف ذات القيم في نطاق معين، فيمكنك كتابة A2:A9 (أو أي نطاق آخر يهمك).

مصادر إضافية

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

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