免费问答

但是这个复制不出来，因为想复制大写金额到DOC文档

在excel表格点开发工具，点visal basic,找到插入菜单，点插入模块， 把后边的代码，复制进模块，在任何一个单元格 输入公式=Rmbdx（单元格或者数字） 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, 负数 + Expda, Expda) End Function 午休了，下午2点后，回复

老师，请问能打个比方说明一下吗？例如：单元格A1是小写金额，要在B2单元格转换为大写金额，那要在B2单元格怎么样设置函数？

按前边的步骤，录入自定义函数的代码。然后正常使用公式  =Rmbdx（A1）