كيفية تعيين عرض عمود جدول بيانات Excel باستخدام VBA؟

تم التحديث: أغسطس 2021 ؛ يعمل على Excel 365 ، 2019 ، 2016.

في البرنامج التعليمي الخاص بأتمتة Excel اليوم ، سنتعلم كيفية تغيير عرض عمود ورقة العمل بسرعة حسب الحاجة - ولكن باستخدام VBA (Visual Basic for Applications) برمجيًا.

المتطلبات الأساسية

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

• في جهاز الكمبيوتر الذي يعمل بنظام Windows ، افتح Microsoft Excel .
• على الشريط الرئيسي ، اضغط على Developer .
• اضغط على أمر Visual Basic . سيؤدي هذا إلى فتح محرر VBA .
• في مستكشف المشروع الموجود على الجانب الأيسر ، قم بتمييز ورقة محددة ستقوم بإدخال التعليمات البرمجية الخاصة بك فيها. بدلاً من ذلك ، يمكنك إدراج وحدة نمطية جديدة أو إضافة رمزنا إلى وحدة VBA الحالية.

ضبط عرض عمود واحد

في هذا المثال ، سنختار عمودًا واحدًا في ورقة العمل النشطة ونقوم بتعديله وفقًا لذلك.

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

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• شغّل التعليمات البرمجية بالضغط على F5 أو اختر Run >> Run Sub أو Form.
• احفظ عملك بالضغط على ملف >> حفظ أو أيقونة القرص.

تغيير عرض نطاق متعدد الأعمدة

في هذا المثال ، نختار مجموعة من الأعمدة ، ثم نغير العرض.

يمكنك تطبيق الكود بنفس الطريقة الموضحة في القسم السابق.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

الخطوات التالية

البدء بـ VBA؟ تأكد من إلقاء نظرة على دليل أساسيات VBA لبرنامج Excel .