使用VBA Excel的案例語法

Question

我正在嘗試評估每個單元格，如果A中的值是01,06,42,66而B中的值是外部，那么DoStuff。

通過以下case語句，它只獲取66而不是其余的。 我可以為每個組合寫一個案例陳述，但這太過分了。 你對如何簡化這個有什么建議嗎？

Select Case .Range("A" & i).Value A & .Range("B" & i).Value 
Case "01","06","42","66" & "Outside" 
    DoStuff
End Select 

Answer 1

在您的Select Case中添加一個if：

Select Case .Range("A" & i).Value    
Case "01","06","42","66"
    If .Range("B" & i).Value = "Outside" Then
        DoStuff
    End If
End Select 

或者你需要連接所有選擇：

Select Case .Range("A" & i).Value  & .Range("B" & i).Value 
Case "01Outside","06Outside","42Outside","66Outside"
    DoStuff
End Select