Question

  If Target.Column = 6 Then
  End If

如果Column是6或8或10，我想要执行If代码。我应该如何修改上面的代码

Answer 1

您可以使用案例陈述

CASE Statement (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

如何比较visual basic中的一组值

2 个答案: