免費(fèi)問(wèn)答

但是這個(gè)復(fù)制不出來(lái)，因?yàn)橄霃?fù)制大寫(xiě)金額到DOC文檔

在excel表格點(diǎn)開(kāi)發(fā)工具，點(diǎn)visal basic,找到插入菜單，點(diǎn)插入模塊， 把后邊的代碼，復(fù)制進(jìn)模塊，在任何一個(gè)單元格?輸入公式=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 = 分角元拾佰仟萬(wàn)拾佰仟億 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 = 萬(wàn) Or w = 元, w, ) ? ? ? ?If t = s Then Lj = IIf(w = 萬(wàn) Or w = 元, w, ) ? ? Else ? ? ? ?Lj = Mid(Rmbda, Val(s) + 1, 1) + w ? ? End If ? ? t = IIf(w = 萬(wàn) 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, 零萬(wàn)) > 0 Then Expda = Replace(Expda, 零萬(wàn), 萬(wàn)) If InStr(Expda, 億萬(wàn)) > 0 Then Expda = Replace(Expda, 億萬(wàn), 億零) 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ù)

老師，請(qǐng)問(wèn)能打個(gè)比方說(shuō)明一下嗎？例如：?jiǎn)卧馎1是小寫(xiě)金額，要在B2單元格轉(zhuǎn)換為大寫(xiě)金額，那要在B2單元格怎么樣設(shè)置函數(shù)？

按前邊的步驟，錄入自定義函數(shù)的代碼。然后正常使用公式??=Rmbdx（A1）