VBAの選択ケースが複数の条件

Question

私は次のコードを持っており、それを少し修正したいと思います。基本的にすべての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 Caseである：あなたは、単に代わり1=1またはTrueのあなたの条件を記述する必要がありますあなたの場合は

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 

。このように：Case Me.TextBox1.Value = "Lottery" and range("SalesChannel").value = "SMB"しかし、上部にはSelect Case Trueのままにしておきます。