問題已解決
是否公式將小寫金額轉(zhuǎn)換為大寫金額?
溫馨提示:如果以上題目與您遇到的情況不符,可直接提問,隨時問隨時答
速問速答右鍵點(diǎn)擊需要轉(zhuǎn)換的**數(shù)字單元格→選擇“設(shè)置單元格格式”→選擇“特殊”中的“中文大寫數(shù)字”類型→點(diǎn)擊“確定”按鈕即可
09/11 11:56
84784954
09/11 12:00
但是這個復(fù)制不出來,因為想復(fù)制大寫金額到DOC文檔
家權(quán)老師
09/11 12:09
在excel表格點(diǎn)開發(fā)工具,點(diǎn)visal basic,找到插入菜單,點(diǎn)插入模塊,
把后邊的代碼,復(fù)制進(jìn)模塊,在任何一個單元格?輸入公式=Rmbdx(單元格或者數(shù)字)
Public Function Rmbdx(ByVal Rmb As Double) As String
Application.Volatile False
On Error Resume Next
Dim Rmbexp, Rmbda, Expda, Trmb, Lj, s, w, t As String
Dim Icnt As Integer, i As Integer
Rmbda = 零壹貳叁肆伍陸柒捌玖
Rmbexp = 分角元拾佰仟萬拾佰仟億
Trmb = Replace(Format(IIf(Rmb < 0, -Rmb, Rmb), #0.00), ., )
Icnt = Len(Trmb)
For i = 1 To Icnt
? ? s = Mid(Trmb, i, 1): w = Mid(Rmbexp, Icnt - i + 1, 1)
? ? If s = 0 Then
? ? ? ?Lj = Mid(Rmbda, Val(s) + 1, 1) + IIf(w = 萬 Or w = 元, w, )
? ? ? ?If t = s Then Lj = IIf(w = 萬 Or w = 元, w, )
? ? Else
? ? ? ?Lj = Mid(Rmbda, Val(s) + 1, 1) + w
? ? End If
? ? t = IIf(w = 萬 Or w = 元, , s)
? ? Expda = Expda + Lj
Next
If Right(Expda, 3) = 零元零 Then Expda = Replace(Expda, 零元零, 元整)
If Right(Expda, 2) = 元零 Then Expda = Replace(Expda, 元零, 元整)
If Right(Expda, 2) = 角零 Then Expda = Replace(Expda, 角零, 角整)
If InStr(Expda, 零萬) > 0 Then Expda = Replace(Expda, 零萬, 萬)
If InStr(Expda, 億萬) > 0 Then Expda = Replace(Expda, 億萬, 億零)
If InStr(Expda, 零元) > 1 Then Expda = Replace(Expda, 零元, 元零) Else Expda = Replace(Expda, 零元, )
Rmbdx = IIf(Rmb < 0, 負(fù)數(shù) + Expda, Expda)
End Function
午休了,下午2點(diǎn)后,回復(fù)
84784954
09/11 13:36
老師,請問能打個比方說明一下嗎?例如:單元格A1是小寫金額,要在B2單元格轉(zhuǎn)換為大寫金額,那要在B2單元格怎么樣設(shè)置函數(shù)?
家權(quán)老師
09/11 14:14
按前邊的步驟,錄入自定義函數(shù)的代碼。然后正常使用公式??=Rmbdx(A1)
閱讀 2119