{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["Úvod","Goto","Využití ošetřování chyb","Poznámky"],"not_rendered":{"charts":0,"images":3,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Úvod","index":0,"n_rows":26,"n_cols":8,"rows_kept":26,"cut":false,"hidden":false,"merged":[[25,1,25,11],[1,2,1,9],[10,2,11,6],[13,3,14,6],[14,7,14,9]]}
[]
[null,null,"Jak na Excel "]
[]
[]
[null,null,null,"Obsah cvičení"]
[null,null,null,null,"Goto"]
[null,null,null,null,"Goto využití u ošetření chyb"]
[]
[]
[]
[null,null,"Pavel Lasák"]
[]
[]
[null,null,null,"Lektor, expert na Microsoft Excel, držitel prestižního ocenění Microsoftu MVP v České republice"]
[null,null,null,null,null,null,null,5002722]
[]
[]
[]
[]
[null,null,null,"Další informace ke cvičení:"]
[null,null,null,null,"http://office.lasakovi.com/excel/vba-teorie-zaklady/excel-vba-goto/"]
[]
[]
[]
[]
[null,"Copyright, Pavel Lasák 2017  rev 2019, 2020"]

{"sheet":"Goto","index":1,"n_rows":37,"n_cols":2,"rows_kept":37,"cut":false,"hidden":false,"merged":[[0,0,0,3],[1,0,1,3],[3,1,3,2],[4,1,4,2],[5,1,5,2]]}
["GOTO"]
["http://office.lasakovi.com"]
[]
["Složka","03_VBA_Zaklady - Konstrukce"]
["Sešit","03f - VBA Zaklad - GOTO -excel-vba.xlsm"]
["List","Goto"]
[]
[]
[]
[null,"Dim Cislo, MujRetezec"]
[]
[null,"' Inicializuj proměnnou."]
[null,"' testovat přes inputBox"]
[null,"Cislo = 1 "]
[]
[null,"' Vyhodnoť Cislo a pro větvení vyber příslušné návěstí."]
[null,"If Cislo = 1 Then "]
[null,"      GoTo Radek1 "]
[null,"Else "]
[null,"      GoTo Radek2"]
[null,"End If"]
[]
[null,"Radek1:"]
[null,"     MujRetezec = \"Číslo se rovná 1\""]
[null,"    ' Jdi na PosledniRadek."]
[null,"    GoTo PosledniRadek"]
[]
[null,"Radek2:"]
[null,"     ' Následující příkaz se nikdy neprovede."]
[null,"     MujRetezec = \"Číslo se rovná 2\""]
[null,"    GoTo PosledniRadek"]
[]
[null,"PosledniRadek: "]
[null,"     MsgBox (MujRetezec)"]
[]
[]
[null,"Pavel Lasák"]

{"sheet":"Využití ošetřování chyb","index":2,"n_rows":30,"n_cols":2,"rows_kept":30,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"Dim x As Integer"]
[null,"Dim y As Integer"]
[null,"Dim z As Integer"]
[]
[null,"On Error GoTo Chyba:"]
[]
[null,"x = 1 + 1"]
[null,"' Dělení nulou bude přeskočeno"]
[null,"y = 42 / 0"]
[null,"z = 5 * 2"]
[]
[null,"' Neprovede pokud bude chyba"]
[null,"MsgBox (x)"]
[null,"MsgBox (y)    ' bude nula"]
[null,"MsgBox (z)"]
[]
[null,"OK:"]
[null,"  ' Pokud není chyba provede, zapoznámkujte y ;)"]
[null,"  MsgBox (\"OK\")"]
[null,"  Exit Sub"]
[null,"Chyba:"]
[null,"  MsgBox \"Deleni nulou\""]
[null,"  ' Případně vypsat chybu"]
[null,"  MsgBox Err.Description"]
[null,"  ' Číslo chyby"]
[null,"  MsgBox Err.Number"]

{"sheet":"Poznámky","index":3,"n_rows":4,"n_cols":2,"rows_kept":4,"cut":false,"hidden":false,"merged":[[0,0,0,3],[1,0,1,3]]}
["GOTO"]
["http://office.lasakovi.com"]
[]
[null,"Více odskoků"]