Pokud máte v listu sloupec číselných hodnot a potřebujete je převést na odpovídající anglická slova, možná vás zajímá, jak na to. Excel nemá vzorec, který by to dokázal přímo, ale existuje několik náhradních řešení, která můžete použít, včetně WPS AI, které převádí čísla na slova pomocí jednoduchého příkazu. V tomto článku vám ukážeme, jak v aplikaci Excel převést čísla na slova.
Část 1: Jak převést čísla na slova v aplikaci Excel pomocí VBA

Váš list v aplikaci Excel je plný čísel a nyní si představte, že se tato čísla magicky mění na slova. V tom spočívá síla makra SpellNumber v okouzlujícím světě aplikace Excel. Pojďme se v rychlosti podívat, jak toto makro přidat, a připravit tak půdu pro nadcházející kouzlo.
Příklad: Převod čísel na slova
Ve sloupci A máte sloupec s čísly od 1 do 10. Tato čísla chcete převést na slova a dodat tak svým datům elegantní nádech. Pojďme se podívat na to, jak za účelem přípravy na další krok přidat makro SpellNumber, abyste toho dosáhli.
Krok 1. Otevřete aplikaci Excel a přejděte na kartu „Vývojář“. Pokud tuto kartu nevidíte, nemějte obavy! Lze ji snadno povolit v možnostech aplikace Excel.


Krok 2. Kliknutím na možnost „Visual Basic“ otevřete editor VBA.

Krok 3. V editoru VBA přejděte na možnost „Vložit“ a vyberte „Modul“. Zde se odehraje veškeré kouzlo.

Krok 4. Zkopírujte kód makra SpellNumber z níže uvedených referenčních odkazů a vložte jej do modulu.
Function SpellNumber(ByVal MyNumber) 'Update by Extendoffice Dim xStr As String Dim xFNum As Integer Dim xStrPoint Dim xStrNumber Dim xPoint As String Dim xNumber As String Dim xP() As Variant Dim xDP Dim xCnt As Integer Dim xResult, xT As String Dim xLen As Integer On Error Resume Next xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ") xNumber = Trim(str(MyNumber)) xDP = InStr(xNumber, ".") xPoint = "" xStrNumber = "" If xDP > 0 Then xPoint = " point " xStr = Mid(xNumber, xDP + 1) xStrPoint = Left(xStr, Len(xNumber) - xDP) For xFNum = 1 To Len(xStrPoint) xStr = Mid(xStrPoint, xFNum, 1) xPoint = xPoint & GetDigits(xStr) & " " Next xFNum xNumber = Trim(Left(xNumber, xDP - 1)) End If xCnt = 0 xResult = "" xT = "" xLen = 0 xLen = Int(Len(str(xNumber)) / 3) If (Len(str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1 Do While xNumber <> "" If xLen = xCnt Then xT = GetHundredsDigits(Right(xNumber, 3), False) Else If xCnt = 0 Then xT = GetHundredsDigits(Right(xNumber, 3), True) Else xT = GetHundredsDigits(Right(xNumber, 3), False) End If End If If xT <> "" Then xResult = xT & xP(xCnt) & xResult End If If Len(xNumber) > 3 Then xNumber = Left(xNumber, Len(xNumber) - 3) Else xNumber = "" End If xCnt = xCnt + 1 Loop xResult = xResult & xPoint SpellNumber = xResult End Function Function GetHundredsDigits(xHDgt, xB As Boolean) Dim xRStr As String Dim xStrNum As String Dim xStr As String Dim xI As Integer Dim xBB As Boolean xStrNum = xHDgt xRStr = "" On Error Resume Next xBB = True If Val(xStrNum) = 0 Then Exit Function xStrNum = Right("000" & xStrNum, 3) xStr = Mid(xStrNum, 1, 1) If xStr <> "0" Then xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred " Else If xB Then xRStr = "and " xBB = False Else xRStr = " " xBB = False End If End If If Mid(xStrNum, 2, 2) <> "00" Then xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB) End If GetHundredsDigits = xRStr End Function Function GetTenDigits(xTDgt, xB As Boolean) Dim xStr As String Dim xI As Integer Dim xArr_1() As Variant Dim xArr_2() As Variant Dim xT As Boolean xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") xStr = "" xT = True On Error Resume Next If Val(Left(xTDgt, 1)) = 1 Then xI = Val(Right(xTDgt, 1)) If xB Then xStr = "and " xStr = xStr & xArr_1(xI) Else xI = Val(Left(xTDgt, 1)) If Val(Left(xTDgt, 1)) > 1 Then If xB Then xStr = "and " xStr = xStr & xArr_2(Val(Left(xTDgt, 1))) xT = False End If If xStr = "" Then If xB Then xStr = "and " End If End If If Right(xTDgt, 1) <> "0" Then xStr = xStr & GetDigits(Right(xTDgt, 1)) End If End If GetTenDigits = xStr End Function Function GetDigits(xDgt) Dim xStr As String Dim xArr_1() As Variant xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") xStr = "" On Error Resume Next xStr = xArr_1(Val(xDgt)) GetDigits = xStr End Function |
|---|
Krok 5. Zavřete editor VBA a vraťte se na list aplikace Excel.

Moje zkušenost s přidáním makra SpellNumber:
Integrace makra SpellNumber v aplikaci Excel byla překvapivě snadná. Postupoval jsem podle kroků na kartu Vývojář a do editoru VBA, kam jsem přidal kód makra pro slovní vyjádření částek používané v účetnictví. Zaujalo mě, jak se čísla mohou změnit na text. Přesto jsem se naučil opatrnosti; makra vyžadují přesnost, aby nedošlo k narušení tabulky. Pomohlo mi, že jsem měl zálohu a chápal strukturu VBA. Tato zkušenost otevírá dveře k dalším možnostem aplikace Excel a propojuje logiku s kreativitou.
Vaše listy v aplikaci Excel se stanou plátnem pro lingvistickou magii. V části 2 vám předáme klíč k odemčení makra SpellNumber, mocného nástroje, který povýší vaše číselná data na výmluvnou symfonii slov. Projděte si praktické příklady, které vám osvětlí cestu k mistrovství, a sledujte, jak se vaše data transformují přímo před vašima očima pod vedením umění tohoto pozoruhodného makra.
Příklad: Převod číselných dat na slova
Krok 1. Otevřete list aplikace Excel s číselnými daty, která chcete převést.
Krok 2. Vyberte vedlejší sloupec. Pro převedená slova použijme například sloupec B.
Krok 3. Do první buňky sloupce B zadejte =SpellNumber(A1).

Krok 4. Stiskněte klávesu Enter a sledujte, jak se číslo v buňce A1 elegantně přemění na slova v buňce B1.
Krok 5. Chcete-li převést další čísla, přetáhněte vzorec dolů a nechte makro SpellNumber kouzlit.

Moje zkušenost s použitím makra SpellNumber:
Vyzkoušení makra SpellNumber přineslo nový pohled, když se čísla přeměnila na slova, a dodalo mým datům neotřelý nádech. Proces byl přímočarý a odhalil svůj potenciál pro zlepšení komunikace. Je však namístě opatrnost; záleží na přesnosti. Drobné pochybení může vést k neočekávaným výsledkům. Znalost makra a pečlivé ověřování vstupů jsou pro bezproblémové použití zásadní.
Část 2: Jak převést čísla na slova v aplikaci Excel bez VBA
Orientace ve složitém prostředí VBA se může zdát skličující, ale nemějte obavy – existuje jednodušší cesta, jak dosáhnout okouzlujícího převodu čísel na slova. Tento alternativní přístup s využitím uživatelem definované funkce nabízí efektivnější metodu, která si zachovává stejnou lákavou transformaci. Prozkoumáním následujících kroků odhalíme tuto inovativní techniku, která vám umožní bezproblémově obohatit vaše data o lyrické kouzlo slov, a přitom se vyhnout složitostem VBA.
Výhody použití makra SpellNumber:
1. Snadné použití: Uživatelem definovaná funkce se vyznačuje jednoduchostí. Nevyžaduje žádné znalosti VBA, takže je přístupná širšímu publiku.
2. Univerzální dostupnost: Na rozdíl od maker, která je nutné integrovat do každého sešitu, funkce putuje společně s listem, což zajišťuje bezproblémové sdílení.
3. Žádná upozornění na makra: Rozlučte se s otravnými upozorněními na makra při sdílení sešitů. Funkce pracuje na pozadí a elegantně převádí čísla na slova.
Nevýhody použití makra SpellNumber v aplikaci Excel:
1. Znalost VBA: Makra vyžadují pro přizpůsobení znalosti VBA, což může omezovat uživatele, kteří nejsou s programováním obeznámeni.
2. Specifičnost pro sešit: Makra je nutné zkopírovat nebo zabudovat do každého sešitu, což zvyšuje složitost a nároky na údržbu.
3. Upozornění na makra: Sdílení sešitu s makry může spouštět upozornění, což může vzbuzovat obavy o bezpečnost.
Nyní se vydejme malebnější cestou a přesvědčme se o umění této metody (s využitím kombinací vzorců dostupných v aplikaci Excel) na praktickém příkladu.
Jak převést čísla na slova v aplikaci Excel bez VBA
Příklad: Převod čísel na slova pomocí vzorce
Krok 1. Otevřete list aplikace Excel s číselnými daty, která chcete převést.

Krok 2. Vyberte sousední sloupec vedle čísel. Pro převedená slova použijme například sloupec B.
Krok 3. Do první buňky sloupce B zadejte vzorec
=IF(OR(LEN(FLOOR(A1,1))=13,FLOOR(A1,1)<=0),"out of="" range="">1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),2,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(A1>=10^9," billion ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),4,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),5,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),4,3))>0," million ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),7,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),8,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),7,3))," thousand ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),10,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")))," "," ")&IF(FLOOR(A1,1)>1," "," "))&IF(ISERROR(FIND(".",A1,1)),""," point "&PROPER(IF(LEN(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2))=1,CHOOSE(1*LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2),"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ","")&CONCATENATE(CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"One","One One","One Two","One Three","One Four","One Five","One Six","One Seven","One Eight","One Nine")&" ","Two","Three","Four","Five","Six","Seven","Eight","Nine"),IF(VALUE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,""," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine")&" ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)="01","one ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),1)="0",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ",""))))))) |
|---|
Krok 4. Stiskněte klávesu Enter a sledujte, jak se číslo v buňce A2 plynule změní na slova v buňce B2.

Krok 5. Chcete-li převést další čísla, přetáhněte vzorec dolů a odhalte magickou proměnu.

Moje zkušenost s použitím uživatelem definované funkce:
Při zkoumání uživatelem definovaných funkcí jsem ocenil jednoduchost, kterou přinášejí – žádné složité kódování ve VBA ani složitá nastavení. Stačí jednoduchý vzorec pro převod čísel na slova, který aplikaci Excel dodá jedinečný šmrnc. Přesto malé upozornění: klíčem je dobré pochopení funkce. Otestujte ji v různých scénářích, abyste zajistili přesnost. Tento praktický poznatek podtrhuje hodnotu funkce a zároveň zdůrazňuje důležitost pečlivého používání pro dosažení nejlepších výsledků.
Část 3: Proč používat WPS Office?

Je důležité poznamenat, že metody, které jsme doposud prozkoumali, platí nejen pro Microsoft Excel, ale také pro WPS Office Spreadsheet. Zveme vás však k prozkoumání zřetelných výhod, které WPS Office přináší. Zde je důvod, proč doporučujeme zvážit aplikaci WPS Office pro vaše transformační úlohy v Excelu:
1. Cena: WPS Office nabízí dostupnou alternativu bez kompromisů ve funkcích, což z něj činí nákladově efektivní volbu pro osobní i profesionální použití.
2. Kompatibilita: Bezproblémová výměna dokumentů mezi WPS Office a Microsoft Office, která zajišťuje plynulou spolupráci a sdílení dokumentů.
3. Funkce: WPS Office se může pochlubit komplexní sadou funkcí, která konkuruje průmyslovým standardům a umožňuje snadno provádět nejrůznější úkoly. Disponuje také funkcemi umělé inteligence, jako je AI Writer a AI překladač dokumentů.
4. Uživatelsky přívětivé rozhraní: Orientace v aplikaci WPS Office je hračka i pro nováčky. Intuitivní rozhraní zajišťuje rychlé seznámení s programem a efektivní práci.
5. Objevte skryté poklady: Ponořte se do blogu WPS a objevte skryté poklady, které zdokonalí vaše dovednosti. Od pokročilých technik po inovativní řešení – každý návod je krokem k mistrovství.
6. Rychlý převod formátů: Pro zvýšení vaší pracovní efektivity dokáže WPS Office také rychle převést Excel do PDF.
7. Zvýšení produktivity pomocí AI: WPS AI výrazně urychlí vaše každodenní úkoly – od převodu čísel na slova v Excelu pomocí jednoduchého příkazu až po automatické generování vzorců, shrnutí dokumentů a překlad textu v reálném čase.
Část 4: Jak převést čísla na slova v aplikaci Excel pomocí WPS AI
V návaznosti na metody bez použití VBA, které jsme právě prozkoumali, nabízí WPS AI ještě intuitivnější způsob převodu čísel na slova – s nulovou potřebou ručního sestavování vzorců. Tento přístup využívající umělou inteligenci celý proces ještě více zjednodušuje a zpřístupňuje jej uživatelům všech úrovní pokročilosti.
Krok 1. Do prázdné buňky začněte psát =WPSAI a z rozevírací nabídky dvakrát klikněte na funkci WPSAI.

Krok 2. Uvnitř závorek funkce zadejte odkaz na buňku obsahující cílové číslo a poté přidejte příkaz.

Krok 3. Stiskněte klávesu Enter a umělá inteligence v této buňce okamžitě vygeneruje slovní ekvivalent čísla.

Krok 4. Přetažením úchytu výplně směrem dolů od první převedené buňky aplikujete stejný převod pomocí AI na všechna zbývající čísla ve sloupci.


Čísla ve vybraných buňkách budou převedena na text.
Na rozdíl od statických vzorců bez VBA, které jsou vázány na jedno konkrétní pravidlo převodu, dokáže umělá inteligence porozumět příkazům v přirozeném jazyce – pokud tedy někdy budu potřebovat přejít na jiný styl, stačí příkaz upravit a nemusím předělávat celý vzorec. Odpadá tak i nutnost pamatovat si složitou syntaxi nebo řešit problémy s vnořenými funkcemi; umělá inteligence odvede tu nejtěžší práci, takže se mohu soustředit na svá data, a nikoli na mechaniku postupu. Po dokončení statistik můžete také využít funkci převodu aplikace WPS Office, včetně převodu Excel do PDF.
Časté dotazy o tom, jak převést číslo na slova v aplikaci Excel
Mohu převést slova na čísla opačně?
Rozhodně! Zpětný převod, tedy ze slov na čísla, je v aplikaci WPS Office skutečně možný pomocí kódu VBA. Ačkoli se tato diskuze soustředila na převod čísel na slova, je důležité poznamenat, že WPS Office poskytuje všestranné nástroje pro zvládnutí obou směrů převodu.
Mohu převést čísla na slova jedním kliknutím?
Rozhodně, převod čísel na slova pouhým jedním kliknutím je díky pozoruhodným možnostem aplikace WPS Office (s využitím VBA nebo kombinací dostupných vzorců) hračka. Tento zjednodušený proces usnadňuje vaše úkoly a šetří vám drahocenný čas a úsilí.
Co je VBA a jak se jej rychle naučit?
VBA je programovací jazyk od společnosti Microsoft, který slouží k automatizaci úloh a vytváření vlastních řešení v aplikacích sady Office, jako jsou Excel, Word a PowerPoint.
Rychlé učení VBA:
Základy: Pochopte programovací koncepty, jako jsou proměnné a smyčky.
Editor VBA: Otevřete jej v aplikacích Office pro psaní kódu.
Příklady: Prostudujte si jednoduché příklady kódu.
Záznam maker: Učte se zaznamenáváním akcí.
Online zdroje: Využijte návody a kurzy.
Praxe: Pravidelně kódujte malé projekty.
Dokumentace: Prozkoumejte dokumentaci k jazyku VBA od společnosti Microsoft.
Komunity: Zapojte se do online fór.
Tvorba: Vytvářejte vlastní makra pro reálné úkoly.
Ladění: Naučte se opravovat chyby v kódu.
Zvědavost: Pokračujte v objevování a experimentování.
Zvládnutí jazyka VBA zvyšuje produktivitu a nabízí řešení na míru.
Co mám dělat, když se soubor během procesu převodu poškodí?
Obecně k problémům s poškozením souborů nedochází. Pokud by se však soubor během procesu převodu poškodil, nemusíte si dělat starosti – můžete použít nástroj WPS File Repair k obnovení souboru Excel.
Shrnutí
V tomto průvodci jsme prozkoumali různé způsoby, jak převést čísla na slova v aplikaci Excel, přičemž jsme se zaměřili na makra VBA i uživatelem definované funkce. U každé metody jsme poskytli jasné pokyny krok za krokem a příklady. S důrazem na výhody aplikace WPS Office jsme vyzdvihli její kompatibilitu s aplikací Excel, uživatelsky přívětivé funkce, cenovou dostupnost a také její výkonnou umělou inteligenci WPS AI, která zjednodušuje převod čísel na slova pomocí jednoho rychlého příkazu. WPS vám také poskytuje prohlížeč XLSX, který vám pomůže okamžitě otevřít a zobrazit soubory Excel. Ať už si vyberete VBA nebo uživatelem definované funkce, tento průvodce vás vybaví pro plynulé zvládnutí převodu čísel na slova a zároveň vám ukáže výhody používání WPS Office pro efektivnější plnění kancelářských úkolů.





