جدول المحتويات
إذا كنت تبحث عن بعض أسهل الطرق لحساب الصفوف التي تحتوي على بيانات في عمود باستخدام Excel VBA ، فأنت في المكان الصحيح. لذلك ، لنبدأ بمقالتنا الرئيسية لمعرفة المزيد حول عد الصفوف التي تحتوي على بيانات في عمود بسهولة.
تنزيل المصنف
عد الصفوف مع Data.xlsm
9 طرق لحساب الصفوف مع البيانات في العمود باستخدام Excel VBA
هنا ، لدينا مجموعة البيانات التالية التي تحتوي على سجلات مبيعات الشركة. سنستخدم أعمدة مختلفة مع البيانات من مجموعة البيانات هذه لشرح طرق مختلفة لحساب الصفوف بناءً على بيانات العمود.
لقد استخدمنا Microsoft Excel 365 <الإصدار 10> هنا ، يمكنك استخدام أي إصدارات أخرى وفقًا لراحتك.
الطريقة الأولى: استخدام صفوف VBA. عد الخاصية لحساب الصفوف مع البيانات في العمود في Excel
هنا ، نحن سيتم حساب صفوف العمود المبيعات بقيم المبيعات للمنتجات التي تستخدم الصفوف . خاصية Count من VBA .
الخطوة -01 :
➤ انتقل إلى المطور Tab & gt؛ & gt؛ Visual Basic Option.
ثم ، محرر Visual Basic سيفتح .
➤ انتقل إلى إدراج Tab & gt؛ & gt؛ الوحدة النمطية الخيار.
بعد ذلك ، أ سيتم إنشاء وحدة
الخطوة -02 :
➤ اكتب الكود التالي
2487
هنا ، أعلنا أن X عدد صحيح ، "D4: D11" هو النطاق على أساسأي عمود نحسبه الصفوف وأخيراً قمنا بتعيين رقم الصف إلى X .
مربع رسالة ( MsgBox ) سيعطينا النتيجة كعدد إجمالي من الصفوف.
➤ اضغط على F5 .
بعد ذلك ، ستحصل على العدد الإجمالي للصفوف التي تحتوي على البيانات كـ 8 من العمود المبيعات في مربع الرسالة.
اقرأ المزيد: Excel VBA لحساب عدد الصفوف بالبيانات (4 أمثلة)
الطريقة الثانية: استخدام خاصية النهاية لحساب الصفوف مع البيانات في العمود
في هذا القسم ، سنستخدم خاصية النهاية من VBA لحساب الصفوف بقيم مبيعات العمود المبيعات .
الخطوات :
اتبع الخطوة -01 من الطريقة -1 .
➤ اكتب الكود التالي
4847
هنا ، أعلنا أن X عدد صحيح ، "D4" هي قيمة بداية النطاق على أساس العمود الذي نحسبه الصفوف وأخيرًا قمنا بتعيين رقم الصف إلى X . X سيعطينا رقم الصف الأخير المستخدم وليس إجمالي الصفوف المستخدمة في هذا العمود. لذلك ، للحصول على إجمالي رقم الصف قمنا بطرح 3 ( رقم بداية الصف -1 = 4-1 = 3 ) من X .
مربع رسالة ( MsgBox ) سيظهر بإجمالي عدد الصفوف.
➤ اضغط على F5 .
بعد ذلك ، سيكون لديك 8 كعدد إجمالي لصفوف العمود المبيعات في مربع الرسالة.
اقرأ المزيد: كيفية العدالصفوف التي تحتوي على بيانات في Excel (4 صيغ)
الطريقة الثالثة: استخدام مزيج الصفوف: خاصية العد وخاصية النهاية
هنا ، سنستخدم مزيجًا من الخاصيتين من VBA مثل الصفوف . خاصية Count و End property معًا لحساب إجمالي صفوف العمود المبيعات .
الخطوات :
➤ اتبع الخطوة 01 من الطريقة 1 .
➤ اكتب الكود التالي
8521
هنا ، أعلنا أن X عدد صحيح ، 4 في (عدد الصفوف ، 4) للمبيعات عمود على أساس العمود الذي نحسبه الصفوف وأخيراً قمنا بتعيين رقم الصف إلى X .
X سيعيد آخر صف مستخدم number ليس إجمالي الصفوف المستخدمة في هذا العمود. لذلك ، للحصول على إجمالي رقم الصف قمنا بطرح 3 ( رقم بداية الصف -1 = 4-1 = 3 ) من X .
مربع رسالة ( MsgBox ) سيظهر بإجمالي عدد الصفوف.
➤ اضغط على F5 .
بعد ذلك ، سنحصل على 8 كعدد إجمالي لصفوف العمود المبيعات في مربع الرسالة.
المحتوى المرتبط: كيفية حساب الصفوف ذات المعايير المتعددة في Excel (6 طرق)
الطريقة الرابعة: استخدام خاصية التحديد VBA لحساب عدد الصفوف مع البيانات في العمود في Excel
يمكنك استخدام خاصية التحديد أيضًا لحساب إجمالي الصفوف استنادًا إلى بيانات المبيعات عمود.
الخطوات :
➤ اتبع الخطوة -01 من الطريقة -1 .
➤ اكتب الكود التالي
5523
هنا ، أعلنا أن X عدد صحيح ، صفوف المحدد سيتم احتساب النطاق هنا ، وأخيرًا ، قمنا بتعيين رقم الصف إلى X .
مربع رسالة ( MsgBox ) سيعطينا النتيجة كمجموع عدد الصفوف.
ثم علينا العودة إلى الورقة الرئيسية.
➤ حدد نطاق العمود المبيعات ، ثم انتقل إلى Developer Tab & gt؛ & gt؛ وحدات الماكرو الخيار.
بعد ذلك ، سينبثق مربع حوار الماكرو .
➤ حدد اسم الماكرو countrows4 ، ثم اضغط على تشغيل خيار .
أخيرًا ، سنحصل على مربع الرسالة التالي الذي يقول "عدد الصفوف المستخدمة هو 8" .
اقرأ المزيد: كيفية حساب الصفوف باستخدام VBA في Excel (5 مقاربات)
الطريقة الخامسة: عد الصفوف مع البيانات في العمود باستخدام وظيفة FIND
هنا ، سنستخدم ملف وظيفة البحث لحساب الصفوف بالسلاسل النصية في العمود المنطقة .
الخطوات :
➤ اتبع الخطوة 01 من الطريقة الأولى .
➤ اكتب الكود التالي
5432
هنا ، أعلنا X كـ عدد صحيح ، rng مثل النطاق ، "C4: C11" هو النطاق على أساس أي عمود نحسبه في الصفوف وأخيرًا قمنا بتعيينه له rng .
لقد استخدمنا العبارة WITH لتجنب تكرار استخدام اسم الكائن مثل rng .
باستخدام دالة FIND ، سوف تعطينا X آخر رقم صف مستخدم وليس إجمالي الصفوف المستخدمة في هذا العمود. لذلك ، للحصول على إجمالي رقم الصف قمنا بطرح 3 ( رقم بداية الصف -1 = 4-1 = 3 ) من X .
مربع رسالة ( MsgBox ) سيظهر مع العدد الإجمالي للصفوف.
➤ اضغط على F5 .
أخيرًا ، سيكون لديك 8 إجمالي عدد صفوف العمود المبيعات في مربع الرسالة.
المحتوى المرتبط: عدد الصفوف المرئية من Excel (الصيغة ورمز VBA)
القراءات المتشابهة:
- عدد الصفوف في المجموعة مع Pivot Table في Excel (إرشادات خطوة بخطوة)
- Excel VBA: عد الصفوف في ورقة (5 أمثلة)
الطريقة 6: عد الصفوف غير الفارغة مع البيانات في العمود باستخدام VBA
هنا ، لدينا بعض الخلايا الفارغة في العمود المبيعات (قمنا بإزالة بعض القيم لهذه الطريقة) و باستخدام كود VBA سنقوم فقط بحساب العدد الإجمالي للصفوف بالقيم.
الخطوات :
➤ اتبع الخطوة 01 من الطريقة الأولى .
➤ اكتب الكود التالي
4188
هنا ، أعلنا X كـ طويل ، Y ، و rng مثل النطاق ، “D4: D11” هو النطاق على أساس العمود الذي نحسبه الصفوف وأخيرًا لديناقم بتعيينه إلى rng .
ستتحقق الحلقة FOR مما إذا كانت كل خلية من خلايا هذا النطاق تحتوي على أي قيمة باستخدام وظيفة COUNTA و بالنسبة للخلايا التي تحتوي على قيم ، سيتم زيادة X بمقدار 1 في كل مرة.
أخيرًا ، سنحصل على إجمالي أرقام الصفوف التي تحتوي على خلايا غير فارغة من خلال رسالة .
➤ اضغط على F5 .
في النهاية ، سيكون لديك 5 كعدد إجمالي صفوف غير فارغة من العمود المبيعات في مربع رسالة.
اقرأ المزيد: كيفية حساب الصفوف التي تمت تصفيتها في Excel باستخدام VBA ( إرشادات خطوة بخطوة)
الطريقة 7: عد الصفوف بقيمة محددة
هنا ، سنحسب العدد الإجمالي للصفوف بقيمة مبيعات 2،522.00 دولارًا أمريكيًا من العمود المبيعات .
الخطوات :
➤ اتبع الخطوة -01 من الطريقة الأولى .
➤ اكتب الكود التالي
5261
هنا ، أعلنا أن X طويل ، Y ، و rng مثل النطاق ، "D4: D11" هو النطاق الذي على أساسه في العمود نقوم بعد الصفوف وأخيرًا قمنا بتعيينه إلى rng .
ستتحقق حلقة FOR إذا كانت أي من خلايا هذا النطاق تحتوي على قيمة المبيعات 2522 باستخدام وظيفة COUNTIF وبالنسبة للخلايا التي تحتوي على هذه القيمة ، سيتم زيادة X بمقدار 1 في كل مرة.
أخيرًا ، سنحصل على إجمالي أرقام الصفوف بقيمة 2522 من خلال رسالة.
➤ اضغط على F5 .
في النهاية ، سيكون لديك 3 كعدد الصفوف الإجمالية من العمود المبيعات الذي يحتوي على قيمة المبيعات 2،522.00 دولارًا في مربع رسالة.
قراءة المزيد: Excel VBA: عد الصفوف ببيانات محددة (8 أمثلة)
الطريقة الثامنة: عد الصفوف بقيم أكبر من قيمة محددة
في هذا القسم ، سنقوم حساب العدد الإجمالي للصفوف ذات القيم الأكبر من 3000.00 دولارًا في العمود المبيعات .
الخطوات :
اتبع الخطوة -01 من الطريقة -1 .
➤ اكتب الكود التالي
8717
هنا ، أعلنا أن X طويل ، Y ، و rng نطاق ، "D4: D11" هو النطاق على أساس العمود الذي نحسبه الصفوف وأخيراً قمنا بتعيينه إلى rng .
FOR <ستتحقق الحلقة 2> إذا كانت أي من خلايا هذا النطاق تحتوي على قيمة مبيعات أكبر من 3000 باستخدام وظيفة COUNTIF (أو يمكنك تجربة أي خلية أخرى شروط مثل أقل من أو أكبر من أو يساوي ، وما إلى ذلك) وبالنسبة للخلايا التي تحتوي على هذه القيمة ، ستتم زيادة X بمقدار 1 في كل مرة.
أخيرًا ، سنحصل على إجمالي أرقام الصفوف بقيم أكبر من 3000 من خلال مربع رسالة.
➤ اضغط على F5 .
بعد ذلك ، سيكون لديك 3 كإجمالي عدد صفوف العمود المبيعات الذي يحتوي على المبيعاتالقيم الأكبر من 3،000.00 $ في مربع رسالة.
اقرأ المزيد: كيف يقوم Excel بحساب الصفوف ذات القيمة (8 الطرق)
الطريقة 9: عد الصفوف بسلسلة نصية محددة
سنحصل هنا على عدد الصفوف التي تحتوي على apple تمامًا أو جزئيًا في العمود المنتج .
الخطوات :
اتبع الخطوة- 01 من الطريقة الأولى .
➤ اكتب الكود التالي
5250
هنا ، أعلنا أن X على أنه طويل ، Y ، و rng مثل النطاق ، "B4: B11" هو النطاق على أساس العمود الذي تعد الصفوف وأخيرًا قمنا بتعيينها إلى rng .
ستتحقق الحلقة FOR إذا كانت أي من خلايا هذا النطاق تحتوي على السلسلة النصية "تطبيق" باستخدام وظيفة COUNTIF (هنا ، سيتم احتسابها لكل من المطابقات التامة والمطابقات الجزئية باستخدام الرمز النجمة قبل السلسلة وبعدها) ، و بالنسبة للخلايا التي تحتوي على هذه القيمة ، سيتم زيادة X بمقدار 1 كل مرة هـ.
أخيرًا ، سنحصل على إجمالي أرقام الصفوف بسلسلة نصية apple من خلال مربع رسالة.
➤ اضغط على F5 .
بعد ذلك ، سيكون لديك 2 كإجمالي عدد صفوف العمود المنتج الذي يحتوي على السلاسل النصية Apple و الأناناس في مربع رسالة.
قراءة المزيد: كيفية عد الصفوف مع النص في Excel (أسهل8 طرق)
قسم التدريب
للقيام بالممارسة بنفسك قدمنا قسمًا تدريب كما هو موضح أدناه في ورقة باسم ممارسة . يرجى القيام بذلك بنفسك.
الاستنتاج
في هذه المقالة ، حاولنا تغطية طرق حساب الصفوف بالبيانات في عمود باستخدام Excel VBA بسهولة. اتمنى انك ستجده مفيدا. إذا كان لديك أي اقتراحات أو أسئلة ، فلا تتردد في مشاركتها في قسم التعليقات.
