使用VBA代码（Excel）将美元货币转换为文字

是否可以使用VBA代码将美元货币转换为文字

155420美元：十五万五千美元和四百二十美元

如果可能的话，请任何人给出代码和解释

---

谢谢，

试试这段代码。然后使用函数拼写数字

    'Main Function
    Function SpellNumber(ByVal MyNumber)
        Dim Rupees, Paise, Temp
        Dim DecimalPlace, Count
        ReDim Place(9) As String
        Place(2) = " Thousand "
        Place(3) = " Million "
        Place(4) = " Billion "
        Place(5) = " Trillion "
        ' String representation of amount.
        MyNumber = Trim(Str(MyNumber))
        ' Position of decimal place 0 if none.
        DecimalPlace = InStr(MyNumber, ".")
        ' Convert Paise and set MyNumber to Rupee amount.
        If DecimalPlace > 0 Then
        Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
              "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
        End If
        Count = 1
        Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 3))
        If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
        Loop
        Select Case Rupees
        Case ""
            Rupees = "No Rupees"
        Case "One"
            Rupees = "One Rupee"
         Case Else
            Rupees = Rupees & " Rupees"
        End Select
        Select Case Paise
        Case ""
            Paise = " and No Paise"
        Case "One"
            Paise = " and One Cent"
              Case Else
            Paise = " and " & Paise & " Paise"
        End Select
        SpellNumber = Rupees & Paise
    End Function


    ' Converts a number from 100-999 into text 
    Function GetHundreds(ByVal MyNumber)
        Dim Result As String
        If Val(MyNumber) = 0 Then Exit Function
        MyNumber = Right("000" & MyNumber, 3)
        ' Convert the hundreds place.
        If Mid(MyNumber, 1, 1) <> "0" Then
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
        End If
        ' Convert the tens and ones place.
        If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
        Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
        End If
        GetHundreds = Result
    End Function



    ' Converts a number from 10 to 99 into text. 
    Function GetTens(TensText)
        Dim Result As String
        Result = ""           ' Null out the temporary function value.
        If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: Result = "Ten"
            Case 11: Result = "Eleven"
            Case 12: Result = "Twelve"
            Case 13: Result = "Thirteen"
            Case 14: Result = "Fourteen"
            Case 15: Result = "Fifteen"
            Case 16: Result = "Sixteen"
            Case 17: Result = "Seventeen"
            Case 18: Result = "Eighteen"
            Case 19: Result = "Nineteen"
            Case Else
        End Select
        Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: Result = "Twenty "
            Case 3: Result = "Thirty "
            Case 4: Result = "Forty "
            Case 5: Result = "Fifty "
            Case 6: Result = "Sixty "
            Case 7: Result = "Seventy "
            Case 8: Result = "Eighty "
            Case 9: Result = "Ninety "
            Case Else
        End Select
        Result = Result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
        End If
        GetTens = Result
    End Function

    ' Converts a number from 1 to 9 into text. 
    Function GetDigit(Digit)
        Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
        End Select
    End Function

”主功能
函数SpellNumber（ByVal MyNumber）
暗卢比、佩斯、临时工
昏暗的地方，伯爵
将位置（9）重拨为字符串
排名（2）=“千”
排名（3）=“百万”
排名（4）=“十亿”
排名（5）=“万亿”
'金额的字符串表示形式。
MyNumber=修剪（Str（MyNumber））
'如果没有，小数点后0位的位置。
小数位数=仪表（MyNumber，“.”）
'转换Paise并将MyNumber设置为卢比金额。
如果小数点>0，则
Paise=GetTens（左）（中间（MyNumber，小数点+1）和_
"00", 2))
MyNumber=修剪（左侧（MyNumber，小数点位置-1））
如果结束
计数=1
当我的号码为“”时执行此操作
Temp=get数百（右（MyNumber，3））
如果温度为“”，则卢比=温度和地点（计数）和卢比
如果Len（MyNumber）>3，则
MyNumber=左（MyNumber，Len（MyNumber）-3）
其他的
MyNumber=“”
如果结束
计数=计数+1
环
精选案例卢比
案例“”
卢比=“无卢比”
案例“一”
卢比=“一卢比”
其他情况
卢比=卢比和“卢比”
结束选择
选择案例Paise
案例“”
Paise=“没有Paise”
案例“一”
Paise=“还有一分钱”
其他情况
Paise=“and”&Paise&“Paise”
结束选择
拼写数字=卢比和佩斯
端函数
'将数字从100-999转换为文本
函数get数百（ByVal MyNumber）
将结果变暗为字符串
如果Val（MyNumber）=0，则退出函数
MyNumber=右侧（“000”和MyNumber，3）
“把几百个地方都换了。
如果Mid（MyNumber，1，1）“0”，则
结果=GetDigit（Mid（MyNumber，1，1））和“百”
如果结束
'转换十和一的位置。
如果Mid（MyNumber，2，1）“0”，则
结果=结果和GetTens（Mid（MyNumber，2））
其他的
结果=结果和GetDigit（Mid（MyNumber，3））
如果结束
Get=结果
端函数
'将10到99之间的数字转换为文本。
函数GetTens（TensText）
将结果变暗为字符串
Result=“”清空临时函数值。
如果Val（Left（TensText，1））=1，则“如果值介于10-19之间…”。。。
选择案例值（文本）
案例10:Result=“十”
案例11:Result=“十一”
案例12:Result=“十二”
案例13:Result=“十三”
案例14:Result=“十四”
案例15:Result=“十五”
案例16:Result=“十六”
案例17：结果=“十七”
案例18:Result=“十八”
案例19：结果=“十九”
其他情况
结束选择
Else'如果值介于20-99之间。。。
选择案例值（左（文本，1））
案例2：结果=“二十”
案例3：结果=“三十”
案例4：结果=“四十”
案例5：结果=“五十”
案例6：结果=“六十”
案例7：结果=“70”
案例8：结果=“八十”
案例9：结果=“90”
其他情况
结束选择
Result=Result&GetDigit_
（右（TensText，1））'检索一个位置。
如果结束
GetTens=结果
端函数
'将从1到9的数字转换为文本。
函数GetDigit（数字）
选择案例值（数字）
案例1:GetDigit=“一”
案例2:GetDigit=“两个”
案例3:GetDigit=“三”
案例4:GetDigit=“四”
案例5:GetDigit=“五”
案例6:GetDigit=“六”
案例7:GetDigit=“七”
案例8:GetDigit=“八”
案例9:GetDigit=“九”
其他情况：GetDigit=“”
结束选择
端函数

我确信有几种解决方案，我会选择“循环”（“for”或“do while”）并将其放入其中：

---

IF（InStr（Cells（x，y）.Value，“$”>0））然后Cells（x+1，y）。Value=Cells（x，y）。Value*change\u rate

在microsoft网站上查看。多年来，他们一直免费提供支票书写程序。该程序直接来自