Excel VBA - 單元格顏色更改

Question

我試圖編寫一個宏，它根據列L中的值更改顏色。如果L列中的單元格爲YES，則Hightlight列B單元格爲紅色。但是，下面的宏不起作用或失敗。它運行但什麼都不做。

Sub ColorMeElmo() 
    Dim i As Long, r1 As Range, r2 As Range 
    For i = 2 To 5 
    Set r1 = Range("L" & i) 
    Set r2 = Range("B" & i & ":B" & i) 
    If r1.Value = "YES" Then r2.Interior.Color = vbRed 
    Next i 
    End Sub 

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim CCell As Range 
    Dim sht As Worksheet 
    Set CCell = Range("L:L") 
    Set sht = Worksheets("SheetName") 
    If Target.Count = 1 Then 
     If Not Application.Intersect(CCell, Range(Target.Address)) _ 
      Is Nothing Then 
       If Target.Value = "YES" Then 
        sht.Cells(Target.Row, 2).Interior.Color = RGB(255, 0, 0) 
       End If 
     End If 
    End If 
End Sub 

Answer 2

把它放在你想要觀看的圖表中。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim CCell As Range 
    Dim sht As Worksheet 
    Set CCell = Range("L:L") 
    Set sht = Worksheets("Sheet1") 'EDIT 
    If Target.Count = 1 Then 
     If Not Application.Intersect(CCell, Range(Target.Address)) _ 
      Is Nothing Then 
       If Target.Value = "YES" Then 
        sht.Cells(Target.Row, 2).Interior.Color = RGB(255, 0, 0) 
       End If 
     End If 
    End If 
End Sub