VBA多个IF值

Question

下面的代码工作，并更改北进入时的偏移单元格，我也想让它改变，如果它的南，西或东，但我似乎可以找到一种方法来添加此。

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim KeyCells As Range 


Set KeyCells = Range("A7:A26") 
Set rng = Range("A7:A26") 

If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
     Is Nothing Then 

    For Each cell In rng.Cells 
     If cell.Value = "North" Then 
      cell.Offset(0, 1).Interior.Color = RGB(0, 255, 0) 
      cell.Offset(0, 2).Interior.Color = RGB(0, 255, 0) 
      cell.Offset(0, 3).Interior.Color = RGB(0, 255, 0) 
     End If 
    Next 

    End If 


End Sub 

Answer 1

给这个一杆。根据需要更新颜色分配：

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim KeyCells As Range 

Set KeyCells = Range("A7:A26") 
Set rng = Range("A7:A26") 

If Not Application.Intersect(KeyCells, Range(Target.Address)) _ 
    Is Nothing Then 
    For Each cell In rng.Cells 
     If cell.Value = "North" Then 
      cell.Offset(0, 1).Interior.Color = RGB(0, 255, 0) 
      cell.Offset(0, 2).Interior.Color = RGB(0, 255, 0) 
      cell.Offset(0, 3).Interior.Color = RGB(0, 255, 0) 
     ElseIf cell.Value = "South" Then 
      cell.Offset(0, 1).Interior.Color = RGB(255, 0, 0) 
      cell.Offset(0, 2).Interior.Color = RGB(255, 0, 0) 
      cell.Offset(0, 3).Interior.Color = RGB(255, 0, 0) 
     ElseIf cell.Value = "East" Then 
      cell.Offset(0, 1).Interior.Color = RGB(0, 0, 255) 
      cell.Offset(0, 2).Interior.Color = RGB(0, 0, 255) 
      cell.Offset(0, 3).Interior.Color = RGB(0, 0, 255) 
     ElseIf cell.Value = "West" Then 
      cell.Offset(0, 1).Interior.Color = RGB(0, 255, 255) 
      cell.Offset(0, 2).Interior.Color = RGB(0, 255, 255) 
      cell.Offset(0, 3).Interior.Color = RGB(0, 255, 255) 
     End If 
    Next 
End If 
End Sub 

Answer 2

考虑：

If cell.Value = "North" Or cell.Value = "South" Then 
     cell.Offset(0, 1).Interior.Color = RGB(0, 255, 0) 
     cell.Offset(0, 2).Interior.Color = RGB(0, 255, 0) 
     cell.Offset(0, 3).Interior.Color = RGB(0, 255, 0) 
End If 

或：

If cell.Value = "North" Then 
     cell.Offset(0, 1).Interior.Color = RGB(0, 255, 0) 
     cell.Offset(0, 2).Interior.Color = RGB(0, 255, 0) 
     cell.Offset(0, 3).Interior.Color = RGB(0, 255, 0) 
ElseIf cell.Value = "South" 
     cell.Offset(0, 1).Interior.Color = RGB(0, 0, 255) 
     cell.Offset(0, 2).Interior.Color = RGB(0, 0, 255) 
     cell.Offset(0, 3).Interior.Color = RGB(0, 0, 255) 
End If 

Answer 3

尝试使用Select Case而不是If语句。

For Each cell In Rng.Cells 
    Select Case cell.Value 
     Case "North" 
      Range(cell.Offset(0, 1), cell.Offset(0, 3)).Interior.Color = RGB(0, 255, 0) 
     Case "South" 
      Range(cell.Offset(0, 1), cell.Offset(0, 3)).Interior.Color = RGB(0, 155, 0) 
     Case "East" 
      Range(cell.Offset(0, 1), cell.Offset(0, 3)).Interior.Color = RGB(0, 55, 0) 
     Case "West" 
      Range(cell.Offset(0, 1), cell.Offset(0, 3)).Interior.Color = RGB(0, 0, 0) 
    End Select 
Next