كيفية إجراء تغييرات على الخط باستخدام 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. هناك إجمالي ثمانية ثوابت يمكنك استخدامها:
- vbBlack: أسود
- فبريد: أحمر
- فبجرين: أخضر
- vbYellow: أصفر
- vbBlue: أزرق
- vbMagenta: أرجواني
- فبسماوي: سماوي
- 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
الدروس ذات الصلة
- عد الصفوف باستخدام VBA في Excel
- Excel VBA إخفاء وإظهار عمود أو صف
- نطاق Excel VBA – العمل مع النطاق والخلايا
- تطبيق الحدود على خلية باستخدام VBA في Excel
- البحث عن الصف الأخير والعمود والخلية باستخدام VBA في Excel