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

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

الطريقة الأولى: تغيير ارتفاع الصف

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

يغير هذا الماكرو ارتفاع الصف الثالث إلى 40 .

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

الطريقة الثانية: تغيير ارتفاع صفوف متعددة

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

يغير هذا الماكرو ارتفاع كل صف من واحد إلى خمسة إلى 40 .

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

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

يقوم هذا الماكرو المعين تلقائيًا بضبط ارتفاع كل سطر من واحد إلى ثمانية بحيث يكون طويلًا حسب الضرورة لعرض أطول نص في كل سطر.

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

ذات صلة: كيفية تغيير عرض العمود في VBA

مثال 1: تغيير ارتفاع الصف

يمكننا إنشاء الماكرو التالي لتغيير ارتفاع الصف الثالث إلى 40:

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

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

لاحظ أنه تمت زيادة ارتفاع الصف الثالث فقط إلى 40 بينما ظل ارتفاع جميع الصفوف الأخرى كما هو.

مثال 2: تغيير ارتفاع أسطر متعددة

يمكننا إنشاء الماكرو التالي لتغيير ارتفاع كل صف من واحد إلى خمسة إلى 40:

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

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

لاحظ أن ارتفاع كل صف من الصفوف الخمسة الأولى قد تغير إلى 40 بينما ظل ارتفاع جميع الصفوف الأخرى كما هو.

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

يمكننا إنشاء الماكرو التالي لضبط ارتفاع كل سطر من الأسطر الثمانية الأولى تلقائيًا بحيث يكون طويلًا حسب الضرورة لعرض أطول نص في كل سطر:

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

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

لاحظ أنه تم ضبط ارتفاع كل سطر تلقائيًا ليكون طويلًا حسب الضرورة لعرض أطول نص في كل سطر:

مصادر إضافية

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

VBA: كيفية العثور على آخر سطر مستخدم
VBA: كيفية إدراج سطر بالتنسيق
فبا: كيفية حساب عدد الصفوف في النطاق