كيفية إجراء تغييرات على الخط باستخدام vba؟

الملاحظات الرئيسية

• لإجراء تغييرات على الخط، يجب عليك استخدام كائن الخط VBA.
• يوجد إجمالي 18 خاصية مع كائن الخط الذي يمكنك الوصول إليه وإجراء تغييرات عليه.

كائن الخط VBA

في VBA، يوجد كائن خط يمكنك استخدامه لتغيير خصائص الخط من خلية، مثل لون الخط وحجم الخط ونوع الخط، ويمكنك أيضًا تطبيق الخط الغامق والمائل على الخط.

بناء الجملة

 expression.font

لاستخدامها، يجب عليك أولاً تعيين عنوان الخلية، والذي يمكنك تحديده بالطرق التالية.

 Selection.Font Range("A1").Font Cells(1, 1).Font Range("A1:A5").Font

لون الخط VBA

لتغيير لون الخط، لديك طريقتان مختلفتان:

1. استخدام ثوابت الألوان

يحتوي Excel على بعض ثوابت الألوان التي يمكنك استخدامها لتطبيق لون على الخط. على سبيل المثال، إذا كنت تريد تطبيق اللون الأحمر على الخط في الخلية A1، فسيكون الكود كما يلي:

 Range("A1").Font.Color = vbRed

في الكود أعلاه، بعد كائن الخط، اللون هو الخاصية وقد استخدمت ثابت vbRed الذي يخبر VBA بتطبيق اللون الأحمر على الخلية A1. هناك إجمالي ثمانية ثوابت يمكنك استخدامها:

1. vbBlack: أسود
2. فبريد: أحمر
3. فبجرين: أخضر
4. vbYellow: أصفر
5. vbBlue: أزرق
6. vbMagenta: أرجواني
7. فبسماوي: سماوي
8. vbWhite: أبيض

2. باستخدام RGB

يمكنك أيضًا استخدام ترميز الألوان RGB لتطبيق لون على الخط. RGB هو مزيج الألوان من الأحمر والأخضر والأزرق، حيث يمكنك إنشاء لون مخصص باستخدام التعليمات البرمجية. لنفترض أنك إذا أردت تطبيق مجموعة من الألوان الخضراء والزرقاء على الخلية A1، فسيكون الرمز كما يلي:

 Range("A1").Font.Color = RGB(0, 255, 255)

حجم الخط VBA

يتيح لك كائن الخط أيضًا الوصول إلى خاصية حجم الخط. لنفترض أنك تريد تطبيق حجم الخط 16 على الخط الموجود في الخلية A1، فسيكون الرمز:

 Range("A1").Font.Size = 16

إذا كنت تريد تطبيق حجم الخط على كافة الخلايا في ورقة العمل، يمكنك استخدام التعليمات البرمجية التالية:

 Cells.Font.Size = 16

وإذا كنت تريد فقط تطبيق حجم الخط على الخلايا التي تحتوي على بيانات، فسيكون الكود كما يلي:

 ActiveSheet.UsedRange.Font.Size = 16

أو إلى الخلية المحددة.

 Selection.Font.Size = 16

اسم الخط VBA

وبالمثل، يمكنك أيضًا تغيير اسم الخط باستخدام خاصية الاسم لكائن الخط. لنفترض أنك تريد تطبيق الخط “Consolas” على الخلية A1. الكود سيكون:

 Range("A1").Font.Name = "Consolas"

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

خط VBA غامق ومائل وتحته خط

هناك أيضًا خصائص يمكنك استخدامها لجعل الخط غامقًا ومائلًا ومُسطرًا. فيما يلي الرموز التي تحتاج إلى كتابتها لهذا الغرض.

 Range("A1").Font.Bold = True Range("A1").Font.Italic = True Range("A1").Font.Underline = True

باستخدام هذه الخصائص، يجب عليك تعيين TRUE أو FALSE. لذا، إذا كان الخط غامقًا أو مائلًا بالفعل وتريد إزالته، فستحتاج إلى استخدام FALSE لإزالته.

خصائص الخط المفيدة الأخرى

أضف بعض الخصائص الإضافية هنا التي قد تكون مفيدة لك ( يتوسطه خط ، ومنخفض ، ومرتفع ).

 Range("A1").Font.Strikethrough = True Range("A1").Font.Subscript = True Range("A1").Font.Superscript = True