阅： 1203 | 回： 3
等级:初学者
等级:学有小成-
积分:23 -
财富值:2 -
身份:普通用户
Sub 英文大写()
Dim number As Double
Dim Result As String
'获取A1单元格中的数字
number = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
'将数字转换为英文大写
Result = "Say total USD " & ConvertNumberToWords(number)
'将结果写入A2单元格
ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = Result
End Sub
Dim number As Double
Dim Result As String
'获取A1单元格中的数字
number = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
'将数字转换为英文大写
Result = "Say total USD " & ConvertNumberToWords(number)
'将结果写入A2单元格
ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = Result
End Sub
附件: 下载
敬天爱人，成人达已