excel - 在 VBA 代码中压缩多个 OR 条件

Question

我使用以下代码允许用户将值写入Cell A1。

Sub TestUsername()
If Environ("Username") = "firstname1.lastname1" Or Environ("Username") = "firstname2.lastname2" _
Or Environ("Username") = "firstname3.lastname3" Or Environ("Username") = "firstname4.lastname4" Then
Sheet1.Range("A1").Value = 1
Else
Sheet1.Range("A2").Value = 2
End If
End Sub

如您所见，我列出了允许在我的 VBA 代码中使用 OR-condition 向 Cell A1 输入值的每个用户。这一切都很好。

---

现在，我想知道是否有更简单的方法可以做到这一点。像这样的:

Sub TestUsername()
If List of or-conditions: {"firstname1.lastname1", "firstname2.lastname2", _
"firstname3.lastname3", "firstname4.lastname4"} = True Then
Sheet1.Range("A1").Value = 1
Else
Sheet1.Range("A2").Value = 2
End If
End Sub

我只知道在 PHP 中您可以压缩多个条件，例如 here .因此，我认为这对于 VBA 编程来说也是可能的。

Answer 1

可能是这样的

Sub TestUsername()
    Select Case Environ("Username")
    Case "firstname1.lastname1", "firstname2.lastname2", "firstname3.lastname3"
        Sheet1.Range("A1").Value = 1
    Case Else
        Sheet1.Range("A2").Value = 2
    End Select
End Sub