كيفية حساب الصفوف في الجدول باستخدام vba (مع مثال)

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

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

يحسب هذا المثال بالتحديد العدد التالي من الصفوف للجدول الموجود في الورقة النشطة المسماة Table1 :

• إجمالي عدد الخطوط
• إجمالي عدد خطوط الرأس
• إجمالي عدد خطوط الجسم

نستخدم وظيفة MsgBox لإنشاء مربع رسالة يعرض كل من هذه القيم في مربع رسالة واحد.

ملاحظة : نستخدم عبارة vbNewLine لإدراج أسطر جديدة وإنشاء مربع رسالة يحتوي على أسطر متعددة.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية حساب الصفوف في جدول باستخدام VBA

لنفترض أن لدينا الجدول التالي المسمى Table1 والذي يحتوي على معلومات حول لاعبي كرة السلة المختلفين:

يمكننا إنشاء الماكرو التالي لحساب عدد الصفوف في هذا الجدول:

 SubCountTableRow ()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects(" Table1 ")

'create message box that displays row count
MsgBox " Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       " Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       " Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

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

يخبرنا مربع الرسالة بوجود 10 صفوف في الجدول.

يخبرنا هذا أيضًا أن هناك صفًا واحدًا للرأس و 9 صفوف للنص الأساسي.

مصادر إضافية

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

كيفية حساب القيم الفريدة في النطاق باستخدام VBA
كيفية حساب عدد الصفوف في نطاق باستخدام VBA
كيفية حساب الخلايا التي تحتوي على نص معين باستخدام VBA