Decisions Based on More Than One Condition: Using the If..Then...AND Conditional Statement : IF « Language Basics « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Language Basics » IF 




Decisions Based on More Than One Condition: Using the If..Then...AND Conditional Statement
 
Sub IfThenAnd()
    Dim price As Single
    Dim units As Integer
    Dim rebate As Single

    Const strMsg1 = "To get a rebate you must buy an additional "
    Const strMsg2 = "Price must equal $7.00"

    units = 234
    price = 7

    If price = And units >= 50 Then
        rebate = (price * units0.1
         MsgBox "The rebate is: $" & rebate
    End If

    If price = And units < 50 Then
        MsgBox strMsg1 & "50 - units."
    End If

    If price <> And units >= 50 Then
        MsgBox strMsg2
    End If

    If price <> And units < 50 Then
        MsgBox "You didn't meet the criteria."
    End If
End Sub

 














Related examples in the same category
1.A simple decision-making structure in a subroutine
2.Within an If structure, you can have an alternative path by using an Else statement.
3.Use and in if statement
4.Block If Statements
5.One-Line If Statements
6.If... Then... ElseIf... Else Statements
7.An If... Then... ElseIf Statement without an Else Clause
8.Combine several If structures using ElseIf.
9.Using the If...Then Statement
10.Write If Then statement in one line
11.Using the Multi-Line If...Then Statement
12.Using If...Then...Else Conditional Statement
13.If...Then...ElseIf Statement
14.If statement ladder
15.Nest if statement in a Do Loop
16.Nest an if statement with Do While
17.If/Then/Else: guess a number
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.