{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["List1"],"not_rendered":{"charts":0,"images":4,"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":"List1","index":0,"n_rows":64,"n_cols":12,"rows_kept":64,"cut":false,"hidden":false,"merged":[[0,0,0,6],[1,0,1,6]]}
["IF - THEN - Excel VBA"]
["office.lasakovi.com"]
[]
[]
[null,null,null,null,null,null,null,null,"Je muž",null,null,"Je žena"]
[null,null,null,null,null,null,null,null,"    If i =6 Then",null,null,"    If i = vbYes Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi muž.\"",null,null,"                MsgBox \"Jsi žena.\""]
[null,"Mám jen msgbox",null,null,null,null,null,null,"    End If",null,null,"    End If"]
[null,"i = MsgBox(\"Jsi muž?\", vbYesNo, \"Kdo\")"]
[null,null,null,null,null,null,null,null,"    If i = 7 Then",null,null,"    If i = vbNo Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi žena.\"",null,null,"              MsgBox \"Jsi muž.\""]
[null,null,null,null,null,null,null,null,"    End If",null,null,"    End If"]
[]
[null,null,null,null,null,null,null,null,"Číslo"]
[]
[null,null,null,null,null,null,null,null,"If Hodnota > 2 Then"]
[null,"Načítám číslo, není ošetřeno, zda je číslo",null,null,null,null,null,null,"MsgBox \"Je větší než 2\""]
[null,"Hodnota = InputBox(\"Zadej číslo:\", \"číslo then\", 0)",null,null,null,null,null,null,"End If"]
[]
[]
[null,null,null,null,null,null,null,null,"Rozhodnout"]
[null,null,null,null,null,null,null,null,"If Vek < 15 Then"]
[null,null,null,null,null,null,null,null,"      MsgBox \"Jsi dite.\""]
[null,"Chci rozhodnout podle věku",null,null,null,null,null,null,"ElseIf Vek < 30 Then"]
[null,"Vek = InputBox(\"Zadej svůj věk:\", \"Ukázka then více\", 0)",null,null,null,null,null,null,"      MsgBox \"Jsi mlaďoch.\""]
[null,null,null,null,null,null,null,null,"ElseIf Vek < 60 Then"]
[null,null,null,null,null,null,null,null,"      MsgBox \"Jsi v nejlepších letech.\""]
[null,null,null,null,null,null,null,null,"Else"]
[null,null,null,null,null,null,null,null,"      MsgBox \"Jsi téměř v důchodu.\""]
[null,null,null,null,null,null,null,null,"End If"]
[]
[]
[]
[]
[]
[null,null,null,null,null,null,null,null,"Odpoved1 = Range(\"B18\").Value"]
[null,null,null,null,null,null,null,null,"Odpoved2 = Range(\"B20\").Value"]
[]
[null,null,null,null,null,null,null,null,"If Odpoved1 = \"žena\" And Odpoved2 = \"ANO\" Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi žena kuřačka.\""]
[null,null,null,null,null,null,null,null,"ElseIf Odpoved1 = \"žena\" And Odpoved2 = \"NE\" Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi žena nekuřačka.\""]
[null,null,null,null,null,null,null,null,"ElseIf Odpoved1 = \"muž\" And Odpoved2 = \"NE\" Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi muž nekuřák.\""]
[null,null,null,null,null,null,null,null,"Else"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Jsi muž kuřák.\""]
[null,null,null,null,null,null,null,null,"End If"]
[]
[]
[null,null,null,null,null,null,null,null,"On Error GoTo nalezen_problem"]
[null,null,null,null,null,null,null,null,"Dim number As Integer"]
[]
[null,null,null,null,null,null,null,null,"number = InputBox(\"Zadej číslo: \")"]
[]
[null,null,null,null,null,null,null,null,"If number Mod 2 = 0 Then"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Číslo sude!\""]
[null,null,null,null,null,null,null,null,"Else"]
[null,null,null,null,null,null,null,null,"    MsgBox \"Číslo liché!\""]
[null,null,null,null,null,null,null,null,"End If"]
[]
[null,null,null,null,null,null,null,null,"Exit Sub"]
[]
[null,null,null,null,null,null,null,null,"nalezen_problem:"]
[null,null,null,null,null,null,null,null,"MsgBox \"Problém, asi nebylo zadáno číslo :)\""]