كيفية تمييز الصفوف في vba: مع أمثلة
يمكنك استخدام الطرق التالية في VBA لتمييز الخطوط:
الطريقة الأولى: تمييز الصف النشط
SubHighlightActiveRow ()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub
سيقوم هذا الماكرو المحدد بتمييز الصف النشط حاليًا.
الطريقة الثانية: قم بتمييز صف معين
SubHighlightSpecificRow ()
Rows(" 4:4 ").Interior.Color = vbYellow
End Sub
سيقوم هذا الماكرو المحدد بتمييز الصف 4 من الورقة الحالية.
الطريقة الثالثة: تمييز صفوف محددة متعددة
SubHighlightSpecificRows ()
Range(" 2:2,4:4,6:6,8:8 ").Interior.Color = vbYellow
End Sub
سيقوم هذا الماكرو المحدد بتمييز الصفوف 2 و4 و6 و8 من الورقة الحالية.
ملاحظة : لتمييز كافة الأسطر بين 2 و8، يمكنك كتابة Range(“2:8”) بدلاً من ذلك.
توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.
مثال 1: قم بتمييز الصف النشط
افترض أن الخلية B3 محددة حاليًا.
يمكننا إنشاء الماكرو التالي لتمييز كل خلية في الصف النشط حاليًا
SubHighlightActiveRow ()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub
عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:
لاحظ أنه تم تمييز كل خلية في الصف الثالث وأن جميع الصفوف الأخرى تظل دون تغيير.
المثال 2: قم بتمييز صف معين
لنفترض أننا نريد تسليط الضوء على الصف الرابع فقط.
يمكننا إنشاء الماكرو التالي للقيام بذلك:
SubHighlightSpecificRow ()
Rows(" 4:4 ").Interior.Color = vbYellow
End Sub
عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:
لاحظ أنه تم تمييز كل خلية في الصف الرابع وأن جميع الصفوف الأخرى تظل دون تغيير.
المثال 3: قم بتمييز صفوف محددة متعددة
لنفترض أننا نريد تسليط الضوء على الصفوف 2 و4 و6 و8 من الورقة الحالية.
يمكننا إنشاء الماكرو التالي للقيام بذلك:
SubHighlightSpecificRows ()
Range(" 2:2,4:4,6:6,8:8 ").Interior.Color = vbYellow
End Sub
عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:
لاحظ أنه تم تمييز الأسطر 2 و4 و6 و8 جميعها وتبقى جميع الأسطر الأخرى سليمة.
ملاحظة : في كل مثال، نختار استخدام اللون الأصفر (vbYellow) كلون التمييز، ولكن يمكنك اختيار لون مختلف مثل vbRed، وvbGreen، وvbBlue، وما إلى ذلك.
مصادر إضافية
تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:
فبا: كيفية تسليط الضوء على الخلايا
فبا: كيفية تطبيق التنسيق الشرطي على الخلايا
VBA: كيفية تطبيق التنسيق الشرطي على القيم المكررة