read the number in dollars = dollartext (a1) Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Function DollarText(vNumber) As Variant
'see also Function SpellNumber(ByVal MyNumber), PSS ID Number: Q140704
Dim sDollars As String
Dim sCents As String
Dim iLen As Integer
Dim sTemp As String
Dim iPos As Integer
Dim iHundreds As Integer
Dim iTens As Integer
Dim iOnes As Integer
Dim sUnits(2 To 5) As String
Dim bHit As Boolean
Dim vOnes As Variant
Dim vTeens As Variant
Dim vTens As Variant
If Not IsNumeric(vNumber) Then
    Exit Function
End If
sDollars = Format(vNumber, "###0.00")
iLen = Len(sDollars) - 3
If iLen > 15 Then
    DollarText = CVErr(xlErrNum)
    Exit Function
End If
sCents = Right$(sDollars, 2) & "/100 Dollar" 'Hier die Währung ändern
If vNumber = iPos - 2 Then
        bHit = False
        If iLen >= iPos Then
            iHundreds = Asc(Mid$(sDollars, iLen - iPos + 1, 1)) - 48
            If iHundreds > 0 Then
                sTemp = sTemp & " " & vOnes(iHundreds) & " hundred"
                bHit = True
            End If
        End If
        iTens = 0
        iOnes = 0
        If iLen >= iPos - 1 Then
            iTens = Asc(Mid$(sDollars, iLen - iPos + 2, 1)) - 48
        End If
        If iLen >= iPos - 2 Then
            iOnes = Asc(Mid$(sDollars, iLen - iPos + 3, 1)) - 48
        End If
        If iTens = 1 Then
            sTemp = sTemp & " " & vTeens(iOnes)
            bHit = True
        Else
            If iTens >= 2 Then
                sTemp = sTemp & " " & vTens(iTens)
                bHit = True
            End If
            If iOnes > 0 Then
                If iTens >= 2 Then
                    sTemp = sTemp & "-"
                Else
                    sTemp = sTemp & " "
                End If
            sTemp = sTemp & vOnes(iOnes)
            bHit = True
            End If
        End If
        If bHit And iPos > 3 Then
        sTemp = sTemp & " " & sUnits(iPos  3)
        End If
    End If
Next iPos
DollarText = Trim(sTemp) & " and " & sCents
End Function 'DollarText -

No	Macro Name
1	read the number in dollars = dollartext (a1)
2	translate the number / number into English (in dollars and cents)
3	sweep
4	Print Custom Pages: You can use this code to print a range of custom sheet / pages instead of using the setting from the print options. Suppose you want to print sheet / pages 5 to 10. Just run this VBA code and enter the start sheet / page and end sheet / page.
5	number of sheet / page prints with message box (prints even if the sheet / page is blank)
6	sheet / page address and set column width
7	excel operators hk
8	prints all sheet / pages with data or scans but does not print
9	excelin all menu pushbutton pictures
10	pdf preview
11	Detailed report on harddisk
12	learning harddiskin free space etc ..
13	give the column number to find the column
14	write the number of columns and give the column name as a letter (ktf)
15	Show drive serial number
16	click any cell and scroll to the right to write the number of days in that month
17	When you click on any cell, it scrolls to the right and writes the numbers of the days in that month and color the weekends.
18	Finding the Number of Each Item in the List Using the VBA and Pivot Table
19	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
20	list formulas on new sheet / page

Excel Free Macros (VBA)

Read The Number İn Dollars = Dollartext (a1)

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords