Viser tall som ord i Excel - dummies

Hvis du noen gang har trengte å vise et nummer skrevet ut som tekst, oppdaget du sannsynligvis at Excel ikke tilbyr en slik funksjon. Når Excel ikke leverer, er det ofte mulig å korrigere mangelen ved å bruke VBA. Her er en VBA-funksjon, kalt SPELLDOLLARS, som du kan bruke i regnearkformler.

Excel-eksempler

Her er noen eksempler på SPELLDOLLARS.

VBA-koden

For å bruke denne koden, trykk Alt + F11 for å aktivere Visual Basic Editor. Deretter velger du Sett inn → Modul for å sette inn en ny VBA-modul. Kopier koden og lim den inn i den nye modulen.

Funksjon SPELLDOLLARS (celle) Som variant Returnerer en verdi, stavet ut i ord Dim dollar Som streng, Cents As String Dim TextLen så lang, Pos så lang Dim Temp som String Dim iHundreds så lenge, det er så lenge, iOnes As Lang dimensjoner som variant, Tenåringer som variant, Tens som variant dim enheter (2 til 5) Som streng dim bHit som boolsk, NegFlag som boolsk 'Er det en ikke-nummer eller tom celle? Hvis ikke IsNumeric (celle) Eller celle = "" Så SPELLDOLLARS = CVErr (xlErrValue) Avslutt Funksjon End Hvis 'Er det negativt? Hvis celle 15 deretter SPELLDOLLARS = CVErr (xlErrNum) Avslutt Funksjon End Hvis 'Gjør cent del Cents = Høyre (Dollars, 2) & "/ 100 Dollars" Hvis celle = Pos - 2 deretter bHit = False Hvis TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollars, TextLen - Pos + 1, 1)) - 48 Hvis iHundreds> 0 Så Temp = Temp & "" & Ones (iHundreds) & "Hundred" bHit = True End Hvis End Hvis iTens = 0 iOnes = 0 Hvis TextLen> = Pos - 1 Så iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 Slutt Hvis Hvis TextLen> = Pos - 2 Så iOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Slutt Hvis Hvis iTens = 1 Så Temp = Temp & "" & Teens (iOnes) bHit = True Else Hvis iTens> = 2 Så Temp = Temp & "" & Tens (iTens) bHit = True End Hvis Hvis IOnes> 0 Så Hvis iTens> = 2 Så Temp = Temp & "-" Else Temp = Temp & "" Slutt Hvis Temp = Temp & Ones (iOnes) bHit = True End Hvis End Hvis Hvis BHit Og Pos > 3 Så Temp = Temp & "" & Enheter (Pos 3) Slutt hvis slutt hvis neste Pos SPELLDOLLARS = Trim (Temp) & "og" & Cents Hvis NegFlag deretter SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Sluttfunksjon