Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 2 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 01.05.07
Prihlásený: 23.07.19
Príspevky: 420
Témy: 151
Príspevok NapísalOffline : 27.09.2008 12:49

Čaute,

Začal som sa hlbšie zaujímať o Excel a dostal som sa do štádia, že som sa začal zaujímať aj o "programovanie" v ňom. Mám knihu a práve som odskúšal jeden kód:

Kód:
Private lPotlaceni As Boolean
Private Sub Workbook_Activate()
    If lPotlaceni Then
    y = MsgBox("lala", vbYesNo, "l")
    lPotlaceni = False
   ExitSub
    Else
        x = MsgBox("co je?", vbYesNo, "lala")
    End If
End Sub


Private Sub Workbook_Open()
    lPotlaceni = True
End Sub


Kúsok som sa s ním hral a pochopil ho, ale zistil som že tento kód funguje bez problémov aj bez ExitSub. Nejak som sa o potrebnosti toho nedohrabal ani v pomoci programu Excel ani v knihe. No a chcel by som vedieť na čo to vlastne je dobré. Tak ak niekto viete budem rád.
[/b]


Offline

Skúsený užívateľ
Skúsený užívateľ
Obrázok užívateľa

Registrovaný: 13.11.07
Prihlásený: 20.08.16
Príspevky: 1702
Témy: 0
Príspevok NapísalOffline : 27.09.2008 22:08

Ten príkaz spôsobí, že sa aktuálna funkcia ukončí. Skús dať za End If nejaký MsgBox a uvidíš, že tam rozdiel je (v tvojom prípade po tej podmienke nenasleduje žiadny príkaz, takže je jedno, či sa ukončí tá funkcia pomocou ExitSub, alebo až automaticky na jej konci).


Odpovedať na tému [ Príspevkov: 2 ] 


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra