VBA Select Case是多个标准

我有以下一段代码，想修改一下。 基本上每个case is我想检查次要标准。 例如， Case is = "Lottery"我想添加AND range("SalesChannel").value = "SMB" 。 然后我想复制，为每个案件使用不同的值（不SMB）。 这可以做到吗？

 Private Sub CommandButton1_Click() With LoginPassword.TextBox1.Value Select Case Me.TextBox1.Value Case Is = "Lottery" LoginPassword.Hide SMB_Login CalculateFinancials Case Is = "Charity" LoginPassword.Hide DCS_Login CalculateFinancials Case Is = "Curfew" LoginPassword.Hide Campaign_Login CalculateFinancials Case Is = "Europe" LoginPassword.Hide Eureka_Login CalculateFinancials Case Is = "Promo" LoginPassword.Hide Promo_Login CalculateFinancials Case Is = "Sundew" LoginPassword.Hide Loyalty_Login CalculateFinancials Case Is = "Casino" LoginPassword.Hide MobilePricing.Hide Range("Network").ClearContents Case Is = "RedDevil" HardwareUpdateYesNo Case Is = "Provision" LoginPassword.Hide MobilePricing.Hide ProvisioningView Case Else MsgBox "Password Incorrect!", vbCritical + vbOKOnly, "Login Failed!" TextBox1.Text = "" TextBox1.SetFocus End Select End With End Sub 

Answer 1

这是一个带有多个标准的select案例：

 Option Explicit Public Sub TestMe() Select Case True Case 1 = 1 And True Debug.Print 1 Case True And 2 = 5 Debug.Print 2 Case True And 5 = 5 And 6 = 7 Debug.Print 3 End Select End Sub 

在你的情况下，你应该只写你的条件，而不是1=1或True 。 像这样： Case Me.TextBox1.Value = "Lottery" and range("SalesChannel").value = "SMB"但是在顶部保留Select Case True 。