كيفية ضبط حجم الخط باستخدام vba (مع مثال)

يمكنك استخدام خاصية Font.Size في VBA للحصول على حجم الخط لخلايا معينة في Excel وتعيينه.

على سبيل المثال، يمكنك استخدام الماكرو التالي لإنشاء مربع رسالة يعرض حجم الخط الحالي للخلية A1 :

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

أو يمكنك إنشاء الماكرو التالي لتعيين حجم الخط للخلية A1 إلى 20 :

 Sub SetFontSize()
Range(“ A1 ”). Font.Size = 20
End Sub

أو يمكنك إنشاء الماكرو التالي لجعل حجم الخط في كل خلية في النطاق A1:C1 يساوي 20 :

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

توضح الأمثلة التالية كيفية الحصول على حجم الخط وتعيينه باستخدام VBA مع مجموعة البيانات التالية في Excel:

مثال 1: الحصول على حجم الخط باستخدام VBA

يمكننا إنشاء الماكرو التالي لإنشاء مربع رسالة يعرض حجم الخط الحالي للخلية A1 :

 SubGetFontSize ()
MsgBox Range(" A1 ").Font.Size
End Sub

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

يخبرنا مربع الرسالة أن حجم الخط في الخلية A1 حاليًا هو 11 .

هذا هو حجم الخط الافتراضي في Excel.

مثال 2: تعيين حجم الخط لخلية معينة باستخدام VBA

يمكننا إنشاء الماكرو التالي لتعيين حجم الخط للخلية A1 إلى 20 :

 Sub SetFontSize()
Range(" A1 ").Font.Size = 20
End Sub

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

يمكننا أن نرى أن حجم خط الخلية A1 قد تغير إلى 20 بينما ظل حجم خط جميع الخلايا الأخرى دون تغيير.

مثال 3: تعيين حجم الخط لنطاق من الخلايا باستخدام VBA

يمكننا إنشاء الماكرو التالي لتعيين حجم الخط لكل خلية في النطاق A1:C1 إلى 20 :

 Sub SetFontSize()
Range(" A1:C1 ").Font.Size = 20
End Sub

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

يمكننا أن نرى أن حجم الخط لكل خلية في النطاق A1:C1 قد تم تغييره إلى 20 بينما ظل حجم الخط لجميع الخلايا الأخرى دون تغيير.

ملاحظة : يمكنك العثور على الوثائق الكاملة لخاصية VBA Font.Size هنا .

مصادر إضافية

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

فبا: كيفية تغيير لون الخط
VBA: كيفية جعل الخط غامقًا
فبا: كيفية استبدال الأحرف في سلسلة