End Statement

āĻāĻ•āĻŸāĻŋ āĻĒā§āĻ°āĻ¸āĻŋāĻœāĻžāĻ° āĻ…āĻĨāĻŦāĻž āĻŦā§āĻ˛āĻ• āĻ¸āĻŽāĻžāĻĒā§āĻ¤ āĻ•āĻ°ā§‡āĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


End, End Enum, End Function, End If, End Select, End Sub, End With

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

End statement āĻŸāĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§‚āĻĒā§‡ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§āĻ¨:

āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ

End: āĻĒā§āĻ°āĻ¯āĻŧā§‹āĻœāĻ¨ā§€āĻ¯āĻŧ āĻ¨āĻ¯āĻŧ, āĻ•āĻŋāĻ¨ā§āĻ¤ā§ āĻ‡āĻ­ā§‡āĻ¨ā§āĻŸ āĻ¸āĻŽā§āĻĒāĻžāĻĻāĻ¨āĻž āĻļā§‡āĻˇ āĻšāĻ¤ā§‡ āĻāĻ•āĻŸāĻŋ āĻĒāĻĻā§āĻ§āĻ¤āĻŋāĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ¯ā§‡āĻ–āĻžāĻ¨ā§‡ āĻ‡āĻšā§āĻ›āĻž āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•āĻ°āĻž āĻ¯āĻžāĻŦā§‡āĨ¤

End Enum: Ends an Enum VBA statement

End Function: āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻ¸āĻŽāĻžāĻĒā§āĻ¤ āĻ•āĻ°ā§‡āĨ¤

End If: āĻāĻ•āĻŸāĻŋ If...Then...Else āĻŦā§āĻ˛āĻ•ā§‡āĻ° āĻļā§‡āĻˇāĻžāĻ‚āĻļ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§‡āĨ¤

End Select: āĻāĻ•āĻŸāĻŋ āĻ•ā§‡āĻ¸ āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻšāĻ¨ āĻŦā§āĻ˛āĻ•ā§‡āĻ° āĻļā§‡āĻˇāĻžāĻ‚āĻļ āĻšāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻ•āĻ°ā§‡āĨ¤

End Sub: āĻāĻ•āĻŸāĻŋ sub āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻ¸āĻŽāĻžāĻĒā§āĻ¤ āĻ•āĻ°ā§‡āĨ¤

End With: Ends a With statement

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Number from 1 to 5"
        Case 6, 7, 8
            Print "Number from 6 to 8"
        Case Is > 8 And iVar < 11
            Print "Greater than 8"
        Case Else
            Print "Outside range 1 to 10"
    End Select
End Sub

Please support us!