Ošetrenie chýb Excel

Sub TestovaciaProcedura()

    Dim i As Integer

    Dim x As Integer

    For i = -1 To 1

        x = 3 / i

    Next i

End Sub


Sub OsetrenieChyby1()

    Dim i As Integer
    Dim x As Integer

    'pri chybe skoè na dalsi riadok

    On Error Resume Next
    For i = -1 To 1

        x = 3 / i
        Debug.Print (x)

    Next i
End Sub

Sub OsetreniChyby2()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na dalši riadok

    On Error Resume Next

    For i = -1 To 1

        x = 3 / i

        'zaregistroval objekt Err chybu?

        If Err <> 0 Then

            'evidencia èísla a popisu chyby
            'do okna Immediate(anglicky)

            Debug.Print Err.Number & vbTab & Err.Description
            Debug.Print Err.Source; 7; Err.HelpFile

            'reset

            Err.Clear

        End If

    Next i

End Sub

Sub OsetrenieChyby3()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na riadok Chyba

    On Error GoTo Chyba

    For i = -1 To 1

        x = 3 / i
        MsgBox x

    Next i

Chyba:
    MsgBox "Nastala chyba..." & vbNewLine & _
           "Chyba cislo: " & Err.Number & vbNewLine & _
           "Popis chyby: " & Err.Description

End Sub

Sub OsetrenieChyby4()

    Dim i As Integer

    Dim x As Integer

    'pri chybe skoè na riadok Chyba

    On Error GoTo Chyba

    For i = -1 To 1

        x = 3 / i

    Next i

    Exit Sub

Chyba:

    'chyba delenia nulou

    '    If Err.Number = 11 Then
    '        MsgBox (Err.Description)
    '    End If

    Select Case Err.Number
    Case 11
        Debug.Print "Chyba delenia 0 " & vbTab & Err.Description
    Case 12
        Debug.Print "Chyba ... " & vbTab & Err.Description
    Case 500 To 1000
        Debug.Print "Aplikacna chyba, alebo chyba definici obj " & vbTab & Err.Description
    Case Else
        Debug.Print "Neviem co si za chybu " & vbTab & Err.Description
    End Select


    'opravit promennej

    i = i + 1

    'návrat na riadok, ktorý vyvolal chybu

    Resume



    'alternativa bez priameho ošetrenia promennej

    'Resume Next

End Sub

Sub piata()

    On Error GoTo Log

    Beep


Log:
    Debug.Print Err.Number & " " & Err.Description
    GoTo Koniec

Koniec:
    Exit Sub

End Sub


Sub siesta()

    Beep
    MsgBox "ad", vbOKOnly, "sdf"


d_Exit:
    Exit Sub

d_Err:
    MsgBox Error$
    Resume d_Exit


End Sub


Public Sub SomeMacro()
    'store the initial "calculation" state
    Dim xlCalc As XlCalculation
    xlCalc = Application.Calculation

    On Error GoTo Handler
    SpeedUp True

    'code here ...
    i = 1 / 0
CleanExit:
    SpeedUp False, xlCalc
    Exit Sub
Handler:
    'handle error
    Resume CleanExit
End Sub

Sub testujemeHodnoty(Optional ByVal a As Integer, Optional ByVal b As String)

    Debug.Print "Si v prvej, a: " & a & ", b: " & b
    'testujemeHodnoty

End Sub

Sub testujemeHodnoty2()

    Call testujemeHodnoty
    Call testujemeHodnoty(5)
    Call testujemeHodnoty(5, "Adam")
End Sub

'Function vypisAhojSvet()
'
'    MsgBox "Ahoj svet"
'    vypisAhojSvet = "Ahoj svet"
'
'End Function


Function vypisAhojSvet(Optional ByVal a)

    MsgBox "Ahoj svet2"
    vypisAhojSvet = "Ahoj svet2"

End Function