Inhoudsopgave:
Video: excel 2010 getal als tekst 2024
Als u ooit een nummer hebt moeten uitgeven dat is uitgeschreven als tekst, heeft u waarschijnlijk ontdekt dat Excel niet zo'n functie biedt. Wanneer Excel niet levert, is het vaak mogelijk om de tekortkoming te corrigeren door VBA te gebruiken. Hier is een VBA-functie, genaamd SPELLDOLLARS, die u kunt gebruiken in werkbladformules.
Excel-voorbeelden
Hier zijn enkele voorbeelden van SPELLDOLLARS.
De VBA-code
Om deze code te gebruiken, drukt u op Alt + F11 om Visual Basic Editor te activeren. Kies vervolgens Insert → Module om een nieuwe VBA-module in te voegen. Kopieer de code en plak deze in de nieuwe module.
Functie SPELLDOLLARS (cel) Als variant 'Retourneert een waarde, gespeld in woorden Dimdollars als tekenreeks, Cents als tekenreeks Dim TextLen as Long, Pos As Long Dim Temp As String Dim iHundreds As Long, iTens As Long, iOnes As Lange dimensies als variant, tieners als variant, tientallen als variante dimeenheden (2 tot 5) als string Dim b Als Boolean, NegFlag als Booleaans 'Is dit een niet-nummer of een lege cel? If Not IsNumeric (cell) Of cell = "" Then SPELLDOLLARS = CVErr (xlErrValue) Exit Functie End If 'Is it negative? Als cel 15 Dan SPELLDOLLARS = CVErr (xlErrNum) Einde Functie Einde Als 'Doe het centdeel Cents = Rechts (Dollars, 2) & "/ 100 dollar' Als cel = Pos - 2 Dan bHit = False If TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollars, TextLen - Pos + 1, 1)) - 48 If iHundreds> 0 Then Temp = Temp & "" & Ones (iHundreds) & "Hundred" bHit = True End If End If iTens = 0 iOnes = 0 If TextLen> = Pos - 1 Then iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 End if If TextLen> = Pos - 2 Then iOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Einde Als Als iTens = 1 Dan Temp = Temp & "" & Tieners (iOnes) bHit = Waar anders Als iTens> = 2 Dan 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 en Pos > 3 Vervolgens Temp = Temp & "" & Units (Pos 3) End If End If Next Pos SPELLDOLLARS = Trim (Temp) & "and" & Cents If NegFlag Then SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Eindfunctie