Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
skoky v programu VBA
Bezpodmínečný odskok na zadaný řádek procedury. Použít lze jen k odskoku na řádky pouze v rámci procedury, kde se příkaz nachází.
GoTo řádka
řádka - Argument řádka může označovat návěští řádky nebo číslo řádky.
Poznámka: Příliš mnoho příkazů GoTo může způsobí, že kód programu stane nepřehledný a neladitelný. Lepší je používat příkazy, Do...Loop, For...Next, If...Then...Else, Select Case.
použit z nápovědy k programu MS Excel:
Sub UkazkaPrikazuGoto()
Dim Cislo, MujRetezec
Cislo = 1 ' Inicializuj proměnnou.
' Vyhodnoť Cislo a pro větvení vyber příslušné návěstí.
If Cislo = 1 Then
GoTo Radek1
Else
GoTo Radek2
Radek1:
MujRetezec = "Číslo se rovná 1"
GoTo PosledniRadek ' Jdi na PosledniRadek.
Radek2:
' Následující příkaz se nikdy neprovede.
MujRetezec = "Číslo se rovná 2"
PosledniRadek:
Debug.Print MujRetezec ' Vypíše "Číslo se rovná 1"
' do ladícího okna.
End Sub
Tento článek je součástí on-line výukového kurzu VBA MS Excel.
Článek byl aktualizován: 19.09.2020 11:07
Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.
Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.
Přidáno: 05.01.15 09:24
prosím o radu při pokusu o spuštění mi hlásí : Compile error: Block If without End If co s tím?
Přidáno: 16.07.15 10:17
Napiš na konec bloku s if prave to end if
Přidáno: 07.12.16 20:43
Kdyz promenna 'Cislo' neni 1 tak se by se melo vypsat : 'Cislo se nerovna 1', ne 'Cislo se rovna 2'.(Nemuzeme vedet zda je promenna 'Cislo' opravdu 2, bylo by potreba pridat dalsi if).
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2024 |