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

如果这是一个愚蠢的问题，我很抱歉。 我想有一个If语句，说明variablesa是一组整数的元素，然后…如果我写：

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

或者我必须写

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

Answer 1

不，你不能把它写成，就if a=1,6,12,19 Then但是还有一些可以使用的select，它们在前面的问题的答案中已经有了。 这是我build议在大多数情况下。

 select case userID case 1,2,3,4,5,6 ' do something end select 

Answer 2

InStr函数可以将它作为包含分隔选项的string中的分隔子string处理。

 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