كيفية الاحتواء التلقائي للأعمدة باستخدام vba (مع مثال)

يمكنك استخدام أسلوب الاحتواء التلقائي في VBA لضبط عرض عمود واحد أو أكثر تلقائيًا في ورقة عمل Excel.

فيما يلي طريقة شائعة لاستخدام هذه الطريقة عمليًا:

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

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

يوضح المثال التالي كيفية استخدام أسلوب الاحتواء التلقائي عمليًا.

مثال: كيفية الاحتواء التلقائي للأعمدة باستخدام VBA

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

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

يمكننا إنشاء الماكرو التالي للقيام بذلك:

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

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

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

لاحظ أنه إذا كنت تريد ضبط كل عمود تلقائيًا في ورقة عمل معينة، فيمكنك استخدام بناء الجملة التالي:

 SubAutoFitColumns ()
ThisWorkbook.Worksheets(" Sheet1 ").Cells.EntireColumn.AutoFit
End Sub

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

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

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب الاحتواء التلقائي في VBA هنا .

مصادر إضافية

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

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