[挑战]功能最全、最短（7行）的人民币大写函数

lgcmeli · 发表于 2006-12-27 14:03

厉害。

guzhen9315 · 发表于 2007-1-21 13:01

向ldy888学习!

业余爱好者 · 发表于 2007-1-21 14:49

还有只三行的唷,比你那个七行的少了一半多了

先声明一下,这是人家写的,我只是收集了一下,不过,你的自定义函数还真的是很不错的

代码如下:

Function DX(n)
    DX = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")
    DX = IIf(Left(Right(DX, 3), 1) = "元", Left(DX, Len(DX) - 1) & "角" & Right(DX, 1) & "分", IIf(Left(Right(DX, 2), 1) = "元", DX & "角整", IIf(DX = "零", "", DX & "元整")))
    DX = Replace(Replace(Replace(Replace(DX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

Cary1018 · 发表于 2007-2-13 23:58

梦想越是美丽就越是显得遥不可及，可你一旦下定决心，那些梦想就一一成为了现实

------超人：克里斯朵夫

谨以此献，敬礼！！

fanrong88 · 发表于 2007-2-14 08:22

不错

BOLOLBO · 发表于 2007-3-27 12:28

能否加到word里面

香川群子 · 发表于 2007-3-27 16:35

QUOTE:

以下是引用ldy888在2006-1-9 1:18:39的发言：

这有使用说明

附：11行的帖子
http://club.excelhome.net/viewthread.php?tid=143657&replyID=&skin=0

楼主好样的，边学习边进步，厉害！

佩服！

flying_micky · 发表于 2007-3-28 10:24

不错

丁壬易龙 · 发表于 2007-5-12 10:49

你辛苦了

xzh_yzcn · 发表于 2007-5-24 21:33

这对于财务人员是非常适用!LDY888了不起!谢谢能跟大家分享!

		自动登录	找回密码
密码			免费注册