فبا: كيفية حساب الصفوف في التحديد

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

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

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

يقوم هذا المثال تحديدًا بحساب عدد الصفوف في التحديد الحالي ثم يعرض هذا الرقم في مربع رسالة.

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

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

يقوم هذا المثال بحساب عدد الصفوف في التحديد الحالي، ثم يعرض هذا الرقم في الخلية E1 .

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: قم بعد الصفوف في التحديد واعرض الرقم في مربع الرسالة

لنفترض أننا حددنا نطاق الخلايا A1:C17 في جدول البيانات الخاص بنا:

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

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

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

يخبرنا مربع الرسالة بوجود 17 صفًا في التحديد الحالي.

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

لنفترض أننا حددنا نطاق الخلايا A4:D9 في جدول البيانات الخاص بنا:

يمكننا إنشاء الماكرو التالي لحساب عدد الصفوف في التحديد وعرض النتائج في الخلية E1 :

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

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

تخبرنا الخلية E1 بوجود 6 صفوف في التحديد الحالي.

مصادر إضافية

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

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