閱： 2169 | 回： 3
等級:初學(xué)者
等級:學(xué)有小成-
積分:23 -
財富值:2 -
身份:普通用戶
Sub 英文大寫()
Dim number As Double
Dim Result As String
'獲取A1單元格中的數(shù)字
number = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
'將數(shù)字轉(zhuǎn)換為英文大寫
Result = "Say total USD " & ConvertNumberToWords(number)
'將結(jié)果寫入A2單元格
ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = Result
End Sub
Dim number As Double
Dim Result As String
'獲取A1單元格中的數(shù)字
number = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
'將數(shù)字轉(zhuǎn)換為英文大寫
Result = "Say total USD " & ConvertNumberToWords(number)
'將結(jié)果寫入A2單元格
ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = Result
End Sub
附件: 下載
敬天愛人，成人達(dá)已