VBA Izlazna pod -funkcija ili funkcija

U VBA -u možete izaći iz pod -funkcije ili funkcije pomoću Izlaz iz podv ili Izlazna funkcija naredbe.

1	Izlaz iz podv

1	Izlazna funkcija

Kad dođe do izvršenja koda Izlaz iz podv ili Izlazna funkcija, izaći će iz Sub ili Funkcije i nastaviti s bilo kojim drugim izvršavanjem koda.

Ako želite naučiti kako izaći iz podgreške na pogrešci, kliknite na ovu vezu: VBA pri pogrešci izađi iz podvrste

Ako želite naučiti kako završiti izvršavanje cijelog koda, kliknite na ovu vezu: VBA Kraj

Izađite iz Sub u VBA

Na primjeru ćete vidjeti što se događa kada koristimo Izlaz iz podv naredba u podmornici. Stvorili smo podmornicu ExitSub, koji ima Izlaz iz podv zapovijedi unutra. PodmornicaCallExitSub naziva ovaj Sub. Evo koda:

123456789101112131415161718

Privatni podizlaz ExitSub ()Dim i Kao cijeli brojZa i = 1 do 10Ako je i = 5 TadaIzlaz iz podvMsgBox "Vrijednost i je" & iZavrši akoSljedeći iKraj podmPrivatni pomoćni pozivExitSub ()Nazovite ExitSubMsgBox "Izlaz iz pretplate"Kraj podm

U ExitSub, prvo ulazimo u For Loop ako je vrijednost i manja od 10:

123	Za i = 1 do 10Sljedeći i

Nakon toga provjeravamo je li vrijednost i jednaka 5, pomoću naredbe If. Ako je vrijednost 5, želimo napustiti Sub i vratiti okvir poruke s vrijednošću i:

1234	Ako je i = 5 TadaIzlaz iz podvMsgBox "Vrijednost i je" & iZavrši ako

Ako uvjet nije ispunjen, sljedeći izraz povećava i za 1 i ponovno ulazi u For petlju:

1	Sljedeći i

U CallExitSub, prvo zovemo Sub ExitSub:

1	Nazovite ExitSub

Nakon toga vraćamo okvir za poruku:

1	MsgBox "Izlaz iz podv."

Ako pokrenete CallExitSub, prvo će nazvati ExitSub. Izvršite li ovaj kôd u načinu otklanjanja pogrešaka, vidjet ćete da će proći petlju 5 puta. U 5^th iteracija, vrijednost varijable i postaje 5 i kôd ulazi u If tijelo. Sada Sub ExitSub izlazi i vraća se u CallExitSub. Sljedeći redak je MsgBox "Izlaz iz pretplate":

Kao što vidite, ExitSub izlazi odmah nakon toga Izlaz iz podv naredba, pa je MsgBox "Vrijednost i je" & i nikada neće biti izvršena.

Izađite iz funkcije u VBA -i

Izlazak iz funkcije u VBA -i sličan je izlasku iz Sub -a, samo je naredba Izlazna funkcija. U primjeru smo stvorili ExitFunc koji vraća cijeli broj. Podmornica CallExitFunction poziva ovu funkciju. Evo koda:

1234567891011121314151617181920

Privatna funkcija ExitFunc () Kao cijeli brojDim i Kao cijeli brojZa i = 1 do 10Ako je i = 5 TadaExitFunc = iIzlazna funkcijaZavrši akoSljedeći iZavršna funkcijaPrivatni pomoćni pozivExitFunction ()Zatamni intFunc kao cijeli brojintFunc = ExitFunction ()MsgBox "Vrijednost intFunc je" & intFuncKraj podm

U ExitFunc, prvo ulazimo u For Loop ako je vrijednost i manja od 10:

123	Za i = 1 do 10Sljedeći i

Nakon toga provjeravamo je li vrijednost i jednaka 5, pomoću naredbe If. Ako je vrijednost 5, dodjeljujemo vrijednost i rezultatu funkcije i izlazimo iz funkcije:

1234	Ako je i = 5 TadaExitFunc = iIzlazna funkcijaZavrši ako

Ako uvjet nije ispunjen, sljedeći izraz povećava i za 1 i ponovno ulazi u For petlju:

1	Sljedeći i

U CallExitFunction, prvo zovemo funkciju ExitFunc: Da bismo to učinili, moramo deklarirati varijablu intFunc upišite cijeli broj i dodijelite rezultat ExitFunc funkcija za to:

123	Zatamni intFunc kao cijeli brojintFunc = ExitFunction ()

Nakon toga vraćamo okvir poruke s vrijednošću intFunc:

1	MsgBox "Vrijednost intFunc je" & intFunc

Ako pokrenete CallExitFunction, prvo će pozvati funkciju ExitFunc. Izvršite li ovaj kôd u načinu otklanjanja pogrešaka, vidjet ćete da će proći petlju 5 puta. U 5^th iteracija, vrijednost varijable i postaje 5 i kôd ulazi u If tijelo. Sada vrijednost ExitFunc postaje i, a funkcija se napušta i vraća u CallExitFunction. Sljedeći redak je MsgBox "Vrijednost intFunc je" & intFunc: