Visualizzazione di numeri come parole in Excel - manichini

Se hai mai avuto bisogno di visualizzare un numero scritto come testo, probabilmente hai scoperto che Excel non offre tale funzione. Quando Excel non riesce a fornire, è spesso possibile correggere l'insufficienza utilizzando VBA. Ecco una funzione VBA, denominata SPELLDOLLARS, che puoi utilizzare nelle formule del foglio di lavoro.

Esempi di Excel

Ecco alcuni esempi di SPELLDOLLAR.

Il codice VBA

Per utilizzare questo codice, premere Alt + F11 per attivare Visual Basic Editor. Quindi selezionare Inserisci → Modulo per inserire un nuovo modulo VBA. Copia il codice e incollalo nel nuovo modulo.

Funzione SPELLDOLLARS (cella) As Variant 'Restituisce un valore, espresso nelle parole Dim Dollari As String, Cents As String Dim TextLen As Long, Pos As Long Dim Temp As String Dim iHundreds As Long, iTens As Long, iOnes As Lunghe Dim Dimarian come Variant, Teens As Variant, Tens As Varian Dim Dim (2 to 5) As String Dim bHit As Boolean, NegFlag As Boolean 'È un numero non vuoto o una cella vuota? If Not IsNumeric (cell) O cell = "" Quindi SPELLDOLLARS = CVErr (xlErrValue) Exit Function End If 'È negativo? Se cella 15 Quindi SPELLDOLLARS = CVErr (xlErrNum) Esci Funzione Fine Se 'Fai la centesima Cents = Destra (Dollari, 2) & "/ 100 Dollari" Se cell = Pos - 2 Allora bHit = False If TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollari, TextLen - Pos + 1, 1)) - 48 Se iHundreds> 0 Then Temp = Temp & "" & Ones (iHundreds) & "Hundred" bHit = True End If End If iTens = 0 iOnes = 0 Se TextLen> = Pos - 1 Then iTens = Asc (Mid $ (Dollari, TextLen - Pos + 2, 1)) - 48 End If If TextLen> = Pos - 2 Then iOnes = Asc (Mid $ (Dollari, TextLen - Pos + 3, 1)) - 48 End If If iTens = 1 Then Temp = Temp & "" & Teens (iOnes) bHit = True Else If iTens> = 2 Then Temp = Temp & "" & Tens (iTens) bHit = True End If If iOnes> 0 Then If iTens> = 2 Then Temp = Temp & "-" Else Temp = Temp & "" End If Temp = Temp & Ones (iOnes) bHit = True End If End If If bHit e Pos > 3 Quindi Temp = Temp & "" & Unità (Pos 3) End If End If Next Pos SPELLDOLLARS = Trim (Temp) e "and" & Cents Se NegFlag Then SPELLDO LLARS = "(" & SPELLDOLLAR & ")" End Function