Excel VBA IN關鍵字

Question

有沒有更好的方法在VBA中編碼：

If x = 'a' or x = 'b' or x ='c' or x = 'd' then
...action
End if

IN關鍵字在這里非常方便：

If x IN ('a','b','c','d') then
action
End If

- >但是VBA不識別IN。 語法中是否有替代關鍵字？ 謝謝！

Answer 1

FILTER（）函數的目的是查看項目是否出現在數組中：

Sub FilterExample()
    ary = Split("a,b,c,d", ",")
    x = "b"
    If Filter(ary, x)(o) <> "" Then
        MsgBox "match found"
    End If
End Sub

Answer 2

當沒有找到匹配時，Gary的學生答案的當前形式將導致錯誤。 我相信以下更好：

x = "a"
If UBound(Filter(Array("a", "b", "c", "d"), x)) > -1 Then
    MsgBox "Match found"
End If

我做的評論雖然當x是一個空字符串時，filter函數返回整個數組。 因此，如果x是一個空字符串，則上面將始終返回匹配項。 以下說明了這一點

x = "a"
If UBound(Filter(Array("a", "b", "c", "d"), x)) > -1 And x <> vbNullString Then
    MsgBox "Match found"
End If