Ve svém předchozím článku jsem vysvětlil, jak převést číslo na slova v aplikaci Excel pomocí VBA. Abych toho dosáhl, napsal jsem několik řádků kódu. Nikdy jsem si však nepředstavoval, že bychom mohli převádět čísla na slova pomocí vzorců Excelu. Ale jeden z našich uživatelů Excelforum to udělal. Nikdy jsem si nepředstavoval, že bychom mohli převádět čísla na slova.
Tento vzorec se používá k převodu čísla na americkou měnu. Tento vzorec dokáže převést čísla z centů z rozsahu na miliardy. Číslo může mít také dvě desetinná místa.
Tento uživatel s Id HaroonSid napsal šílený vzorec. Vzorec je dlouhý stránku a pokud jej zde nyní zmíním, pokryje celý příspěvek. Takže jsem to zmínil na konci příspěvku. Níže si můžete stáhnout soubor aplikace Excel a zkontrolovat vzorec.
Číslo slovům
Vzorec je příliš dlouhý na vysvětlení, ale logiku vysvětlit dokážu. Tento vzorec určuje, jak dlouhé je číslo. Poté pomocí funkce CHOOSE nahradí čísla slovy. Ale to není tak snadné. Tento vzorec identifikuje jednou, desítky, stovky, tisíce, miliony a miliardy. Identifikuje, které číslo je v které sekci. Další složitost je tato. Číslo 12 může být jedna nebo dvě ve velkém počtu nebo Dvanáct. To přináší velkou složitost. Ale tento muž dokázal vyřešit tuto složitost a zajistit, aby tento vzorec fungoval efektivně.
Nyní tedy zmiňuji vzorec. Tento vzorec platí pro B2. Jakékoli číslo zapsané v B2 bude převedeno na slova. Tento vzorec převádí čísla na dolary v americké měně, ale můžete jej upravit tak, aby převáděl na jakoukoli měnu nebo jednotku pouhým vyhledáním a nahrazením „dolarů“ a „centů“. Pokud například chcete převést čísla na indickou rupii a Paise, stačí najít a nahradit.
Tak se držte židle. Zde je vzorec.
Vzorec pro převod čísla na slova:
| = IF (NEBO (LEN (FLOOR (B2,1)) = 13, FLOOR (B2,1) 1, CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 3,1) +1) ,"","-jedna dva tři čtyři pět šest sedm osm devět"), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12)), 2,1)) = 0, CHOOSE (MID (TEXT (INT (B2), REPT (0,12))), 3, 1) +1, „“, „jedna“, „dvě“, „tři“, „čtyři“, „pět“, „šest“, „sedm“, „osm“, „devět“), „“))), IF (B2> = 10^9, "miliarda", ""), VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 4,1) +1, "", "sto") „dvě stě“, „tři sta“, „čtyři sta“, „pět set“, „šest set“, „sedm set“, „osm set“, „devět set“), VYBERTE (MID (TEXT (INT ( B2), REPT (0,12)), 5,1) +1, "", CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 6,1) +1, "deset" „jedenáct“, „dvanáct“, „třináct“, „čtrnáct“, „patnáct“, „šestnáct“, „sedmnáct“, „osmnáct“, „devatenáct“), „dvacet“, „třicet“, „čtyřicet“, „padesát“, „šedesát“, „sedmdesát“, „osmdesát“, „devadesát“), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12)), 5,1))> 1, VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 6,1) +1, "", "-jeden", "-dva", "-tři", "-čtyři", " -pět ","-šest ","-sedm ","-osm ","-devět "), IF (HODNOTA (MID (TEXT (INT (B2)), REPT (0,12 )), 5,1)) = 0, VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 6,1) +1, "", "jeden", "dva", "tři "," čtyři "," pět "," šest "," sedm "," osm "," devět ")," "))), IF (HODNOTA (MID (TEXT (INT (B2)), REPT (0,12 )), 4,3))> 0, "milión", ""), VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 7,1) +1, "", "jeden sto "," dvě stě "," tři sta "," čtyři sta "," pět set "," šest set "," sedm set "," osm set "," devět set "), VYBERTE (MID (TEXT ( INT (B2), REPT (0,12)), 8,1) +1, "", CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, " deset “,„ jedenáct “,„ dvanáct “,„ třináct “,„ čtrnáct “,„ patnáct “,„ šestnáct “,„ sedmnáct “,„ osmnáct “,„ devatenáct “),„ dvacet “,„ třicet “,„ čtyřicet “ "," padesát "," šedesát "," sedmdesát "," osmdesát "," devadesát "), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12)), 8,1))> 1, VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, +1, "", "-jeden", "-dva", "-tři", "-čtyři") , "-pět", "-šest", "-sedm", "-osm", "-devět"), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12))), 8, 1)) = 0, ZVOLTE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, "", "jeden", "dva", "tři", "čtyři" „pět“, „šest“, „sedm“, „osm“, „devět“), „“))), IF (HODNOTA (MID (TEXT (INT (B2)), REPT (0,1 2)), 7,3)), "tisíc", ""), VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 10,1) +1, "", "sto "," dvě stě "," tři sta "," čtyři sta "," pět set "," šest set "," sedm set "," osm set "," devět set "), VYBERTE (MID (TEXT (INT) (B2), REPT (0,12)), 11,1) +1, "", CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 12,1) +1, "deset „,„ jedenáct “,„ dvanáct “,„ třináct “,„ čtrnáct “,„ patnáct “,„ šestnáct “,„ sedmnáct “,„ osmnáct “,„ devatenáct “),„ dvacet “,„ třicet “,„ čtyřicet “ „padesát“, „šedesát“, „sedmdesát“, „osmdesát“, „devadesát“), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12)), 11,1))> 1 , ZVOLTE (MID (TEXT (INT (B2), REPT (0,12)), 12,1) +1, +1, "", "-jeden", "-dva", "-tři", "-čtyři", „-pět“, „-šest“, „-sedm“, „-osm“, „-devět“), IF (HODNOTA (MID (TEXT (INT (B2), REPT (0,12))), 11,1 )) = 0, VYBERTE (MID (TEXT (INT (B2), REPT (0,12)), 12,1) +1, "", "jeden", "dva", "tři", "čtyři", „pět“, „šest“, „sedm“, „osm“, „devět“), „“)))), „“, „“)) & IF (FLOOR (B2,1)> 1, „dolary“, „dolar ")) & IF (ISERROR (FIND (". ", B2,1))," "," and "& PROPER (IF (LEN (LEFT (TRIM (MID (SUBSTITUTE (Sheet1! B2,". ") REPT (" ", 255)), 255,200)), 2)) = 1, VYBERTE (1*VLEVO (T RIM (MID (SUBSTITUTE (Sheet1! B2, ".", REPT ("", 255)), 255,200)), 2), "ten", "dvacet", "třicet", "čtyřicet", "padesát", "šedesát", "sedmdesát", "osmdesát", "devadesát") & "centů", "" ") & CONCATENATE (VYBERTE (MID (TEXT (INT (LEFT (TRIM (MID (SUBSTITUTE (Sheet1! B2,", ")) REPT ("", 255)), 255,200)), 2)), REPT (0,12)), 11,1) +1, "", VYBERTE (MID (TEXT (INT (LEFT (TRIM (MID (SUBSTITUTE)) (List1! B2, ".", REPT ("", 255)), 255,200)), 2)), REPT (0,12)), 12,1) +1, "deset", "jedenáct", " dvanáct "," třináct ",„ čtrnáct “,„ patnáct “,„ šestnáct “,„ sedmnáct “,„ osmnáct “,„ devatenáct “) a„ centy “,„ dvacet “,„ třicet “,„ čtyřicet “,„ padesát “ "," šedesát "," sedmdesát "," osmdesát "," devadesát "), IF (HODNOTA (MID (TEXT (INT (VLEVO (VLEVO (VLEVO (VSTUP) (VSTŘIK (STŘED (SUBSTITUT (List1! B2,".), REPT ("", 255)), 255,200)), 2)), REPT (0,12)), 11,1))> 1, VYBERTE (MID (TEXT (INT (VLEVO) (TRIM (MID (SUBSTITUTE (List1! B2, ")). ", REPT (" ", 255)), 255,200)), 2)), REPT (0,12)), 12,1) +1," ","-jedna ","-dvě ","-tři ","-čtyři ","-pět ","-šest ","-sedm ","-osm ","-devět ") &" centů ", IF (LEFT (TRIM (MID (SUBSTITUTE (Sheet1! B2) , ".", REPT ("", 255)), 255,200)), 2) = "01", "jeden cent", IF (LEFT (TRIM (MID (SUBSTITUTE (Sheet1! B2, "."), REPT ( "", 255)), 255,200)), 1) = "0", ZVOLTE (MID (TEXT (INT (LEFT (TRIM (MID (SUBSTITUTE (Sheet1! B2, ".), REPT (" ", 255)))) , 255,200)), 2)), REPT (0,12)), 12,1) +1, "", "jedna", "dvě", "tři", "čtyři", "pět", "šest" „sedm“, „osm“, „devět“) a „centy“, „„))))))))) |
Takže ano, toto je vzorec. Jak se ti to líbí? Doufám, že vám to bude užitečné. Pokud to nechcete použít, použijte metodu VBA k převodu čísel na slova. Máte -li jakékoli pochybnosti týkající se tohoto článku nebo máte -li jakékoli další otázky týkající se aplikace Excel, zeptejte se jich také v sekci komentáře níže.
Jak převést číslo na slova v aplikaci Excel v rupiích : Můžeme vytvořit vlastní vzorec aplikace Excel pro převod čísel na slova v indických rupiích. Vytvořil jsem tuto vlastní funkci pro převod čísel na slova v indických rupiích. Soubor makra si můžete stáhnout
13 metod, jak zrychlit Excel | Excel je dostatečně rychlý na to, aby vypočítal 6,6 milionu vzorců za 1 sekundu v ideálních podmínkách s normálním konfiguračním počítačem. Někdy ale pozorujeme, že soubory Excelu dělají výpočty pomaleji než šneci. Za tímto pomalejším výkonem je mnoho důvodů. Pokud je dokážeme identifikovat, můžeme nechat naše vzorce vypočítat rychleji.
Vycentrujte list Excel vodorovně a svisle na stránce aplikace Excel : Microsoft Excel vám umožňuje zarovnat list na stránce, můžete změnit okraje, zadat vlastní okraje nebo vycentrovat list vodorovně nebo svisle na stránku. Okraje stránky jsou prázdné mezery mezi daty listu a okraji tištěné stránky
Rozdělit buňku diagonálně v aplikaci Microsoft Excel 2016 : K diagonálnímu rozdělení buněk použijeme formátování buňky a vložíme do buňky diagonálně dělící čáru. To odděluje buňky diagonálně vizuálně.
Jak vložím zaškrtnutí v aplikaci Excel 2016 : K vložení zatržítka do buňky Excelu používáme symboly v Excelu. Nastavte písma na wingdings a pomocí vzorce Char (252) získáte symbol zatržítka.
Jak zakázat Scroll Lock v Excelu : Klávesy se šipkami v Excelu pohybují buňkou nahoru, dolů, doleva a doprava. Tato funkce je však použitelná pouze v případě, že je v aplikaci Excel zakázán Scroll Lock. Scroll Lock v Excelu slouží k posouvání listu nahoru, dolů, doleva a doprava, nikoli do buňky. Tento článek vám tedy pomůže, jak zkontrolovat stav zámku posouvání a jak jej deaktivovat?
Co dělat, když nefungují odkazy aplikace Excel Break : Když pracujeme s několika soubory aplikace Excel a používáme k dokončení práce vzorec, záměrně nebo neúmyslně vytváříme odkazy mezi různými soubory. Odkazy na normální vzorec lze snadno přerušit pomocí možnosti přerušit odkazy.
Oblíbené články:
50 zkratek aplikace Excel pro zvýšení produktivity | Získejte rychleji svůj úkol. Těchto 50 klávesových zkratek vám umožní pracovat v Excelu ještě rychleji.
Jak používat funkci Excel VLOOKUP| Toto je jedna z nejpoužívanějších a nejoblíbenějších funkcí Excelu, která slouží k vyhledávání hodnot z různých rozsahů a listů.
Jak používat Excel Funkce COUNTIF| Pomocí této úžasné funkce spočítejte hodnoty s podmínkami. K počítání konkrétní hodnoty není nutné filtrovat data. Funkce Countif je nezbytná pro přípravu řídicího panelu.
Jak používat funkci SUMIF v aplikaci Excel | Toto je další základní funkce řídicího panelu. To vám pomůže shrnout hodnoty za konkrétních podmínek.