Ako previesť čísla do slov v MS Excel

Microsoft vyvinul add - on aplikácie , ktorá vytvorí funkciu čísla - na - slov v programe Excel . Funkcia prevedie číselnú hodnotu bunky tabuľky do textu , napríklad 1,29 dolárov sa javí ako jeden dolár a dvadsiatich deviatich centov . Ak chcete previesť čísla do slov v programe Excel , funkcia je potrebné vytvoriť ručne pomocou editora jazyka Visual Basic , ktorý je dodávaný štandardne vo všetkých aplikáciách balíka Office . Potom, čo bola táto funkcia vytvorená , je možné pristupovať prostredníctvom panela nástrojov programu Excel pre prevod čísel na slová v tabuľke . Pokyny
Vytvorenie funkcie Čísla - k - slov v programe Excel
1

Otvorte program Microsoft Excel .
2

Podržte kláves ALT a stlačte klávesu F11 pre otvorenie editor jazyka Visual Basic .
3

zvoľte " Vložiť " z hlavného panela nástrojov a kliknite na tlačidlo " modul " .
4

skopírujte a prilepte alebo zadajte nasledujúce spoločnosti Microsoft vzorec do modulu :

Možnosť Explicit'Main FunctionFunction SpellNumber ( byval MyNumber ) Dim doláre , centy , TempDim DecimalPlace , CountReDim Miesto ( 9 ) Vzhľadom na to StringPlace ( 2 ) = " tisíc " Place ( 3 ) = " miliónov " miesto ( 4 ) = " miliardy " Place ( 5 ) = " bilión " " Reťazec reprezentácia amount.MyNumber = Trim ( Str ( MyNumber ) ) " Poloha desatinné miesto 0 , ak none.DecimalPlace = Instru ( MyNumber , " . " ) " Previesť centov a nastaviť MyNumber k doláru amount.If DecimalPlace > 0 ThenCents = GetTens ( ľavý ( Mid ( MyNumber , DecimalPlace + 1 ) & _ " 00 " , 2 ) ) MyNumber = Trim ( Vľavo ( MyNumber , DecimalPlace - 1 ) ) End IfCount = 1do Kým MyNumber < > " " Temp = GetHundreds ( Right ( MyNumber , 3 ) ) Ak je teplota < > " " Tak Dollars = Temp & Place ( Count ) a DollarsIf Ľan ( MyNumber ) > 3 ThenMyNumber = Left ( MyNumber , Ľan ( MyNumber ) - 3 ) ​​ElseMyNumber = " " End IfCount = count + 1LoopSelect Case DollarsCase " " dolár = " Žiadne doláre " Case " One " doláre = " Jeden dolár " Case ElseDollars = dolárov a " dolár " End SelectSelect Case CentsCase " " centov = " a žiadne centov " Case " One " centov = " a jeden cent " prípad ElseCents = " a " & centov & " centov " End SelectSpellNumber = doláre & CentsEnd Funkcia

" Konvertuje číslo 100-999 do textFunction GetHundreds ( byval MyNumber ) Dim výsledok ako StringIf Val ( MyNumber ) = 0 Then Exit FunctionMyNumber = vpravo ( " 000 " a MyNumber , 3 ) " Previesť stovky place.If Mid ( MyNumber , 1 , 1 ) < > " 0 " ThenResult = GetDigit ( Mid ( MyNumber , 1 , 1 ) ) & " Sto " End If ' Previesť desiatky a place.If MID ( MyNumber , 2 , 1 ) < > " 0 " ThenResult = Výsledok & GetTens ( Mid ( MyNumber , 2 ) ) ElseResult = Výsledok & GetDigit ( Mid ( MyNumber , 3 ) ) End IfGetHundreds = ResultEnd
funkcie

" Konvertuje číslo 10-99 do text.Function GetTens ( TensText ) Dim výsledok ako StringResult = " " ' Null z dočasnej funkcie value.If Val ( ľavá ( TensText , 1 ) ) = 1 Then ' Ak je hodnota medzi 10-19 ... Select Case Val ( TensText ) Prípad 10 : Výsledok = " Desať " Prípad 11 : Výsledok = " Jedenásť " Prípad 12 : Výsledok = " Dvanásť " Prípad 13 : Výsledok = " Thirteen " Prípad 14 : Výsledok = " Štrnásť " Prípad 15 : Výsledok = " Fifteen " Prípad 16 : Výsledok = " šestnástka " Prípad 17 : Výsledok = " Seventeen " Prípad 18 : Výsledok = " Osemnásť " Prípad 19 : Výsledok = " Devätnásť " Case SelectElse ElseEnd " Ak je hodnota medzi 20-99 ... Select Case Val ( ľavá ( TensText , 1 ) ) Prípad 2 : Výsledok = " Dvadsať " Prípad 3 : Výsledok = " Tridsať " Prípad 4 : Výsledok = " Štyridsať " Prípad 5 : Výsledok = " Päťdesiat " Case 6 : Výsledok = " Šesťdesiat " Prípad 7 : Výsledok = " Sedemdesiat " Prípad 8 : Výsledok = " Osemdesiat " Prípad 9 : Výsledok = " Deväťdesiat " Case selectResult ElseEnd = Výsledok & GetDigit _ ( Right ( TensText , 1 ) ) ' načítať tie place.End IfGetTens = ResultEnd Funkcia

" Konvertuje číslo od 1 do 9 do text.Function GetDigit ( číslice ) Select Case Val ( číslice ) Prípad 1 : GetDigit = " One " Prípad 2 : GetDigit = " dva " Prípad 3 : GetDigit = " tri " Prípad 4 : GetDigit = " Štyri " Prípad 5 : GetDigit = " päť " Prípad 6 : GetDigit = " šesť " Prípad 7 : GetDigit = " Seven " Prípad 8 : GetDigit = " Osem " prípad 9 : GetDigit = " Nine " Case Else : GetDigit = " " End Function SelectEnd
5

Zvoľte SpellNumber z pull - down menu modulu
Zmena čísla pre . slová v tabuľke
6

Otvorte tabuľku programu Excel .
7

Vyberte bunku , v ktorej chcete skonvertovať čísla na text kliknutím na bunku .
stránka 8

kliknite na kartu Vložiť /Insert Function ( FX ) .
9

kliknite na " User Defined " v ľavom menu a kliknite na " SpellNumber " v ponuke pravého .
10

Zadajte číslo , ktoré chcete previesť na slová .
11

Kliknite na tlačidlo " OK " . Číslo sa zobrazí v bunke ako text .

• Predchádzajúca strana: Ako si vyrobiť tabuľky pomocou aplikácie Microsoft Excel 
• Ďalšia strana: Ako si vyrobiť Zoznam 2 stĺpce v tabuľke programu Excel