Új hozzászólás Aktív témák

• #2854 Ispy nagyúr alexy92 #2851

  Új Válasz 2017-06-01 12:01:54 #2854

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Ispy

  nagyúr

  válasz alexy92 #2851 üzenetére

  Nem nagyon programoztam még excelben, szóval az én elképzelésem:

  Dim IsError as boolean

Private Sub Main -> a fő kódod, gondolom valamilyen eventre fut le az egész cucc

On Error GoTo ErrHandling

valami kód, amit írtál és mindig gebasz van vele...

IF IsError = True Then
Call Sub2
Else
Call Sub3
End IF

valami kód, amit írtál és mindig gebasz van vele...

IF IsError = True Then
Call Sub4
Else
Call Sub5
End IF

exit sub

ErrHangling:
IsError = True
Resume

End Sub

Private Sub Sub2
IsError = False
....

End Sub

  Persze lehet ezt még finomítani kell, kb. 5 éve nem nyúltam VBA kódhoz, de kb. így csinálnám. A subokat el is lehet hagyni, csak akkor van értelme külön kódba kiemelni, ha több helyen is használod ugyanazt a kódot.

  Ha mondjuk egész kódrészleteket beraknál ide, akkor nagyobb eséllyel tudunk hibát keresni mi is....

Új hozzászólás Aktív témák