Excel VBA IN keyword

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 是空字符串时，过滤器函数返回整个数组。因此，如果 x 是一个空字符串，则上面的内容将始终返回匹配项。下面说明了这一点

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

Answer 3

可以使用 Select Case 语句实现此类操作：

Select Case x
    Case "a", "b", "c", "d"
        ' ... action
End Select