Nhờ sửa code Worksheet_SelectionChange (1 người xem)

[LanAnh19]

Tôi có làm đoạn code như sau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    If Target.Address = "$I$7" Then
        Range(Target.Address).Font.Color = 3
    Else
        Range(Target.Address).Font.Color = 0
    End If

    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Nếu chọn ô I7 thì đổi màu chữ (thành chữ đen)
Nếu không chọn thì thì ô I7 không có màu chữ (thành chữ màu trắng)
Nhờ các bạn sửa code trên
Hiện nay , khi chọn ô I7 thì chữ thành màu đen
nhưng chọn 1 ô khác bất kỳ thì ô I7 vẫn chữ màu đen , tôi muốn thành chữ màu trắng
Nhờ các bạn giúp. Xin cảm ơn!

 

[snow25]

Tôi có làm đoạn code như sau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    If Target.Address = "$I$7" Then
        Range(Target.Address).Font.Color = 3
    Else
        Range(Target.Address).Font.Color = 0
    End If

    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Nếu chọn ô I7 thì đổi màu chữ (thành chữ đen)
Nếu không chọn thì thì ô I7 không có màu chữ (thành chữ màu trắng)
Nhờ các bạn sửa code trên
Hiện nay , khi chọn ô I7 thì chữ thành màu đen
nhưng chọn 1 ô khác bất kỳ thì ô I7 vẫn chữ màu đen , tôi muốn thành chữ màu trắng
Nhờ các bạn giúp. Xin cảm ơn!

Chỗ sau câu lệnh Else thì nó phải là range("I7").font.clor - 0 chứ.

 

[bebo021999]

Thử cái này xem sao nhé: (Sửa lại chút do nhầm màu)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("I7").Font
    If Target.Address(0, 0) <> "I7" Then
        .Color = vbWhite
    Else
        .Color = vbBlack
    End If
End With
End Sub

Nếu giả sử ô I7 được tô màu nền mà bạn muốn dấu chữ (màu chữ trùng màu nền) thì thay
.Color = vbWhite
bằng
.Color = .Interior.Color

 

[BuiQuangThuan]

nhưng chọn 1 ô khác bất kỳ thì ô I7 vẫn chữ màu đen , tôi muốn thành chữ màu trắng
Nhờ các bạn giúp. Xin cảm ơn!

sưa code thành như này coi thế nào

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Target.Address = "$I$7" Then
        Range("I7").Font.Color = RGB(0, 0, 0)
    Else
        Range("I7").Font.Color = RGB(255, 255, 255)
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[LanAnh19]

Xin cảm ơn các anh, chị nhiều.