فبا: كيفية حساب عدد الأعمدة المستخدمة

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

يقوم هذا المثال بحساب عدد الأعمدة المستخدمة في الورقة المسماة Sheet1 ويعرض النتيجة في الخلية A10 .

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

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

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

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

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

يخبرنا هذا أن هناك 4 أعمدة مستخدمة.

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

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

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

يخبرنا مربع الرسالة بوجود 4 أعمدة مستخدمة.

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

مصادر إضافية

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

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