Ako prevádzate čísla na abecedu v spoločnosti Microsoft Excel, napríklad 10 desať a 1200 dvanásťsto?

Pomocou vstavanej funkcie nemôžete priamo konvertovať čísla na napísané slová v programe Excel. Môžete to však dosiahnuť pomocou kombinácie vzorcov a kódu VBA:

Použitie vzorcov (obmedzené na menšie čísla):

1. číslo do textu: Použite funkciu `text na konverziu čísla na text. Napríklad `=text (10," 0 ")` sa vráti "10".

2. Vyhľadáva tabuľka: Vytvorte vyhľadávaciu tabuľku obsahujúcu čísla a ich zodpovedajúce hláskovanie. Táto tabuľka bude musieť zahrnúť všetky čísla, ktoré chcete previesť.

3. vlookup: Pomocou funkcie `vlookup` vyhľadajte číslo v vyhľadávacej tabuľke a vráťte príslušné pravopisy. Napríklad `=vlookup (A1, Tabuľka1,2, false)` vyhľadá hodnotu v bunke A1 v tabuľke „Tabuľka 1“ a vráti hodnotu v druhom stĺpci.

Obmedzenia prístupu do vzorca:

* obmedzený rozsah: Táto metóda funguje iba pre čísla v rozsahu vašej vyhľadávacej tabuľky.

* Komplexné nastavenie: Vytváranie a udržiavanie veľkej vyhľadávacej tabuľky pre všetky možné čísla môže byť únavné.

pomocou kódu VBA (flexibilnejšie):

1. Otvorte editor VBA: Stlačením klávesu „Alt + F11` otvoríte editor Visual Basic.

2. Vložte modul: Vložte nový modul kliknutím na položku „Vložiť“> „modul“.

3. prilepte kód: Vložte nasledujúci kód do modulu:

`` `VBA

Funkcia SpellNumber (Byval MyNumber ako dvojitý) ako reťazec

Strávte stovky ako reťazec, desiatky ako reťazec, ako reťazec

Slabé miesto ako celé číslo

„Zvládnite záporné čísla

Ak myNumber <0 potom

SpellNumber ="negatívny" a pravopis (ABS (myNumber))

Výstupná funkcia

Skončiť

„Zvládajte nulu

Ak myNumber =0 potom

SpellNumber ="Zero"

Výstupná funkcia

Skončiť

'Rukoväte čísla väčšie ako 999,999,999

Ak myNumber> 99999999 potom

SpellNumber ="Číslo príliš veľké"

Výstupná funkcia

Skončiť

„Vytvorte polia pre číselné pravopisy

Dim Onesarray () ako reťazec

Onesarray =split ("nula, jeden, dva, tri, štyri, päť, šesť, sedem, osem, deväť", ",")

Dim teensarray () ako reťazec

Teensarray =Split ("Desať, jedenásť, dvanásť, trinásť, štrnásť, pätnásť, šestnásť, sedemnásť, osemnásť, devätnásť", ",")

Dim tensarray () ako reťazec

Tensarray =Split („dvadsať, tridsať, štyridsať, päťdesiat, šesťdesiat, sedemdesiat, osemdesiat, deväťdesiat“, ",")

„Rozdeľte číslo na svoje miesto hodnôt

Miesto =1

Stovky =""

Desiatky =""

Ones =""

Robiť, zatiaľ čo myNumber> 0

Vyberte miesto prípadu

Prípad 1

Ones =oneArray (MyNumber Mod 10)

MyNumber =int (myNumber / 10)

Prípad 2

Ak MyNumber mod 10 =1 potom

Desiatky =teensarray (MyNumber Mod 100 - 10)

MyNumber =int (myNumber / 100)

Inak

Tens =Tensarray (MyNumber Mod 10 - 1)

MyNumber =int (myNumber / 10)

Skončiť

Prípad 3

Stovky =onesarray (MyNumber Mod 10) a „Sto“

MyNumber =int (myNumber / 10)

Prípad 4

Ak MyNumber mod 10 =1 potom

Desiatky =teensarray (MyNumber Mod 100 - 10)

MyNumber =int (myNumber / 100)

Inak

Tens =Tensarray (MyNumber Mod 10 - 1)

MyNumber =int (myNumber / 10)

Skončiť

Stovky =onesarray (MyNumber Mod 10) a „tisíc“

MyNumber =int (myNumber / 10)

Prípad 5

Ones =oneArray (MyNumber Mod 10)

MyNumber =int (myNumber / 10)

Prípad 6

Ak MyNumber mod 10 =1 potom

Desiatky =teensarray (MyNumber Mod 100 - 10)

MyNumber =int (myNumber / 100)

Inak

Tens =Tensarray (MyNumber Mod 10 - 1)

MyNumber =int (myNumber / 10)

Skončiť

Prípad 7

Stovky =onesarray (MyNumber Mod 10) a „Sto“

MyNumber =int (myNumber / 10)

Prípad 8

Ak MyNumber mod 10 =1 potom

Desiatky =teensarray (MyNumber Mod 100 - 10)

MyNumber =int (myNumber / 100)

Inak

Tens =Tensarray (MyNumber Mod 10 - 1)

MyNumber =int (myNumber / 10)

Skončiť

Stovky =onesarray (MyNumber Mod 10) a „milión“

MyNumber =int (myNumber / 10)

Koncový výber

Miesto =miesto + 1

Slučka

„Kombinujte hodnoty miesta do jedného reťazca

SpellNumber =stovky a desiatky a tie

Koncová funkcia

`` `

4. Použite funkciu v programe Excel: Vo svojom hárku Excel môžete použiť takúto funkciu:`=SpellNumber (A1)`, kde A1 obsahuje číslo, ktoré chcete previesť.

Výhody prístupu VBA:

* Väčšie čísla: Zvládne čísla až 999 999 999.

* Žiadna vyhľadávacia tabuľka: Nie je potrebné vytvárať a udržiavať vyhľadávaciu tabuľku.

Poznámka: Kód VBA vyžaduje povolenie makier v Exceli.

Nezabudnite zvoliť prístup, ktorý najlepšie vyhovuje vašim potrebám, a veľkosť čísel, ktoré potrebujete previesť.

• Predchádzajúca strana: Aký panel nástrojov sa objavuje automaticky na základe úloh, ktoré vykonávate Excel? 
• Ďalšia strana: Ako stohujete informácie do bunky Excel?