كيفية إنشاء صفوف باستخدام vba في إكسيل؟

لحساب الصفوف باستخدام VBA، تحتاج إلى تعيين النطاق الذي تريد حساب الصفوف منه، ثم استخدام خاصية العد والصفوف للحصول على عدد الصفوف من هذا النطاق. يمكنك أيضًا استخدام حلقة لحساب الصفوف التي تحتوي على بيانات فقط.

استخدم VBA لحساب الصفوف

1. أولاً، تحتاج إلى تحديد النطاق الذي تريد حساب الصفوف فيه.
2. بعد ذلك، استخدم النقطة (.) لفتح قائمة الخصائص والأساليب.
3. بعد ذلك، اكتب أو حدد خاصية “الخطوط”.
4. في النهاية، استخدم خاصية “العدد”.

الآن عندما تقوم بتشغيل هذا الكود فإنه سيعيد عدد الصفوف، وللحصول على الرقم يمكنك استخدام مربع رسالة أو إدخال هذه القيمة مباشرة في خلية أيضًا.

 Sub vba_count_rows() Range("A1:A10").Rows.Count End Sub

حساب الصفوف للنطاق المستخدم

 Sub vba_count_rows2()   MsgBox Worksheets("Sheet1").UsedRange.Rows.Count End Sub

حساب الصفوف التي تحتوي على بيانات باستخدام VBA

يمكنك أيضًا حساب الصفوف التي تحتوي على بيانات مع تجاهل الصفوف الفارغة.

سيأخذ التعليمة البرمجية التالية النطاق المستخدم كنطاق للتكرار ويمر عبر كل صف واحدًا تلو الآخر ويتحقق مما إذا كانت هناك خلية غير فارغة هناك، وإذا كانت موجودة فسوف يعتبرها صفًا يحتوي على بيانات، وفي تظهر النهاية مربع رسالة يحتوي على إجمالي عدد الأسطر.

 Sub vba_count_rows_with_data() Dim counter As Long Dim iRange As Range With ActiveSheet.UsedRange    'loop through each row from the used range    For Each iRange In .Rows        'check if the row contains a cell with a value        If Application.CountA(iRange) > 0 Then            'counts the number of rows non-empty Cells            counter = counter + 1        End If    Next End With MsgBox "Number of used rows is " & counter End Sub