[原创]很好用的金额大写转换（已修正）

anyuan

<P>回楼上：</P><P>1、激活宏——点击“启用宏”就可以了；</P><P>2、打开“发表话题”或“回复帖子”就会看到一“游览”和“上传”按钮，按“游览”找到你想要上传在你机子某位置（比如：在“桌面”）的文件（文件得事先用解压缩软件压成.rar文件），然后按“打开”，最后按“上传”和“发表”就可以了。</P>

wjd74

Function DONG1(Range1 As Range)
Dim Z As Byte
Dim Y As String
Dim X As Byte
Dim W As String
Dim D1 As String
Dim iNo As String
Dim iUnit As String
DONG1 = ""
iNo = "分角元拾佰仟零壹贰叁肆伍陆柒捌玖"
Y = Right(CStr(Round(Range1 * 100, 0)), 15)
X = Len(Right(CStr(Round(Range1 * 100, 0)), 15))
For Z = 1 To Len(Y)
    W = Mid$(Y, Z, 1)
    DONG1 = DONG1 &amp; IIf(D1 &amp; W = "00", "", Mid(iNo, Val(W) + 7, 1))
    If (X = 7 Or X = 11) And W = "0" Then DONG1 = Left$(DONG1, Len(DONG1) - 1)
    iUnit = ""
    Select Case X
        Case 7, 11
            iUnit = IIf(X = 7, IIf(Right$(DONG1, 1) = "亿", "", "万"), "亿")
        Case 4 To 6, 8 To 10, 12 To 14
            iUnit = IIf(W = "0", "", Mid(iNo, X - Switch(X &gt; 11, 11 - 3, X &gt; 7, 7 - 3, X &gt; 3, 3 - 3), 1))
        Case 1 To 3
            iUnit = Mid(iNo, X, 1)
    End Select
    DONG1 = DONG1 &amp; IIf(X = 7 Or X = 11, iUnit, IIf(W = "0", "", iUnit))
    D1 = W
    X = X - 1
Next
W = Right$(DONG1, 1)
If W = "零" Then DONG1 = Left$(DONG1, Len(DONG1) - 1)
W = Right$(DONG1, 1)
If Right$(Y, 2) = "00" Then DONG1 = DONG1 &amp; IIf(W = "元", "整", "元整")
If Right$(DONG1, 1) = "角" Then DONG1 = DONG1 &amp; "零分"
End Function

wcfxjy

楼主，有没有直接用函数的：在一个单元格中输入小写金额，然后把各位上的数字分别打印在不同的单元格中。

anyuan

<B>以下是引用<I>wcfxjy</I>在2005-3-18 18:57:00的发言：</B>
楼主，有没有直接用函数的：在一个单元格中输入小写金额，然后把各位上的数字分别打印在不同的单元格中。

<P>公式在附件里面：</P>
<P> pSIEVgo1.rar (7.07 KB, 下载次数: 49)

2005-3-19 16:58 上传

点击文件名下载附件
[原创]很好用的金额大写转换（已修正）

</P>

wmb119

不行啊，转变不过来

strutsp

assssssssssssssssssss

greenwood

隐藏的工作表有保护，单元格也隐藏了

zero52

太牛了！！！！支持！！

fenfenjay

不错，能否解除工作表保护？