كيفية تسليط الضوء على الخلايا في vba: مع أمثلة

يمكنك استخدام الطرق التالية في VBA لتمييز الخلايا:

الطريقة الأولى: تمييز الخلية النشطة

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

سيقوم هذا الماكرو المحدد بتمييز الخلية النشطة حاليًا بخلفية صفراء.

الطريقة الثانية: تمييز نطاق الخلايا

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

سيقوم هذا الماكرو المحدد بتمييز كل خلية في النطاق B2:B10 بخلفية صفراء.

الطريقة الثالثة: تمييز نطاق الخلايا بناءً على المعايير

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

سيقوم هذا الماكرو المحدد بتمييز كل خلية في النطاق B2:B10 لها قيمة أكبر من 20.

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

المثال 1: قم بتمييز الخلية النشطة

افترض أن الخلية B3 محددة حاليًا.

يمكننا إنشاء الماكرو التالي لتسليط الضوء على هذه الخلية النشطة:

 SubHighlightActiveCell ()
ActiveCell.Interior.Color = vbYellow
End Sub

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

لاحظ أنه تم تمييز الخلية B3 وأن جميع الخلايا الأخرى تظل دون تغيير.

المثال 2: قم بتمييز نطاق من الخلايا

لنفترض أننا نريد تسليط الضوء على كل خلية في النطاق B2:B10 .

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubHighlightRange ()
Range(" B2:B10 ").Interior.Color = vbYellow
End Sub

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

لاحظ أنه يتم تمييز كل خلية في النطاق B2:B10 وتظل كافة الخلايا الأخرى دون تغيير.

المثال 3: قم بتمييز نطاق من الخلايا بناءً على المعايير

لنفترض أننا نريد تمييز كل خلية في النطاق B2:B10 لها قيمة أكبر من 20.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubHighlightRangeBasedOnCriteria ()

  Dim rng As Range
  
  For Each rng In Range(" B2:B10 ")
  
      If rng.Value > 20 Then
        rng.Interior.Color = vbYellow
      End If
      
  Next rng
  
End Sub

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

لاحظ أنه يتم تمييز كل خلية في النطاق B2:B10 بقيمة أكبر من 20 وتظل كافة الخلايا الأخرى دون تغيير.

مصادر إضافية

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

فبا: كيفية تطبيق التنسيق الشرطي على الخلايا
VBA: كيفية تطبيق التنسيق الشرطي على القيم المكررة
فبا: كيفية العثور على القيمة في عمود