excel - 模仿 "IN"运算符

Question

如何实现:

if X in (1,2,3) then

而不是:

if x=1 or x=2 or x=3 then

换句话说，如何才能最好地模仿 Excel 的 VBA 中的 IN 运算符？

Answer 1

我认为没有一个非常优雅的解决方案。

但是，您可以尝试:

If Not IsError(Application.Match(x, Array("Me", "You", "Dog", "Boo"), False)) Then

或者你可以编写自己的函数:

Function ISIN(x, StringSetElementsAsArray)
    ISIN = InStr(1, Join(StringSetElementsAsArray, Chr(0)), _
    x, vbTextCompare) > 0
End Function

Sub testIt()
    Dim x As String
    x = "Dog"
    MsgBox ISIN(x, Array("Me", "You", "Dog", "Boo"))
End Sub