VBA选择案例是多个条件
我有下面的一段代码,希望对其进行一些修改。基本上,每个VBA选择案例是多个条件,vba,excel,with-statement,select-case,Vba,Excel,With Statement,Select Case,我有下面的一段代码,希望对其进行一些修改。基本上,每个案例都是,我想检查一个次要标准。例如,Case is=“lotking”我想添加和范围(“SalesChannel”).value=“SMB”。然后,我想对每一个使用不同值(而不是SMB)的情况进行复制。这能做到吗 Private Sub CommandButton1_Click() With LoginPassword.TextBox1.Value Select Case Me.TextBox1.Value Case Is = "
案例都是,我想检查一个次要标准。例如,Case is=“lotking”
我想添加和范围(“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
这是一个具有多个条件的示例选择案例:
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=“彩票”和range(“SalesChannel”).Value=“SMB”
但将选择Case True
保留在顶部