Tabulky používá mnoho lidí při své každodenní práci, takže jsou důležitým prvkem jejich kanceláře. Zatímco většina lidí používá tabulky poměrně základním způsobem, pro některé pokročilé uživatele je obtížné nebo složité je převést číslo na slova v Excelu. V této příručce jsme se touto problematikou zabývali a poskytli jsme čtyři různé metody, jak převést číslo na slova v Excelu. Kromě toho existují tři další metody pro převod čísel do textových formátů .

Stáhnout pracovní sešit

Níže si můžete stáhnout pracovní sešit, který jsme použili v tomto článku, a procvičit si ho sami.

4 způsoby převodu čísel na slova v aplikaci Excel

V této části článku se dozvíte, jak v aplikaci Excel převádět čísla na slova. Kromě toho si ukážeme, jak čtyři techniky k provedení operace. Pro provedení relace použijeme. Verze Microsoft 365 .

1. Použití kombinovaných funkcí v aplikaci Excel k převodu čísel na slova

Vzorec aplikace Excel, který jsme zde použili, se opírá o čtyři funkce. LEVÝ , MID , TEXT , a VYBRAT funkce.

Za prvé, syntaxe LEVÝ funkce je následující:

Tato funkce se v podstatě používá k extrakci znaků z textu.

Text: Textový řetězec, ze kterého se mají extrahovat znaky.

num_chars [Volitelné]: Počet znaků, které se mají extrahovat. Začíná se zleva. Ve výchozím nastavení, num_chars=1 .

Za druhé, syntaxe MID funkce je následující:

Tato funkce se ve skutečnosti používá k extrakci textu zevnitř řetězce.

Text: Text, ze kterého se má extrahovat.

start_num: Umístění prvního extrahovaného znaku.

num_chars: Počet znaků, které se mají extrahovat.

Za třetí, syntax TEXT funkce je následující:

Tato funkce nakonec převede číslo na text ve formátu čísla.

hodnotu: Číslo, které se má převést.

format_text: Formát čísla, který se má použít.

Dále je uvedena syntaxe VYBRAT funkce je následující:

Tato funkce získá hodnotu ze seznamu na základě pozice.

index_num: Hodnota, která se vybere. Číslo v rozmezí 1 a 254 .

value1: První hodnota, ze které lze vybírat.

value2 [nepovinné]: Druhá hodnota, ze které lze vybírat.

• Zde převedeme číslo v Čísla ve slovech sloupec.

• Nyní zapište následující vzorec do C5 buňka.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,, "Dvacet ", "Třicet ", "Čtyřicet ", "Padesát ", "Šedesát ", "Sedmdesát ", "Osmdesát ", "Devadesát ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Deset", "Jedenáct", "Dvanáct", "Třináct", "Čtrnáct", "Patnáct", "Šestnáct", "Sedmnáct", "Osmnáct", "Devatenáct"))

&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1))=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT(B5,”000000000.00″)))>0),” Million and “,” Million “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID(TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))

&CHOOSE(MID(TEXT(B5, "000000000.00″),5,1)+1,,," Dvacet"," Třicet"," Čtyřicet"," Padesát"," Šedesát"," Sedmdesát"," Osmdesát"," Devadesát")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Jedna"," Dvě"," Tři"," Čtyři"," Pět"," Šest"," Sedm"," Osm"," Devět"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Deset"," Jedenáct"," Dvanáct"," Třináct"," Čtrnáct"," Patnáct"," Šestnáct"," Sedmnáct"," Osmnáct"," Devatenáct"))

&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″),6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID(TEXT(B5,”000000000.00″),9,1)=0),” Hundred “,” Hundred and “))&

CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,,, "Dvacet ", "Třicet ", "Čtyřicet ", "Padesát ", "Šedesát ", "Sedmdesát ", "Osmdesát ", "Devadesát ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Deset", "Jedenáct", "Dvanáct", "Třináct", "Čtrnáct", "Patnáct", "Šestnáct", "Sedmnáct", "Osmnáct", "Devatenáct"))

Celý vzorec se může na první pohled zdát složitý, ale v podstatě se jedná o opakování jediné části. první části vzorce, měli byste být schopni pochopit zbytek.

• Následně stiskněte ENTER .

Výsledkem bude následující výstup.

Rozdělení vzorců:

Zpočátku se TEXT se zde používá funkce pro přeměnu čísla na "000000000.00" formát textu.

TEXT(B7,”000000000.00″)

Poté se LEVÝ slouží k extrakci nejlevějšího znaku z čísla. Umožňuje nám určit, zda je vrácené číslo zero nebo jakoukoli jinou hodnotu.

LEFT(TEXT(B7,”000000000.00″))

Dále VYBRAT funkce se používá k reprezentaci extrahovaného čísla vhodnými slovy.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

Nyní kontroluje, zda je hodnota zero nebo ne. Pokud je zero pak se nezobrazí nic.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

Zobrazí se "Sto" pokud je další dva čísla jsou zero . V opačném případě se zobrazí "Sto a."

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "Jedna", "Dvě", "Tři", "Čtyři", "Pět", "Šest", "Sedm", "Osm", "Devět")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7,”000000000.00″),3,1)=0),” Hundred”,” Hundred and “))

Tento vzorec nevyžaduje VBA nebo pole. Je to vynikající metoda pro převod čísel do slov. Má však dva chyby. Zaprvé, nedokáže dokonale reprezentovat desetinná čísla za body. Zadruhé, maximální početní limit je 999, 999, 999 .., Pan Pete M. přišel s tímto vzorcem.

• Nyní můžete napsat vzorec pro zbytek řádků nebo jednoduše použít vzorec. Funkce automatického vyplňování aplikace Excel .

Nakonec získáte všechny převádí čísla na slova .

Přečtěte si více: Jak převést číslo na text se dvěma desetinnými místy v aplikaci Excel (5 způsobů)

2. Použití funkce VLOOKUP pro převod čísel na slova

Můžete použít VLOOKUP funkce na převést čísla na slova v Excelu. Uděláme něco jiného. Zde musíte nejprve vložit všechna čísla slovy a pak můžete použít tuto funkci, která z nich převede libovolné číslo na slova.

Kroky:

• Nejdříve si všechna čísla zapište ručně slovy do pole Sloupec C .

• Nyní použijte následující vzorec v C12 buňka.

• Pak stiskněte tlačítko ENTER .

Rozdělení vzorců

V tomto vzorci se VLOOKUP vrátí hodnotu ze zadaného pole.

• Za prvé, B12 je hodnota vyhledávání, kterou hledá v dané tabulce.
• Za druhé, B4:C9 je pole tabulek ve kterém hledá cílová hodnota .
• Za třetí, 2 je počet sloupců v tabulce, ze kterých má být vrácena hodnota.
• Za čtvrté, False označuje přesný zápas.

Přečtěte si více: Jak převést číslo na text pro VLOOKUP v aplikaci Excel (2 způsoby)

Podobná čtení

• Jak převést číslo na text v aplikaci Excel pomocí apostrofu
• Převod čísla na text pomocí zeleného trojúhelníku v aplikaci Excel
• Jak převést číslo na text s čárkami v aplikaci Excel (3 snadné metody)
• Převod čísla na text bez vědeckého zápisu v aplikaci Excel
• Jak převést číslo peso na slova v aplikaci Excel (ve snadných krocích)

3. Použití VBA pro převod čísla na slova v aplikaci Excel

Nejzajímavější na tom je, že si můžete sestavit vlastní vlastní funkce na převést čísla na slova v aplikaci Excel. Kromě toho můžete použít kód VBA vyvinout definováno Postup je uveden níže.

Kroky :

• Nejprve je třeba vybrat Vývojář karta>> pak vyberte Visual Basic.

• Nyní z Vložte karta>> musíte vybrat Modul .

• V tuto chvíli si musíte zapsat následující údaje. Kód v Modul .

 Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " " ", " " ", " " ", " ") x_numb =Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP> 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T "" Then x_output = x_T& x_P(x_cnt) & x_output End If If Len(x_numb)> 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Booleanx_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If If Mid(x_string_Num, 2, 2)"00" Pak x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ","Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1))> 1 Then If y_b Thenx_string = "a " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_string = "" Then If y_b Then x_string = "a " End If End If If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","Jedna ", "Dvě ", "Tři ", "Čtyři ", "Pět ", "Šest ", "Sedm ", "Osm ", "Devět ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function 

• Nyní musíte uložit kód .
• Pak je třeba přejít do Pracovní list aplikace Excel .

V tuto chvíli můžete použít definováno K tomu je třeba postupovat podle uvedených kroků.

Kroky:

• Nyní vyberte buňku, ve které chcete zobrazit převedený výstup. (V našem případě buňka C5 ).
• Pak zadejte Znaménko rovnosti (=) v buňce. Mělo by to umožnit zadávání vzorců.
• Poté zadejte " =číslo_převod_na_slova " nebo vyberte number_converting_into_words z rozevírací nabídky.
• Následně vyberte buňku s číselnou hodnotou, kterou chcete převést na slova (v našem případě buňka B5 ).
• Nakonec stiskněte tlačítko ENTER tlačítko.

Výsledkem bude převod vybraného čísla buňky na odpovídající slova. Nakonec můžete tento vzorec jednoduše zkopírovat i do ostatních buněk.

Přečtěte si více: Jak převést číselnou hodnotu na anglická slova v aplikaci Excel

4. Použití VBA pro formulaci měn v aplikaci Excel

Tato metoda je podobná té předchozí. Funguje také tak, že vložíte modul pomocí VBA (Visual Basic for Application) a použít ji jako funkci. Od poslední metody se liší tím, že se převede čísla na příslušná slova měny. Dále je uveden příklad.

Nyní postupujte podle následujících kroků a použijte tuto metodu:

• Za prvé, postupujte podle metoda-3 pro vložení modulu.
• Za druhé, zapište následující kód do Modul 2 .

 Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal> 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number =Trim(Left(celé_číslo, x_decimal - 1)) End If xIndex = 1 Do While celé_číslo "" xHundred = "" xValue = Right(celé_číslo, 3) If Val(xValue) 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) "0" Then xHundred =xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If End If If xHundred "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If If Len(whole_number)> 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One"converted_into_cent = " a jeden cent" Case Else converted_into_cent = " a " & converted_into_cent & "Centy" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output= "Deset" Case 11: my_output = "Jedenáct" Case 12: my_output = "Dvanáct" Case 13: my_output = "Třináct" Case 14: my_output = "Čtrnáct" Case 15: my_output = "Patnáct" Case 16: my_output = "Šestnáct" Case 17: my_output = "Sedmnáct" Case 18: my_output = "Osmnáct" Case 19: my_output = "Devatenáct" Case Else End Select ElseSelect Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten =my_output End Function Function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select EndFunkce 

Díky tomu můžete používat definováno funkce s názvem Převést_číslo_na_slovo_s_měnou Za tímto účelem byste měli postupovat podle uvedených kroků.

Kroky:

• Nyní je třeba vybrat buňku, ve které chceme výsledek uchovat. My jsme vybrali buňku C5 buňka.
• Pak je třeba použít odpovídající vzorec v okně C5 buňka.

• Následně stiskněte ENTER .

• Nakonec použijte aplikaci Excel Funkce automatického vyplňování pro zbytek buněk C6:C9 .

Nakonec získáte celou převedenou částku.

Přečtěte si více: Jak převést číslo na text a zachovat koncové nuly v aplikaci Excel (4 způsoby)

Jak převést číslo do textového formátu v aplikaci Excel

Dosud jsme mluvili o jak převést čísla na slova v aplikaci Excel. V této části článku je vysvětleno, jak se změnit čísla na textový formát Jedná se o nejjednodušší a nejrychlejší metodu převodu čísel na text.

Při použití této metody postupujte podle následujících kroků:

• Nejprve vyberte buňku nebo buňky s číselnými hodnotami, které chcete převést na text (v našem případě buňka C5:C9 )
• Za druhé, přejděte na Home a vyberte kartu Text z rozevírací nabídky kategorie buněk v části Číslo sekce.

Výsledkem bude převod číselné hodnoty vybraných buněk na text. Pochopíte to tak, že budete sledovat zarovnání. Ve výchozím nastavení jsou texty v aplikaci Excel zarovnány vlevo a čísla vpravo.

Nebo můžete stisknout CTRL+1 otevřít okno s názvem Formátování buněk a vyberte Číslo a poté vyberte možnost Text kategorie odtud.

Přečtěte si více: Převod čísla na text v aplikaci Excel VBA (4 příklady)

Praktická část

Pro procvičování jsme na každý list v pravé části přidali část Practice.

Závěr

Zde jsme se snažili, aby tento článek je konečný průvodce o tom, jak převést číslo na příslušná slova nebo text v MS Excel Kromě toho jsme zúžili sedm různých technik v tomto článku, abyste si mohli vybrat ideální možnost, která je nejvhodnější pro vaši konkrétní situaci. Doufáme tedy, že jste našli řešení, které jste hledali. Pokud máte nějaké návrhy nebo dotazy, zanechte nám prosím komentář. Děkujeme.