Open het Microsoft Excel -programma . Kopen van 2

Houd de Alt- toets ingedrukt en druk op F11 te openen de Visual Basic Editor .
3

Kies "Invoegen " in de hoofdwerkbalk en klik op "Module . "

Kopiëren en plakken 4 of typ de volgende Microsoft formule in de module :

Optie Explicit'Main FunctionFunction SpellNumber
( ByVal myNumber ) Dim Dollars , Cents , TempDim DecimalPlace , CountReDim Place ( 9 ) Zoals StringPlace ( 2 ) = " Duizend " Place ( 3 ) = " Million " Place ( 4 ) = " Billion " Place ( 5 ) = " Trillion " ' String representatie van amount.MyNumber = Trim ( Str ( myNumber ) ) ' Positie van decimaal 0 als none.DecimalPlace = InStr ( myNumber , " . " ) 'Converteren cent en zet myNumber om dollar amount.If DecimalPlace > 0 ThenCents = GetTens (Links ( Mid ( myNumber , DecimalPlace + 1 ) & _ " 00 " , 2 ) ) myNumber = Trim (Links ( myNumber , DecimalPlace - 1 ) ) End IfCount = 1Do Terwijl myNumber < > " " Temp = GetHundreds ( Rechts ( myNumber , 3 ) ) Als Temp < > " " Dan Dollars = Temp & Place ( graaf ) & DollarsIf Len ( myNumber ) > 3 ThenMyNumber = Links ( myNumber , Len ( myNumber ) - 3 ) ​​ElseMyNumber = " " End IfCount = Graaf + 1LoopSelect Case DollarsCase " " Dollars = " Geen Dollars " Case " One " Dollars = " One Dollar " Case ElseDollars = dollars & " dollars " End SelectSelect Geval CentsCase " " Cents = " en geen cent " Case " One " Cents = " en One Cent " Case ElseCents = " en " & Centen & " Cents " End SelectSpellNumber = dollars & CentsEnd Functie

' Converteert een getal 100-999 in textFunction GetHundreds ( ByVal myNumber ) Dim Resultaat Zoals StringIf Val ( myNumber ) = 0 Then Exit FunctionMyNumber = Right ( " 000 " & myNumber , 3 ) ' converteren de honderden place.If Mid ( myNumber , 1 , 1 ) < > " 0 " ThenResult = GetDigit ( Mid ( myNumber , 1 , 1 ) ) & "Honderd " End If ' Zet de tientallen en eenheden place.If Mid ( myNumber , 2 , 1 ) < > " 0 " ThenResult = Resultaat & GetTens ( Mid ( myNumber , 2 ) ) ElseResult = Resultaat & GetDigit ( Mid ( myNumber , 3 ) ) End IfGetHundreds = ResultEnd Functie

' Zet een nummer 10-99 in text.Function GetTens ( TensText ) Dim Resultaat Zoals StringResult = " " ' Null uit het tijdelijke functie value.If Val ( Left ( TensText , 1 ) ) = 1 Then ' Als waarde tussen 10-19 ... Select Case Val ( TensText ) zaak 10 : Resultaat = " Tien " Case 11 : Resultaat = " Elf " Case 12 : Resultaat = " Twaalf " Case 13 : Resultaat = " Dertien " Case 14 : Resultaat = " Veertien " Case 15 : Resultaat = " Vijftien " Case 16 : Resultaat = " Zestien " Case 17 : Resultaat = " Seventeen " Case 18 : Resultaat = " Achttien " Case 19 : Resultaat = " Negentien " Case ElseEnd SelectElse ' Als de waarde tussen 20-99 ... Select Case Val ( Left ( TensText , 1 ) ) zaak 2 : Resultaat = " Twintig " Case 3 : Resultaat = " Dertig " Case 4 : Resultaat = " Forty " Case 5 : Resultaat = " Fifty " Case 6 : Resultaat = " Zestig " Case 7 : Resultaat = " Zeventig " Case 8 : Resultaat = " Tachtig " Case 9 : Resultaat = " Negentig " Case ElseEnd selectResult = Resultaat & GetDigit _ ( Rechts ( TensText , 1 ) ) ' ophalen degenen place.End IfGetTens = ResultEnd Functie

' Converteert een getal van 1 tot 9 in text.Function GetDigit ( Digit ) Select Case Val ( Digit ) Case 1 : GetDigit = " One " Case 2 : GetDigit = " twee "Case 3 : GetDigit = " Drie " Case 4 : GetDigit = " Vier " Case 5 : GetDigit = " Five " Case 6 : GetDigit = " Zes "Case 7 : GetDigit = " Seven " Case 8 : GetDigit = " Acht " case 9 : GetDigit = " Nine " case Else : . GetDigit = " " End SelectEnd Function
5

Kies SpellNumber van pull - down menu van de module
veranderen Getallen tot woorden in een spreadsheet
6

Open een Excel-spreadsheet .
7

Selecteer de cel waarin u wilt nummers converteren naar tekst door te klikken op de cel .

8

Klik op het tabblad Paste /Functie invoegen ( fx ) .

Klik 9 " User Defined " in het menu aan de linkerkant en klik op " SpellNumber " in het menu aan de rechterkant .

Type 10 in het nummer dat u wilt omgezet in woorden .
11

Klik op " OK . " Het nummer verschijnt in de cel als tekst .