{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Arkusz1","KOD MAKRA DO SKOPIOWANIA"],"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":"Arkusz1","index":0,"n_rows":10,"n_cols":4,"rows_kept":10,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,null,null,2548.4499999999998]
[null,null,null,{"$f":"slownie(D3)","v":" dwa tysiące pięćset czterdzieści osiem złotych  czterdzieści pięć groszy"}]
[]
[null,null,null,"=slownie(D3)"]
[]
[null,null,null,"Link do filmu na YouTube, gdzie tłumaczę, jak sobie zaimplementować to makro w swoim pliku:"]
[]
[null,null,null,"https://youtu.be/LIxvoEDUoqE"]

{"sheet":"KOD MAKRA DO SKOPIOWANIA","index":1,"n_rows":204,"n_cols":3,"rows_kept":204,"cut":false,"hidden":false,"merged":[]}
["Function slownie(x)"]
[null,null,"Tak na wszelki wypadek"]
["Static setki(10) As String"]
["Static dzies(10) As String"]
["Static jedn(20) As String"]
[]
["setki(0) = \"\""]
["setki(1) = \"sto\""]
["setki(2) = \"dwieście\""]
["setki(3) = \"trzysta\""]
["setki(4) = \"czterysta\""]
["setki(5) = \"pięćset\""]
["setki(6) = \"sześćset\""]
["setki(7) = \"siedemset\""]
["setki(8) = \"osiemset\""]
["setki(9) = \"dziewięćset\""]
["dzies(0) = \"\""]
["dzies(1) = \"dziesięć\""]
["dzies(2) = \"dwadzieścia\""]
["dzies(3) = \"trzydzieści\""]
["dzies(4) = \"czterdzieści\""]
["dzies(5) = \"pięćdziesiąt\""]
["dzies(6) = \"sześćdziesiąt\""]
["dzies(7) = \"siedemdziesiąt\""]
["dzies(8) = \"osiemdziesiąt\""]
["dzies(9) = \"dziewięćdziesiąt\""]
["jedn(0) = \"\""]
["jedn(1) = \"jeden\""]
["jedn(2) = \"dwa\""]
["jedn(3) = \"trzy\""]
["jedn(4) = \"cztery\""]
["jedn(5) = \"pięć\""]
["jedn(6) = \"sześć\""]
["jedn(7) = \"siedem\""]
["jedn(8) = \"osiem\""]
["jedn(9) = \"dziewięć\""]
["jedn(10) = \"dziesięć\""]
["jedn(11) = \"jedenaście\""]
["jedn(12) = \"dwanaście\""]
["jedn(13) = \"trzynaście\""]
["jedn(14) = \"czternaście\""]
["jedn(15) = \"piętnaście\""]
["jedn(16) = \"szesnaście\""]
["jedn(17) = \"siedemnaście\""]
["jedn(18) = \"osiemnaście\""]
["jedn(19) = \"dziewiętnaście\""]
[]
[]
["    If x >= 1000000000000# Then"]
["        Beep"]
["        slownie = \"Wprowadź kwotę ręcznie!\""]
["        MsgBox \"funkcja działa od 0 do 1.000.000.000.000\""]
["        Exit Function"]
["    End If"]
[]
["    liczba = Int(x)"]
["    l = (x - liczba) * 100"]
["    liczbagr = Int(l)"]
["    If (l - liczbagr) * 10 >= 5 Then liczbagr = liczbagr + 1"]
["    liczbamld = Int(liczba / 1000000000)"]
["    liczbamil = Int((liczba - liczbamld * 1000000000) / 1000000)"]
["    liczbatys = Int((liczba - liczbamld * 1000000000 - liczbamil * 1000000) / 1000)"]
["    liczbaset = Int(liczba - liczbamld * 1000000000 - liczbamil * 1000000 - liczbatys * 1000)"]
[]
[]
["'************* liczenie miliardów"]
[]
["    liczba = liczbamld"]
["    If liczba = 0 Then GoTo mil"]
["    "]
["    l = Int(liczba / 100)"]
["    slowniezl$ = slowniezl$ + setki(l)"]
[]
["    liczba = liczba - (l * 100)"]
["    If liczba < 20 Then slowniezl$ = slowniezl$ + \" \" + jedn(liczba): GoTo pisz_mld"]
["    l = Int(liczba / 10)"]
["    slowniezl$ = slowniezl$ + \" \" + dzies(l)"]
[]
["    liczba = liczba - (l * 10)"]
["    slowniezl$ = slowniezl$ + \" \" + jedn(liczba)"]
[]
["pisz_mld:"]
["    If liczbamld = 1 Then slowniezl$ = slowniezl$ + \" miliard \": GoTo mil"]
["    po = Str$(liczba)"]
["    py = Right(po, 1)"]
[]
["    If po >= 5 And po < 20 Then slowniezl$ = slowniezl$ + \" miliardów \": GoTo mil"]
["    If py > 1 And py < 5 Then slowniezl$ = slowniezl$ + \" miliardy \": GoTo mil"]
["    If liczbamld >= 5 Then slowniezl$ = slowniezl$ + \" miliardów \""]
["    "]
["mil:"]
[]
[]
["'************* liczenie milionów"]
[]
["    liczba = liczbamil"]
["    If liczba = 0 Then GoTo tys"]
["    "]
["    l = Int(liczba / 100)"]
["    slowniezl$ = slowniezl$ + setki(l)"]
[]
["    liczba = liczba - (l * 100)"]
["    If liczba < 20 Then slowniezl$ = slowniezl$ + \" \" + jedn(liczba): GoTo pisz_mil"]
["    l = Int(liczba / 10)"]
["    slowniezl$ = slowniezl$ + \" \" + dzies(l)"]
[]
["    liczba = liczba - (l * 10)"]
["    slowniezl$ = slowniezl$ + \" \" + jedn(liczba)"]
[]
["pisz_mil:"]
["    If liczbamil = 1 Then slowniezl$ = slowniezl$ + \" milion \": GoTo tys"]
["    po = Str$(liczba)"]
["    py = Right(po, 1)"]
[]
["    If po >= 5 And po < 20 Then slowniezl$ = slowniezl$ + \" milionów \": GoTo tys"]
["    If py > 1 And py < 5 Then slowniezl$ = slowniezl$ + \" miliony \": GoTo tys"]
["    If liczbamil >= 5 Then slowniezl$ = slowniezl$ + \" milionów \""]
["    "]
["tys:"]
[]
[]
["'************* liczenie tysięcy"]
[]
["    liczba = liczbatys"]
["    If liczba = 0 Then GoTo zl"]
["    "]
["    l = Int(liczba / 100)"]
["    slowniezl$ = slowniezl$ + setki(l)"]
[]
["    liczba = liczba - (l * 100)"]
["    If liczba < 20 Then slowniezl$ = slowniezl$ + \" \" + jedn(liczba): GoTo pisz_tys"]
["    l = Int(liczba / 10)"]
["    slowniezl$ = slowniezl$ + \" \" + dzies(l)"]
[]
["    liczba = liczba - (l * 10)"]
["    slowniezl$ = slowniezl$ + \" \" + jedn(liczba)"]
[]
["pisz_tys:"]
["    If liczbatys = 1 Then slowniezl$ = slowniezl$ + \" tysiąc \": GoTo zl"]
["    po = Str$(liczba)"]
["    py = Right(po, 1)"]
[]
["    If po >= 5 And po < 20 Then slowniezl$ = slowniezl$ + \" tysięcy \": GoTo zl"]
["    If py > 1 And py < 5 Then slowniezl$ = slowniezl$ + \" tysiące \": GoTo zl"]
["    If liczbatys >= 5 Then slowniezl$ = slowniezl$ + \" tysiecy \""]
[]
["zl:"]
[]
[]
["'************** liczenie złotych"]
[]
["    liczba = liczbaset"]
["    If Int(x) = 0 Then slowniezl$ = slowniezl$ + \" zero złotych\": GoTo gr"]
["    If liczba = 0 Then slowniezl$ = slowniezl$ + \" złotych\": GoTo gr"]
["    "]
["    l = Int(liczba / 100)"]
["    slowniezl$ = slowniezl$ + setki(l)"]
[]
["    liczba = liczba - (l * 100)"]
["    If liczba < 20 Then slowniezl$ = slowniezl$ + \" \" + jedn(liczba): GoTo pisz_zl"]
["    l = Int(liczba / 10)"]
["    slowniezl$ = slowniezl$ + \" \" + dzies(l)"]
[]
["    liczbaa = liczba - (l * 10)"]
["    slowniezl$ = slowniezl$ + \" \" + jedn(liczbaa)"]
[]
["pisz_zl:"]
["    po = Str$(liczba)"]
["    py = Right(po, 1)"]
["    "]
["    If po >= 5 And po < 20 Then slowniezl$ = slowniezl$ + \" złotych\": GoTo gr"]
["    If py >= 2 And py < 5 Then slowniezl$ = slowniezl$ + \" złote\": GoTo gr"]
["    If po = 1 Then slowniezl$ = slowniezl$ + \" złoty\""]
["    If liczbaset >= 5 Then slowniezl$ = slowniezl$ + \" złotych\""]
["    "]
["gr:"]
[]
[]
["'************ liczenie groszy"]
[]
["    liczba = liczbagr"]
["    If liczba = 0 Then slowniegr$ = \"zero groszy\": GoTo wynik"]
["    If liczba < 20 Then slowniegr$ = jedn(liczba): GoTo pisz_gr"]
["    "]
["    l = Int(liczba / 10)"]
["    slowniegr$ = slowniegr$ + \" \" + dzies(l)"]
[]
["    liczba = liczba - (l * 10)"]
["    slowniegr$ = slowniegr$ + \" \" + jedn(liczba)"]
[]
["pisz_gr:"]
["    po = Str$(liczbagr)"]
["    py = Right(po, 1)"]
["    "]
["    If po >= 5 And po < 20 Then slowniegr$ = slowniegr$ + \" groszy\": GoTo wynik"]
["    If py >= 2 And py < 5 Then slowniegr$ = slowniegr$ + \" grosze\": GoTo wynik"]
["    If po = 1 Then slowniegr$ = slowniegr$ + \" grosz\": GoTo wynik"]
["    If po >= 5 Then slowniegr$ = slowniegr$ + \" groszy\""]
[]
[]
["wynik:"]
["    slownie = slowniezl$ + \" \" + slowniegr$"]
[]
["End Function"]