Excel VBAで条件文の可能な値を列挙できますか？

Question

これは間違っていますのでごめんなさい。私は、変数aが、その後、いくつかの整数の集合の要素であるならば、私が書いた場合...それがうまくいく旨Ifステートメントを持つようにしたい：

= 1,6,12,19場合、

または私は= 1または= 6または= 12または= 19次に

Answer 1

いいえ、あなたはif a=1,6,12,19 Thenとしてそれを書くことはできませんが、あなたが使用できるいくつかの選択肢がある場合

を記述する必要があります彼らはanswers to this previous questionでカバーされています。これは私がほとんどの場合にお勧めするものです。

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

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