VBA Select Case 是多个条件答案

【问题标题】：VBA Select Case is multiple criteriaVBA Select Case 是多个条件
【发布时间】：2017-12-16 15:20:25
【问题描述】：

我有以下一段代码，想稍微修改一下。基本上每个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

【问题讨论】：

标签： vba excel with-statement select-case

【解决方案1】：

这是一个具有多个条件的示例 Select Case：

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。

【讨论】：