| | |
| Stránka: 1 z 1
| [ Príspevkov: 2 ] | |
Autor | Správa |
---|
Registrovaný: 01.05.07 Prihlásený: 23.07.19 Príspevky: 420 Témy: 151 |
Č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]
|
|
Registrovaný: 13.11.07 Prihlásený: 20.08.16 Príspevky: 1702 Témy: 0 | Napísal chrono: 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).
|
|
| Stránka: 1 z 1
| [ 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
|
|