|
 | | |
| Autor | Správa |
|---|
davider137
Užívateľ
Založený: 01.05.2007
Príspevky: 310
 |  Zaslal: So 27.09.08 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] |
| |
  |
|
chrono
Skúsený užívateľ
Založený: 13.11.2007
Príspevky: 808
| | Zaslal: So 27.09.08 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). |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
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.
Nemôžete hlasovať v tomto fóre.
|
| |
