vba - 选择大小写 不 或

Question

我希望仅使用一种情况执行 Select Case - 该情况不等于“P”、“Ev”或“Af”。

这就是我到目前为止所拥有的。

Select Case Range("my_range").Offset(0, column_offset).Value
    Case Not "P", "Ev", "Af"
        'my code
 End Select

案例可能等于 50 个不同的值，我希望对所有这些值执行相同的操作(在“我的代码”下)，除非结果是 P、Ev 或 Af。

我还尝试过 Not“P”、Not“Ev”、Not“Af” 以及用 Or 替换 , 但没有效果。

每次的响应都是:

Run-time error '13': Type mismatch.

我知道我可以用 if 语句替换它，类似于...

If Range("my_range").Offset(0, column_offset).Value <> "P" And Range("my_range").Offset(0, column_offset).Value <> "Ev" And Range("my_range").Offset(0, column_offset).Value <> "Af" Then
    'my code
End if

但如果可以的话，我更愿意使用“选择案例”选项。

大家有什么想法吗？

非常感谢

编辑

我还应该说我确实尝试过使用

Select Case Range("my_range").Offset(0, column_offset).Value
    Case "P", "Ev", "Af"
        Exit Select
    Case Else
        'my code
End Select

但是错误消息:

Compile error: Expected: Do or For or Sub or Function or Property

不断弹出。

Answer 1

您不能以这种方式使用Not。但你可以重构为

Select Case Range("my_range").Offset(0, column_offset).Value
    Case "P", "Ev", "Af"
        'ignore this
    Case Else
        'my code
 End Select