vba - VisualBasicで一連の値を比較する方法

Question

  If Target.Column = 6 Then
  End If

列が6、8、または10の場合にIfコードを実行したいのですが、上記のコードをどのように変更すればよいですか？

Answer 1

caseステートメントを使用できます

CASEステートメント（VBA）

セクションを参照してください

You can also comma delimit values. For example:


Select Case LNumber
    Case 1, 2
       LRegionName = "North"
    Case 3, 4, 5
       LRegionName = "South"
    Case 6
       LRegionName = "East"
    Case 7, 11
       LRegionName = "West"
 End Select

Answer 2

これはより具体的にあなたが尋ねたものです：

If Target.Column = 6 OR Target.Column = 8 OR Target.Column = 10 Then
'Code for if a match is found.
else
'Code for when a match isn't found.
End If

または表示されたスタンダーとして：

Select Case Target.Column
Case 6, 8, 10
'Code for if a match is found.
Case Else
'Code for when a match isn't found.
End Select

またはさらに別の方法：

With Target
If .Column = 6 Or .Column = 8 OR .Column = 10 then
'Code for if a match is found.
else
'Code for when a match isn't found.
End If
End with