End Statement

рдЦрдгреНрдб рд╡рд╛ рдХрд╛рд░реНрдпрд╡рд┐рдзреАрд╣рд░реВ рдЕрдиреНрддреНрдп рдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


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

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреЗ рдЕрдиреНрддреНрдп рдХрдерди рддрд▓рджрд┐рдПрдХреЛ рдЫ:

рдХрдерди

рдЕрдиреНрддреНрдп:рдЖрд╡рд╢реНрдпрдХрддрд╛ рдЫреИрди, рддрд░ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрдирдХреЛ рдЕрдиреНрддреНрдпрд▓рд╛рдИ рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рднрд┐рддреНрд░ рдЬреБрдирд╕реБрдХреИ рдард╛рдЙрдорд╛ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрдЫ ред

End Enum: Ends an Enum VBA statement

рдЕрдиреНрддреНрдп рдкреНрд░рдХрд╛рд░реНрдп:рдХрдердирд▓реЗ рдкреНрд░рдХрд╛рд░реНрдп рдЕрдиреНрддреНрдп рдЧрд░реНрджрдЫ ред

End If:рдЦрдгреНрдбрд▓реЗ If...Then...ElseрдХреЛ рдЕрдиреНрддреНрдп рдЪрд┐рдирд╛рдЙрдБрдЫ ред

End Select: рдЦрдгреНрдбрд▓реЗ рдЪрдпрди рдХреЗрд╕рдХреЛ рдЕрдиреНрддреНрдп рдЪрд┐рдирд╛рдЙрдБрдЫ ред

End 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
            рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Number from 1 to 5"
        Case 6, 7, 8
            рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Number from 6 to 8"
        Case Is > 8 And iVar < 11
            рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Greater than 8"
        Case Else
            рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН "Outside range 1 to 10"
    End Select
End Sub