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

تنزيل Practice Workbook

يمكنك تنزيل ملف Excel من الرابط التالي والممارسة جنبًا إلى جنب مع

عد الأعمدة مع Data.xlsm

2 طرق لحساب الأعمدة باستخدام VBA في Excel

1 عد جميع الأعمدة في ورقة عمل بالبيانات باستخدام رمز VBA بسيط

يمكننا رؤية الأعمدة الثلاثة في جدول البيانات التالي. سنستخدم الآن رمز VBA لتحديد عدد الأعمدة المستخدمة في ورقة عمل Excel واحدة.

❶ أولاً ، اضغط على ALT + F11 لفتح محرر VBA.

❷ بعد ذلك قم بإنشاء وحدة نمطية جديدة من Insert & gt؛ الوحدة النمطية.

❸ بعد ذلك انسخ نص VBA التالي.

9032

❹ ثم ارجع إلى محرر VBA واضغط على CTRL + V للصقه.

❺ الآن احفظ رمز VBA بالضغط على الزر CTRL + S .

❻ لتشغيل التعليمات البرمجية لـ VBA ، انتقل إلى علامة التبويب Developer وانقر فوق وحدات الماكرو . أو ببساطة اضغط على F5مفتاح .

سيظهر مربع الحوار ماكرو

❼ كل ما عليك فعله هو النقر فوق الزر تشغيل .

الآن سترى ظهور مربع حوار. وهو ما يعني أن عدد الأعمدة التي تحتوي على بيانات هو 3.

اقرأ المزيد: كيفية حساب عدد الأعمدة في Excel (3 سهل الطرق)

2. عد جميع الأعمدة في نطاق معين بالبيانات باستخدام رمز Excel VBA

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

لاستخدام الكود ،

❶ أولاً ، افتح محرر VBA بالضغط على ALT + F11.

❷ ثم اذهب إلى إدراج & GT. الوحدة النمطية لإنشاء وحدة نمطية جديدة.

❸ بعد ذلك انسخ نص VBA التالي.

7303

ارجع إلى محرر VBA واضغط CTRL + V للصقه.

❺ الآن احفظ الكود بالضغط على CTRL + S.

❻ انتقل إلى علامة التبويب Developer واضغط على وحدات الماكرو لفتح نافذة Macro .

أو ، ما عليك سوى الضغط على مفتاح F5 للاستفادة من مربع الحوار ماكرو .

❼ من مربع الحوار ، اختر اسم الوظيفة CountColumnsInARange واضغط على تشغيل زر.

أخيرًا ، سيظهر مربع حوار صغير يوضح أن العدد الإجمالي للأعمدة هو 3.

قراءة المزيد: كيفية حساب الأعمدة لـ VLOOKUP في Excel (طريقتان)

المزيد من أكواد VBA لحساب الأعمدة في Excel

1. يستخدمVBA Range.End الطريقة لإرجاع رقم العمود المستخدم الأخير

للحصول على رقم العمود الأخير المستخدم في جدول بيانات Excel ،

❶ أولاً وقبل كل شيء ، افتح محرر VBA بالضغط على ALT + F11.

❷ ثم انتقل إلى Insert & gt؛ الوحدة النمطية لإنشاء وحدة نمطية جديدة.

❸ انسخ ما يلي VBA code:

8359

الصق واحفظ رمز في محرر VBA.

❺ اضغط على مفتاح F5 لتشغيل الكود أعلاه.

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

اقرأ المزيد: كيفية حساب الأعمدة حتى الوصول إلى القيمة في Excel

2. استخدم Range.Find طريقة لإرجاع رقم العمود الأخير المستخدم في Excel

إذا كنت تبحث عن رموز VBA لإرجاع رقم العمود المستخدم الأخير ، فاتبع الخطوات أدناه :

❶ أولاً ، اضغط على ALT + F11 لفتح محرر VBA.

❷ بعد ذلك قم بإنشاء وحدة نمطية جديدة من Insert & gt؛ الوحدة النمطية.

❸ انسخ كود VBA التالي:

4551

❹ ثم ارجع إلى محرر VBA واضغط على CTRL + V للصقه.

❺ الآن احفظ رمز VBA بالضغط على الزر CTRL + S .

الآن ، اضغط المفتاح F5 لتشغيل الكود أعلاه.

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

أشياء يجب تذكرها

• اضغط على ALT + F11 لفتح محرر VBA.
• يمكنك الضغط على ALT +F8 للاستفادة من مربع الحوار وحدات الماكرو .
• لتشغيل كود VBA ، اضغط على F5.

الخاتمة

للتلخيص ، لقد ناقشنا طريقتين لحساب الأعمدة بالبيانات باستخدام VBA في Excel. يوصى بتنزيل كتيب التدريب المرفق مع هذه المقالة وممارسة جميع الأساليب مع ذلك. ولا تتردد في طرح أي أسئلة في قسم التعليقات أدناه. سنحاول الرد على جميع الاستفسارات ذات الصلة في أسرع وقت ممكن. ويرجى زيارة موقعنا على الإنترنت ExcelWIKI لاستكشاف المزيد.