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

تنزيل Practice Workbook

يمكننا تنزيل المصنف التدريبي من هنا .

8 أمثلة سهلة لـ VBA لتحديد UsedRange في العمود

في الصورة التالية ، يمكننا أن نرى مجموعة البيانات التي سنستخدمها لجميع الأمثلة. تحتوي مجموعة البيانات على أسماء مندوبي المبيعات ، الموقع ، المنطقة ، و " المبلغ الإجمالي " للمبيعات. في مجموعة البيانات هذه ، سيتم اعتبار النطاق المستخدم متضمنًا العنوان. لذا ، فإن النطاق المستخدم في مجموعة البيانات التالية هو ( B2: E15 ).

1. حدد UsedRange في العمود باستخدام VBA في Excel

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

الخطوات:

• للبدء ، انقر بزر الماوس الأيمن فوق على الورقة النشطة المسماة ' Select_Columns '.
• بالإضافة إلى ذلك ، حدد الخيار ' عرض الرمز '.

• بعد ذلك ، يفتح الإجراء أعلاه فراغًا VBA نافذة التعليمات البرمجية لورقة العمل هذه. يمكننا أيضًا الحصول على نافذة الكود هذه بالضغط على Alt + F11 .
• بعد ذلك ، اكتب الكود التالي في نافذة الكود هذه:

9999

• بعد ذلك ، انقر فوق تشغيل أو اضغط على مفتاح F5 لتشغيل الكود.

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

2. استخدم VBA لنسخ UsedRange بالكامل في العمود

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

الخطوات:

• أولاً ، انتقل إلى علامة تبويب ورقة العمل النشطة المسماة ' نسخ '.
• التالي ، انقر بزر الماوس الأيمن فوق في علامة التبويب تلك وحدد الخيار' عرض الرمز '.

• سيفتح نافذة كود VBA فارغة لورقة العمل الحالية. هناك طريقة أخرى للحصول على هذه النافذة وهي الضغط على Alt + F11 من لوحة المفاتيح.
• ثم ، أدخل الكود أدناه في نافذة الكود هذه:

8177

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

• أخيرًا ، يمكننا رؤية النتيجة كما يلي. أيضًا ، يمكننا أن نرى حدًا حول النطاق المستخدم. يشير إلى أن الكود قام بنسخ البياناتداخل هذا الحد.

اقرأ المزيد: Excel VBA: نسخ النطاق الديناميكي إلى مصنف آخر

3. عدد العد من الأعمدة في UsedRange باستخدام VBA

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

STEPS:

• أولاً ، حدد الورقة النشطة المسماة ' Count_Columns '.
• ثانيًا ، انقر بزر الماوس الأيمن فوق على اسم الورقة النشط وانقر فوق الخيار ' عرض الرمز '.

• يفتح الأمر أعلاه نافذة رمز VBA فارغة لورقة العمل النشطة. يمكننا أيضًا الحصول على نافذة الكود بالضغط على Alt + F11 من لوحة المفاتيح.
• ثالثًا ، أدخل الكود التالي في نافذة الكود الفارغة هذه:

2235

• بعد ذلك ، انقر فوق تشغيل أو اضغط على مفتاح F5 لتشغيل الكود.

• أخيرًا ، نحصل على النتيجة في مربع رسالة. عدد الأعمدة في النطاق المستخدم هو 4 .

اقرأ المزيد: كيفية استخدام VBA لحساب عدد الصفوف في النطاق مع البيانات في Excel (5 وحدات ماكرو)

4. Excel VBA لحساب عدد العمود الأخير في النطاق المستخدم

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

الخطوات:

• لتبدأ ، انقر بزر الماوس الأيمن في الورقة النشطة المسماة ' العمود الأخير '.
• بعد ذلك ، حدد الخيار ' عرض الرمز '.

• لذلك ، يفتح الأمر أعلاه نافذة رمز VBA فارغة لورقة العمل هذه. طريقة بديلة لفتح نافذة الكود تلك هي الضغط على Alt + F11 .
• بعد ذلك ، أدخل الكود التالي في نافذة الكود هذه:

2169

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

• في النهاية ، نحصل على النتيجة في مربع رسالة. العمود الأخير في النطاق المستخدم هو العمود الخامس من ورقة العمل.

القراءات المماثلة

• كيفية استخدام VBA لكل صف في نطاق في Excel
• استخدم VBA لتحديد النطاق من الخلية النشطة في Excel (3 طرق)
• Excel Macro: فرز أعمدة متعددة بنطاق ديناميكي (4 طرق)

5. حدد الخلية الأخيرة من العمود الأخير من UsedRange باستخدام VBA

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

الخطوات:

• أولاً ، حدد الورقة النشطة المسماة ' Last_Cell '.
• التالي ، انقر بزر الماوس الأيمن فوق على اسم الورقة هذا. حدد الخيار ' عرض الكود '.

• ثم ، نحصل على نافذة كود VBA فارغة . أيضًا ، يمكننا الضغط على Alt + F11 لفتح نافذة الكود هذه.
• بعد ذلك ، اكتب الكود التالي في نافذة الكود هذه:

2820

• الآن ، لتشغيل الكود ، انقر فوق تشغيل أو اضغط على F5 .

• أخيرًا ، يمكننا أن نرى النتيجة في الصورة التالية. الخلية الأخيرة المحددة للعمود الأخير هي الخلية E15 .

6. ابحث عن نطاق خلايا UsedRange المحدد باستخدام Excel VBA

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

الخطوات:

• في البداية ، انقر بزر الماوس الأيمن فوق في علامة تبويب الورقة النشطة باسم ' Find Cell Range '.
• ثانيًا ، حدد الخيار ' عرض الرمز '.

• سيفتح نافذة كود VBA فارغة. هناك طريقة أخرى لفتح نافذة التعليمات البرمجية هذه وهي الضغط على Alt + F11 .
• ثالثًا ، أدخل الرمز التالي في نافذة التعليمات البرمجية هذه:

9443

• ثم ، لتشغيل الكود انقر فوق تشغيل أو الضغط على مفتاح F5 .

• في النهاية ، مربع رسالة مثل تظهر الصورة التالية النتيجة.

قراءات مماثلة

• VBA للتكرار خلال الصفوف و الأعمدة في نطاق في Excel (5 أمثلة)
• كيفية تحويل النطاق إلى مصفوفة في Excel VBA (3 طرق)

7. إدراج VBA UsedRange Property لحساب الخلايا الفارغة

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

الخطوات:

• أولاً ، انقر بزر الماوس الأيمن فوق في علامة تبويب الورقة النشطة المسماة ' خانات فارغة '.
• بعد ذلك ، حدد الخيار' عرض الكود '.

• الإجراء أعلاه يفتح نافذة كود VBA فارغة. طريقة بديلة لفتح نافذة التعليمات البرمجية هذه هي الضغط على Alt + F11 .
• ثم ، أدخل الكود التالي في نافذة التعليمات البرمجية هذه:

8921

• بعد ذلك ، انقر فوق تشغيل أو اضغط على مفتاح F5 لتشغيل الكود.

• أخيرًا ، سنحصل على النتيجة في مربع الرسائل. السيعرض مربع الرسالة عدد الخلايا الإجمالية والخلايا الفارغة في النطاق المستخدم.

8. VBA UsedRange لتحديد موقع الخلية الفارغة الأولى في العمود في Excel

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

الخطوات:

• لتبدأ ، انقر بزر الماوس الأيمن فوق على العنصر النشط علامة تبويب الورقة المسماة ' First_Empty '.
• بالإضافة إلى ذلك ، حدد الخيار ' عرض الرمز '.

• سيفتح نافذة كود VBA فارغة. يمكننا أيضًا الضغط على Alt + F11 لفتح نافذة التعليمات البرمجية هذه.
• علاوة على ذلك ، اكتب الكود التالي في نافذة التعليمات البرمجية VBA الفارغة:

1136

• ثم ، لتشغيل الكود ، انقر فوق تشغيل أو اضغط على مفتاح F5 .

• أخيرًا ، سيقوم الكود أعلاه بإدراج القيمة ' FirstEmptyCell ' في الخلية E16 . إنها أول خلية فارغة في العمود E بعد النطاق المستخدم لمجموعة البيانات.

اقرأ المزيد: Excel VBA to تكرار خلال النطاق حتى الخلية الفارغة (4 أمثلة)

الخلاصة

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