تم التحديث: أغسطس 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 .