كيفية إنشاء صفوف باستخدام vba في إكسيل؟
لحساب الصفوف باستخدام VBA، تحتاج إلى تعيين النطاق الذي تريد حساب الصفوف منه، ثم استخدام خاصية العد والصفوف للحصول على عدد الصفوف من هذا النطاق. يمكنك أيضًا استخدام حلقة لحساب الصفوف التي تحتوي على بيانات فقط.
استخدم VBA لحساب الصفوف
- أولاً، تحتاج إلى تحديد النطاق الذي تريد حساب الصفوف فيه.
- بعد ذلك، استخدم النقطة (.) لفتح قائمة الخصائص والأساليب.
- بعد ذلك، اكتب أو حدد خاصية “الخطوط”.
- في النهاية، استخدم خاصية “العدد”.
الآن عندما تقوم بتشغيل هذا الكود فإنه سيعيد عدد الصفوف، وللحصول على الرقم يمكنك استخدام مربع رسالة أو إدخال هذه القيمة مباشرة في خلية أيضًا.
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
ما هو فبا
الدروس ذات الصلة
- خط Excel VBA (اللون والحجم والنوع والخط الغامق)
- Excel VBA إخفاء وإظهار عمود أو صف
- نطاق Excel VBA – العمل مع النطاق والخلايا
- تطبيق الحدود على خلية باستخدام VBA في Excel
- البحث عن الصف الأخير والعمود والخلية باستخدام VBA في Excel