كيفية توسيط النص باستخدام vba (مع مثال)

يمكنك استخدام خصائص HorizontalAlignment و VerticalAlignment في VBA لتوسيط النص في خلايا محددة في Excel أفقيًا وعموديًا على التوالي.

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

الطريقة الأولى: توسيط النص أفقيًا باستخدام VBA

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

الطريقة الثانية: توسيط النص عموديًا باستخدام VBA

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

الطريقة الثالثة: توسيط النص أفقيًا وعموديًا باستخدام VBA

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

مثال 1: توسيط النص أفقيًا باستخدام VBA

يمكننا إنشاء الماكرو التالي لتوسيط النص في كل خلية في النطاق A2:A11 أفقيًا:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
End Sub

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

لاحظ أنه تم توسيط النص الموجود في كل خلية في النطاق A2:A11 أفقيًا.

المثال 2: توسيط النص عموديًا باستخدام VBA

يمكننا إنشاء الماكرو التالي لتوسيط النص عموديًا في كل خلية في النطاق A2:A11 :

 SubCenterText ()
Range(" A2:A11 ").VerticalAlignment = xlCenter
End Sub

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

لاحظ أنه تم توسيط النص الموجود في كل خلية في النطاق A2:A11 عموديًا.

مثال 3: توسيط النص أفقيًا وعموديًا باستخدام VBA

يمكننا إنشاء الماكرو التالي لتوسيط النص في كل خلية في النطاق A2:A11 أفقيًا وعموديًا:

 SubCenterText ()
Range(" A2:A11 ").HorizontalAlignment = xlCenter
Range(" A2:A11 ").VerticalAlignment = xlCenter 
End Sub

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

لاحظ أنه تم توسيط النص الموجود في كل خلية في النطاق A2:A11 أفقيًا وعموديًا.

مصادر إضافية

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

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