كيفية تغيير عرض العمود في vba (مع أمثلة)

يمكنك استخدام الطرق التالية لتغيير عرض الأعمدة في Excel باستخدام VBA:

الطريقة الأولى: تغيير عرض العمود

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

يغير هذا الماكرو عرض العمود B إلى 20 .

ملاحظة : عرض العمود الافتراضي في Excel هو 8.29 .

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

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

يغير هذا الماكرو عرض كافة الأعمدة في النطاق من B إلى D إلى 20 .

الطريقة الثالثة: ضبط عرض الأعمدة المتعددة تلقائيًا

 SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub

يقوم هذا الماكرو المعين تلقائيًا بضبط عرض كل عمود في النطاق من B إلى D ليكون بالعرض اللازم لعرض أطول خلية في كل عمود.

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel:

مثال 1: تغيير عرض العمود

يمكننا إنشاء الماكرو التالي لتغيير عرض العمود B إلى 20:

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن عرض العمود B فقط (عمود “النقاط”) تغير إلى 20 بينما ظل عرض جميع الأعمدة الأخرى كما هو.

مثال 2: تغيير عرض أعمدة متعددة

يمكننا إنشاء الماكرو التالي لتغيير عرض الأعمدة من B إلى D إلى 20:

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أن عرض كل عمود من B إلى D قد تغير إلى 20 بينما ظل عرض العمود A كما هو.

مثال 3: ضبط عرض أعمدة متعددة تلقائيًا

يمكننا إنشاء الماكرو التالي لضبط عرض كل عمود تلقائيًا من A إلى D بحيث يكون بالعرض اللازم لعرض أطول خلية في كل عمود.

 SubChangeColumnWidth ()
Columns(" A:D ").AutoFit
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تم ضبط عرض كل عمود تلقائيًا ليكون بالعرض اللازم لعرض أطول خلية في كل عمود.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

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