تلوين الخلية الفعالة – Active Cell

تلوين الخلية الفعالة – Active Cell:

فعِّل برنامج VBA بالضغط على Atl + F11 من لوحة المفاتيح لديك والصق الكود التالي في ورقة العمل التي تعمل عليها (التي تريد استخدام الكود فيها).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.ScreenUpdating = False

     ' اجعل جميع خلايا ورقة العمل الحالية بدون لون

    Cells.Interior.ColorIndex = 0

     ' لون الخلية الفعالة باللون ذو الكود 8

    Target.Interior.ColorIndex = 8

     Application.ScreenUpdating = True

End Sub

تلوين كامل سطر وعمود الخلية الفعالة – Active Cell:

تلوين كامل سطر وعمود الخلية الفعالة

يمكنك اسخدام الكود التالي في حال أردت أن تلوِّن كامل سطر وعمود الخلية الفعالة – Active Cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   

If Target.Cells.Count > 1 Then Exit Sub

    Application.ScreenUpdating = False

        ' اجعل جميع خلايا ورقة العمل الحالية بدون لون

    Cells.Interior.ColorIndex = 0

        With Target

        ' لون كامل سطر الخلية الفعالة

        .EntireRow.Interior.ColorIndex = 8

            ' لون كامل عمود الخلية الفعالة

        .EntireColumn.Interior.ColorIndex = 8

    End With

        Application.ScreenUpdating = True

End Sub

تلوين سطر وعمود الخلية الفعالة – Active Cell (النطاق مابين الخلية الفعالة و اسم السطر والعمود):

تلوين جزء من سطر وعمود الخلية الفعالة

من خلال الكود التالي, يمكنك تلوين جزء من سطر وعمود الخلية الفعالة– Active Cell والواقع مابين الخلية الفعالة– Active Cell واسم السطر أو العمود.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As 

Integer, j As Integer

' اجعل جميع خلايا ورقة العمل الحالية بدون لون

Cells.Interior.ColorIndex = 0

rowNumberValue = ActiveCell.Row

columnNumberValue = ActiveCell.Column

'  لون عمود الخلية الفعالة مابين الخلية الفعالة واسم العمود

For i = 1 To rowNumberValue

Cells(i, columnNumberValue).Interior.ColorIndex = 6

Next i

' لون سطر الخلية الفعالة مابين الخلية الفعالة واسم العمود

For j = 1 To columnNumberValue

Cells(rowNumberValue, j).Interior.ColorIndex = 6

Next j

End Sub