End Statement

αž”αž‰αŸ’αž…αž”αŸ‹β€‹αž”αŸ‚αž”αž”αž‘ αž¬β€‹αž”αžŽαŸ’αžαž»αŸ†β€‹αž˜αž½αž™Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


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

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αž”αŸ’αžšαžΎβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ End αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜ αŸ–

αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ

End αŸ– αž˜αž·αž“β€‹αžαŸ’αžšαžΌαžœβ€‹β€‹αž€αžΆαžšβ€‹ αž”αŸ‰αž»αž“αŸ’αžαŸ‚β€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αž‰αŸ’αž…αžΌαž›β€‹αžαŸ’αžšαž„αŸ‹β€‹αžŽαžΆβ€‹αž€αŸβ€‹αž”αžΆαž“ αž€αŸ’αž“αž»αž„β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž½αž™β€‹αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž”αž‰αŸ’αž…αž”αŸ‹β€‹αžŠαŸ†αžŽαžΎαžšαž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈΒ αŸ”

End Enum: Ends an Enum VBA statement

End Function αŸ– αž”αž‰αŸ’αž…αž”αŸ‹β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ FunctionΒ αŸ”

End If αŸ– αžŸαž˜αŸ’αž‚αžΆαž›αŸ‹β€‹αž…αž»αž„β€‹αž”αž‰αŸ’αž…αž”αŸ‹β€‹αž“αŸƒ αž”αžŽαŸ’αžαž»αŸ† If...Then...ElseΒ αŸ”

End Property: Marks the end of a Property statement.

End Select αŸ– αžŸαž˜αŸ’αž‚αžΆαž›αŸ‹β€‹αž…αž»αž„β€‹αž”αž‰αŸ’αž…αž”αŸ‹β€‹αž“αŸƒβ€‹αž”αžŽαŸ’αžαž»αŸ† Select CaseΒ αŸ”

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!