Přeskočit navigaci | Přeskočit na novinky

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

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: 19.09.2020 11:07

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

Pavel Lasák

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

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


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







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

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 |