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

• Ispy nagyúr

  #2854

  #2851 alexy92

  2017-06-01 12:01:54

  Új Válasz

  Ú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

  

  Ispy

  nagyúr

  #2851 alexy92

  #2851 alexy92

  Szia,

  Sajnos nem vagyok még expert, így tudnál segíteni a változóban? Illetve a változó minden sub elejére kell?
  Azt látom, ott ahol hibára futok, oda kell majd berakjam az on error goto VÁLTOZÓ. ÉS a változóban lesz majd az iferror, a subok elején meg az Iserror-t false-á teszem.

  Köszi!

  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