是否可以在Excel VBA中列出条件语句的可能值

Question

如果这是一个愚蠢的问题，我很抱歉。我想要一个If语句，声明变量a是否是一组整数的元素然后......如果我写的话它会起作用吗？

如果a = 1,6,12,19那么

或者我必须写

如果a = 1或a = 6或a = 12或a = 19那么

Answer 1

不，你不能把它写成lua -v，但你可以使用一些替代方案，answers to this previous question涵盖了它们。这是我在大多数情况下推荐的那个。

if a=1,6,12,19 Then

Answer 2

InStr函数可以将其作为包含分隔选项的字符串中的分隔子字符串来处理。

if cbool(instr(1, "x1x2x3x4x5x6x", format(a, "x0x"))) then
    'a is a number between 1 and 6
    debug.Print a & " is in 1,2,3,4,5,6"
end if

Answer 3

您可以使用Application.Match()方法

if Not IsError(Application.Match(a,array(1,6,12,19),0) Then
    your code
End If