Jste zde: Úvodní stránka » excel » vba-teorie-zaklady » excel-vba-goto

GOTO - VBA Excel

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

skoky v programu VBA

GOTO

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.

Příkaz GoTo - doporučení

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.

Příklad na GOTO

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

Kurz VBA on-line

Tento článek je součástí on-line výukového kurzu VBA MS Excel.

Článek byl aktualizován: 01.11.2014 14:37

Odměna

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.

Pavel Lasák - autor webu

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ů.

Komentáře

Marcel

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?

Martin

Přidáno: 16.07.15 10:17

Napiš na konec bloku s if prave to end if

Adam

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).