怎樣把excel的人民幣大寫復(fù)制出來 Excel將人民幣金額轉(zhuǎn)換成大寫形式
在日常工作中，我們經(jīng)常需要將人民幣金額轉(zhuǎn)換成大寫形式。Excel提供了幾種方法來實現(xiàn)這一功能，包括使用公式和宏。本文將分別介紹這兩種方法的步驟，并結(jié)合示例演示。一、使用Excel公式進行轉(zhuǎn)換1. 首先
在日常工作中，我們經(jīng)常需要將人民幣金額轉(zhuǎn)換成大寫形式。Excel提供了幾種方法來實現(xiàn)這一功能，包括使用公式和宏。本文將分別介紹這兩種方法的步驟，并結(jié)合示例演示。
一、使用Excel公式進行轉(zhuǎn)換
1. 首先，將人民幣金額輸入到Excel單元格中。
2. 在另一個單元格中輸入以下公式：
TEXT(A1,"[壹貳叁肆伍陸柒捌玖拾佰仟萬億圓整]*")，其中A1為輸入金額的單元格。
3. 按下Enter鍵，即可將人民幣金額轉(zhuǎn)換成大寫形式。
示例：
假設(shè)我們要將1000元轉(zhuǎn)換成大寫形式，在單元格A1中輸入1000，然后在另一個單元格中輸入上述公式，按下Enter鍵，即可得到壹仟圓整。
二、使用Excel宏進行轉(zhuǎn)換
1. 打開Excel，并按下Alt F11進入宏編輯界面。
2. 在宏編輯界面的代碼窗口中，輸入以下代碼：
```
Function ConvertToChinese(Number As Double) As String
Dim MyNumber As String
Dim DecimalPlace As Integer
Dim Count As Integer
ReDim Place(9) As String
Place(2) " Thousand "
Place(3) " Million "
Place(4) " Billion "
Place(5) " Trillion "
' String representation of amount.
MyNumber Trim(CStr(Number))
' Position of decimal place 0 if none.
DecimalPlace InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents GetTens(Left(Mid(MyNumber, DecimalPlace 1) "00", 2))
MyNumber Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count 1
Do While MyNumber <> ""
ReDim Preserve Dollars(Count)
Dollars(Count) GetHundreds(Right(MyNumber, 3))
If Len(MyNumber) > 3 Then
MyNumber Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber ""
End If
Count Count 1
Loop
Count Count - 1
If Count 1 Then
ConvertToChinese Dollars(1) " Dollars "
Else
ConvertToChinese Dollars(Count) Place(Count) _
GetHundreds( _
Right(MyNumber, 3)) " Dollars "
End If
' Clean up dollars.
Select Case Dollars(1)
Case ""
ConvertToChinese "No Dollars"
Case "One"
ConvertToChinese "One Dollar"
Case Else
ConvertToChinese ConvertToChinese "Dollars"
End Select
' Clean up cents.
Select Case Cents
Case ""
ConvertToChinese ConvertToChinese
Case "One"
ConvertToChinese ConvertToChinese " and One Cent"
Case Else
ConvertToChinese ConvertToChinese " and " Cents " Cents"
End Select
End Function
Private 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
Private 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
Private 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
```
3. 關(guān)閉宏編輯界面，回到正常的Excel界面。
4. 在一個單元格中輸入要轉(zhuǎn)換的人民幣金額，然后在另一個單元格中輸入以下公式：
`ConvertToChinese(A1)`，其中A1為輸入金額的單元格。
5. 按下Enter鍵，即可將人民幣金額轉(zhuǎn)換成大寫形式。
示例：
假設(shè)我們要將1000元轉(zhuǎn)換成大寫形式，在單元格A1中輸入1000，然后在另一個單元格中輸入上述公式，按下Enter鍵，即可得到One Thousand Dollars。
通過上述方法，你可以輕松將Excel中的人民幣金額轉(zhuǎn)換成大寫形式，為日常工作提供了便利。試著在你的Excel中嘗試一下吧！