{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["List2","List1"],"not_rendered":{"charts":0,"images":0,"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":"List2","index":0,"n_rows":79,"n_cols":4,"rows_kept":79,"cut":false,"hidden":false,"merged":[[0,0,0,5]]}
["Číslo slovy - VBA makro"]
[]
["VBA > Module",null,null,"=Slovy(Cis)"]
[]
[]
["Function Slovy(Cis As Double) As String"]
["Dim StrCis As String"]
["Dim LenCis As Byte, Rad As Integer, Ofs As Byte"]
["Dim Pol As Byte, pom As String, pom1 As String, pom2 As String"]
["Dim Jedn As Variant, Des1 As Variant, Des As Variant, Sta As Variant"]
["Dim JednTM As Variant, Tis As Variant, Mil As Variant"]
["'"]
["If IsEmpty(Cis) Then End"]
["'"]
["Jedn = Array(\"\", \"jedna\", \"dvě\", \"tři\", \"čtyři\", _"]
["pět, \"šest\", \"sedm\", \"osm\", \"devět\")"]
["Des1 = Array(\"deset\", \"jedenáct\", \"dvanáct\", \"třináct\", \"čtrnáct\", _"]
["patnáct, \"šestnáct\", \"sedmnáct\", \"osmnáct\", \"devatenáct\")"]
["Des = Array(\"\", \"\", \"dvacet\", \"třicet\", \"čtyřicet\", \"padesát\", _"]
["šedesát, \"sedmdesát\", \"osmdesát\", \"devadesát\")"]
["Sta = Array(\"\", \"jednosto\", \"dvěsta\", \"třista\", \"čtyřista\", _"]
["pětset, \"šestset\", \"sedmset\", \"osmset\", \"devětset\")"]
["Tis = Array(\"tisíc\", \"tisíc\", \"tisíce\", \"tisíce\", \"tisíce\", _"]
["tisíc, \"tisíc\", \"tisíc\", \"tisíc\", \"tisíc\")"]
["JednTM = Array(\"\", \"jeden\", \"dva\", \"tři\", \"čtyři\", _"]
["pět, \"šest\", \"sedm\", \"osm\", \"devět\")"]
["Mil = Array(\"milionů\", \"milion\", \"miliony\", \"miliony\", \"miliony\", _"]
["milionů, \"milionů\", \"milionů\", \"milionů\", \"milionů\")"]
["'"]
["'"]
["StrCis = CStr(Format(Cis, \"0.00\"))"]
["Pol = InStr(StrCis, \",\") - 1 ' poloha radu jednotek v cisle"]
["If Pol > 9 Then Slovy = \">999 999 999\": Exit Function"]
["Rad = 0 ' rad cislice v cisle"]
["Slovy = \"\""]
["Do"]
["pom = Mid(StrCis, Pol, 1)"]
["If Pol > 1 Then"]
["pom1 = Mid(StrCis, Pol - 1, 1)"]
["Else"]
["pom1 = \"0\""]
["End If"]
["'"]
["Select Case Rad"]
["Case 0"]
["pom2 = IIf(pom1 <> 1, Jedn(pom), Des1(pom)): Ofs = IIf(pom1 <> 1, 1, 2)"]
["Case 1"]
["pom2 = Des(pom): Ofs = 1"]
["Case 2"]
["pom2 = Sta(pom): Ofs = 1"]
["Case 3"]
["pom2 = IIf(pom1 <> 1, JednTM(pom), Des1(pom)): Ofs = IIf(pom1 <> 1, 1, 2)"]
["If Pol > 3 Then ' kdyz zustavaji jeste >3 cislice"]
["If Mid(StrCis, Pol - 2, 3) <> \"000\" Then"]
["pom2 = pom2 & IIf(pom1 <> 1, Tis(pom), \" tisíc \") ' a jsou i tisice -> vlozeni slova tisic"]
["Else"]
["Ofs = 3 ' preskoci na rad 6 - miliony"]
["End If"]
["Else ' kdyz zustava jeste <3 cislice -> vlozeni slova tisic"]
["pom2 = pom2 & IIf(pom1 <> 1, Tis(pom), \" tisíc \")"]
["End If"]
["Case 4"]
["pom2 = Des(pom): Ofs = 1"]
["Case 5"]
["pom2 = Sta(pom): Ofs = 1"]
["Case 6"]
["pom2 = IIf(pom1 <> 1, JednTM(pom) & Mil(pom), Des1(pom) & \" milionu` \"): Ofs = IIf(pom1 <> 1, 1, 2)"]
["Case 7"]
["pom2 = Des(pom): Ofs = 1"]
["Case 8"]
["pom2 = Sta(pom): Ofs = 1"]
["End Select"]
["'"]
["Slovy = pom2 & Slovy"]
["Pol = Pol - Ofs: Rad = Rad + Ofs"]
["'"]
["Loop While Pol > 0"]
["Slovy = Trim(Slovy) ' & \" \" & Right(StrCis, 2) ' pridani destinne casti"]
["End Function"]

{"sheet":"List1","index":1,"n_rows":36,"n_cols":11,"rows_kept":36,"cut":false,"hidden":false,"merged":[[13,0,13,6]]}
[]
[]
["jednotky",null,"desítky",null,"desítky (b)",null,"stovky",null,"tisice",null,"deset"]
[1,"jedna",1,"deset",0,"deset",1,"jednosto",1,"jedentisíc",1]
[2,"dvě ",2,"dvacet",1,"jedenact",2,"dvěstě",2,"dvatisíce",2]
[3,"tři",3,"třicet",2,"dvanáct",3,"třista",3,"třitisíce",3]
[4,"čtyři",4,"čtyřicet",3,"třináct",4,"čtyřista",4,"čtyřitisíce",4]
[5,"pět",5,"padesát",4,"čtrnáct",5,"pětset",5,"pěttisíc",5]
[6,"šest",6,"šedesát",5,"patnáct",6,"šeset",6,"šesttisíc",6]
[7,"sedm",7,"sedmdesát",6,"šestnáct",7,"sedmset",7,"sedmtisíc",7]
[8,"osm",8,"osmdesát",7,"sedmnáct",8,"osmset",8,"osmtisíc",8]
[9,"devět",9,"devadesát",8,"osmnáct",9,"devětset",9,"devěttisíc",9]
[null,null,null,null,9,"devatenáct"]
["Číslo slovně funkce"]
[null,"pracuje od 1 až do 9999"]
[]
[null,"zadej číslo",101,null,{"$f":"IF(C26=1,E26,IF(C26=2,E27,IF(C26=3,E28,IF(C26=4,E29,E30))))","v":"jednostojedna"}]
[]
[]
[null,"desetitiisíce",{"$f":"MID($C$17,C26-4,1)","v":{"$error":"#VALUE!"}},{"$f":"VLOOKUP(C20+0,I4:J12,2,FALSE)","v":{"$error":"#VALUE!"}}]
[null,"tisíce",{"$f":"MID($C$17,C26-3,1)","v":{"$error":"#VALUE!"}},{"$f":"VLOOKUP(C21+0,I4:J12,2,FALSE)","v":{"$error":"#VALUE!"}}]
[null,"stovky",{"$f":"MID($C$17,C26-2,1)","v":"1"},{"$f":"IF(C22=\"0\",\"\",VLOOKUP(C22+0,G4:H12,2,FALSE))","v":"jednosto"}]
[null,"desítky",{"$f":"MID($C$17,C26-1,1)","v":"0"},{"$f":"IF(C23=\"0\",\"\",IF(C23=\"1\",VLOOKUP(C24+0,E4:F13,2,FALSE),VLOOKUP(C23+0,C4:D12,2,FALSE)))","v":""}]
[null,"jednotky",{"$f":"MID($C$17,C26,1)","v":"1"},{"$f":"IF(C26=1,E24,IF(C24=\"0\",\"\",IF(C23=\"1\",\"\",VLOOKUP(C24+0,A4:B12,2,FALSE))))","v":"jedna"},{"$f":"IF(C26=\"1\",\"\",VLOOKUP(C24+0,A4:B12,2,FALSE))","v":"jedna"}]
[]
[null,"počet číslic",{"$f":"LEN(C17)","v":3},1,{"$f":"CONCATENATE(D24)","v":"jedna"}]
[null,null,null,2,{"$f":"CONCATENATE(D23,D24)","v":"jedna"}]
[null,{"$f":"VLOOKUP(C24+0,E5:F13,2,FALSE)","v":"jedenact"},{"$f":"VLOOKUP(C23+0,C4:D12,2,FALSE)","v":{"$error":"#N/A"}},3,{"$f":"CONCATENATE(D22,D23,D24)","v":"jednostojedna"}]
[null,{"$f":"VLOOKUP(C24+0,A4:B12,2,FALSE)","v":"jedna"},null,4,{"$f":"CONCATENATE(D21,D22,D23,D24)","v":{"$error":"#VALUE!"}}]
[null,null,null,5,{"$f":"CONCATENATE(D20,D21,D22,D23,G24)","v":{"$error":"#VALUE!"}}]
[]
[]
[]
[]
[]
[null,"Staženo z: "," office.lasakovi.com"]