Write If Then statement in one line : IF « Language Basics « VBA / Excel / Access / Word






Write If Then statement in one line

 
Sub SimpleIfThen2()
    Dim weeks As String

    On Error GoTo VeryEnd
    weeks = InputBox("How many weeks are in a year:", "Quiz")
    If weeks <> 52 Then MsgBox "Try Again": SimpleIfThen2
    If weeks = 52 Then MsgBox "Congratulations!"
VeryEnd:
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.Using the Multi-Line If...Then Statement
11.Decisions Based on More Than One Condition: Using the If..Then...AND Conditional 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