Come convertire i numeri in parole in MS Excel

Microsoft ha sviluppato un add-on che consente di creare una funzione di numeri -a- parole in Excel . La funzione converte il valore numerico di una cella del foglio in un testo , ad esempio , $ 1,29 apparirà come un dollaro e ventinove centesimi . Per convertire i numeri in parole in Excel , la funzione deve essere creata manualmente utilizzando l' editor di Visual Basic , che viene fornita di serie in tutte le applicazioni di Office . Dopo che la funzione è stata creata, è possibile accedervi tramite la barra degli strumenti di Excel per convertire i numeri in parole in un foglio di calcolo.
Istruzioni Creazione della funzione Numeri -to- Parole in Excel
1

Aprire il programma Microsoft Excel .

2 Tenere premuto il tasto Alt e premere il tasto F11 per aprire l'editor di Visual Basic.
3

scegliere "Inserisci" dalla barra degli strumenti principale e fare clic su "Modulo ".
4

Copiare e incollare o digitare il seguente Microsoft formula nel modulo:

Opzione Explicit'Main FunctionFunction SpellNumber ( ByVal MyNumber ) Dollari Dim , centesimi, TempDim DecimalPlace , CountReDim Luogo ( 9) Come StringPlace ( 2) = Place " Mille" ( 3) = "Million " posto ( 4) = " Billion " meraviglioso (5 ) = " trilione "' rappresentazione String di amount.MyNumber = Trim ( Str ( MyNumber ))' Posizione del decimale 0 se none.DecimalPlace = InStr ( MyNumber , " . " ) ' Convertire centesimi e impostare MyNumber al dollaro amount.If DecimalPlace > 0 ThenCents = GetTens (Left ( Mid ( MyNumber , DecimalPlace + 1) & _ " 00 " , 2) ) MyNumber = Trim ( Left ( MyNumber , DecimalPlace - 1 )) End IfCount = 1Do Mentre MyNumber < > " " Temp = GetHundreds ( Right ( MyNumber , 3 )) Se Temp < > "" Then Dollari = Temp & Place ( conte ) e DollarsIf Len ( MyNumber ) > 3 ThenMyNumber = Sinistra ( MyNumber , Len ( MyNumber ) - 3) ElseMyNumber = " " End IfCount = Count + 1LoopSelect caso DollarsCase " " Dollari = " No Euro " Case " One " Dollari = " One Dollar " Case ElseDollars = dollari e " dollari" End SelectSelect caso CentsCase " " Cents = "e senza centesimi " caso " One " Cents = "e un centesimo " ElseCents caso = " e" & Cents e " Cents " End SelectSpellNumber = dollari & CentsEnd Funzione

' Converte un numero 100-999 in textFunction GetHundreds ( ByVal MyNumber ) Dim Risultato Come StringIf Val ( MyNumber ) = 0 Then Exit FunctionMyNumber = Right ( " 000 " & MyNumber , 3) ' Convertire le centinaia place.If Mid ( MyNumber , 1 , 1 ) < > " 0 " = ThenResult GetDigit ( Mid ( MyNumber , 1 , 1) ) & "cento" End If ' Converti le decine e le place.If media ( MyNumber , 2 , 1) < > " 0 " ThenResult = Risultato & GetTens ( Mid ( MyNumber , 2) ) ElseResult = Risultato & GetDigit ( Mid ( MyNumber , 3 )) End IfGetHundreds = ResultEnd Funzione

'Converte un numero di 10-99 in text.Function GetTens ( TensText ) Dim Risultato Come stringResult = " " ' NULL la funzione temporanea value.If Val (Left ( TensText , 1) ) = 1 Then ' Se il valore tra 10-19 ... Select Case Val ( TensText ) caso 10: Risultato = caso " Ten" 11 : Risultato = " Eleven " Case 12 : Risultato = "Dodici " Case 13: Risultato = caso " Thirteen " 14 : Risultato = caso " Quattordici " 15 : Risultato = caso " Quindici" 16 : Risultato = caso " Sedici " 17 : Risultato = " Seventeen " Case 18 : Risultato = caso " Diciotto " 19 : Risultato = caso " Diciannove " ElseEnd SelectElse ' Se valore tra 20-99 ... Select Case Val (Left ( TensText , 1) ) caso 2 : Risultato = caso " Twenty " 3 : Risultato = caso " Trenta" 4 : Risultato = caso " Forty " 5: Risultato = caso " Fifty " 6 : Risultato = caso " Sixty " 7 : Risultato = caso " Seventy " 8 : Risultato = caso "Ottanta " 9 : Risultato = caso " novanta " ElseEnd selectResult = Risultato & GetDigit _ ( Right ( TensText , 1) ) ' Recupera quelli place.End IfGetTens = ResultEnd Funzione

' Converte un numero da 1 a 9 in text.Function GetDigit ( Digit ) Select Case Val ( Digit ) caso 1 : GetDigit = "One" caso 2 : GetDigit = " due " caso 3 : GetDigit = " " caso 4 : GetDigit = " Tre " caso 5 : GetDigit = " Four " caso 6 : GetDigit = " Cinque Sei "Case 7 : GetDigit = " Seven " caso 8 : GetDigit = " otto " caso 9 : GetDigit = caso " Nine" Else : . GetDigit = " " End Function SelectEnd
5

Scegli SpellNumber dal menu a discesa del modulo
Modifica dei numeri di parole in un foglio di calcolo
6

Aprire un foglio di calcolo Excel .
7

Selezionare la cella in cui si desidera convertire i numeri in testo facendo clic sulla cella .
Pagina 8

Fare clic sulla scheda Incolla funzione /Inserisci ( fx ) .
9

Fare clic su " User Defined " nel menu di sinistra e fare clic su " SpellNumber " nel menu di destra .
10

Digitare il numero che si desidera convertire in parole.
11

Fare clic su " OK ". Il numero viene visualizzato nella cella come testo .