Visar Numbers as Words in Excel - dummies

Om du någonsin har behövt visa ett nummer som skrivits ut som text upptäckte du förmodligen att Excel inte erbjuder en sådan funktion. När Excel inte levererar är det ofta möjligt att korrigera bristen genom att använda VBA. Här är en VBA-funktion, namnet SPELLDOLLARS, som du kan använda i kalkylblad formler.

Excel-exempel

Här är några exempel på SPELLDOLLARS.

VBA-koden

Om du vill använda den här koden trycker du på Alt + F11 för att aktivera Visual Basic Editor. Välj sedan Infoga → Modul för att infoga en ny VBA-modul. Kopiera koden och klistra in den i den nya modulen.

Funktion SPELLDOLLARER (cell) Som variant 'Returnerar ett värde, stavat ut i ord Dimma dollar som sträng, Cents As String Dim TextLen så länge, posera så lång dimma som sträng Dim iHundreds så länge, det är lika länge, iOnes As Långdimma som variant, Tonåringar som variant, Toner som variantmåttenheter (2 till 5) Som strängmått bHit Som booleskt, NegFlag som booleskt 'Är det ett icke-tal eller en tom cell? Om inte IsNumeric (cell) Eller cell = "" Då SPELLDOLLARS = CVErr (xlErrValue) Avsluta funktion Slut Om 'Är det negativt? Om cell 15 sedan SPELLDOLLARS = CVErr (xlErrNum) Avsluta funktion Slut Om 'Gör centen Cents = Höger (Dollars, 2) & "/ 100 Dollars" Om cell = Pos - 2 Då bHit = False Om TextLen> = Posera sedan IHundreds = Asc (Mid $ (Dollars, TextLen - Pos + 1, 1)) - 48 Om iHundreds> 0 Då Temp = Temp & "" & Ones (iHundreds) & "Hundred" bHit = Sann ände Om slut om iTens = 0 iOnes = 0 Om TextLen> = Pos - 1 Då iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 Avsluta Om If TextLen> = Pos - 2 Då IOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Slut Om If iTens = 1 Då Temp = Temp & "" & Tonåringar (iOnes) bHit = True Else Om iTens> = 2 Då Temp = Temp & "" & Tens (iTens) = True End Om If IOnes> 0 Då If iTens> = 2 Då Temp = Temp & "-" Annat Temp = Temp & "" Sluta om Temp = Temp & Ones (iOnes) bHit = Sann ände Om Slut Om Om bHit Och Pos > 3 Då Temp = Temp & "" & Enheter (Pos 3) Slut Om Slut Om Nästa Pos SPELLDOLLARS = Trim (Temp) & "och" & Cent Om NegFlag SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Slutfunktion