求助：如何更好地实现大小写金额的转换？

nzlwc_fsb · 发表于 2004-3-23 21:27

把发下的函数复制到Excel的VB编辑器，插入模块，粘贴就可以了，然后在任意单元格中选择函数，选全部，找到rmbdx，然后选择要大写的单格，确定。OK

Public Function rmbdx(xx As Currency) As String xx = Application.WorksheetFunction.Round(xx, 2) rmbdx = Application.WorksheetFunction.Text(xx, "[DBNum2]") If xx - Int(xx) = 0 Then rmbdx = rmbdx & "元整" Else

 If Abs(xx) - Int(Abs(xx)) <= 0.09 Then rmbdx = Replace(rmbdx, ".", "元") & "分" Else If xx * 10 - Int(xx * 10) = 0 Then rmbdx = Replace(rmbdx, ".", "元") & "角整" Else rmbdx = Replace(rmbdx, ".", "元") rmbdx = Left(rmbdx, Len(rmbdx) - 1) & "角" & Right(rmbdx, 1) & "分" End If End If End If

If Abs(xx) < 1 Then rmbdx = Replace(rmbdx, "零元", "") If Abs(xx) < 0.1 Then rmbdx = Replace(rmbdx, "零", "") If Left(rmbdx, 1) = "-" Then rmbdx = Replace(rmbdx, "-", "负") If xx = 0 Then rmbdx = "零元整" End Function

doyyi · 发表于 2004-3-24 11:28

<DIV class=quote>以下是引用csjcsj在2004-3-19 9:16:00的发言： 不要使用，此加载宏有BUG。</DIV> 此BUG已修正，请放心使用

oreital · 发表于 2004-3-24 12:31

请教，我使用时为什么会出现“编译错误，子程序或函数未定义”，下面的Replace被选中涂兰

If Abs(xx) - Int(Abs(xx)) <= 0.09 Then rmbdx = Replace(rmbdx, ".", "元") & "分" Else

nzlwc_fsb · 发表于 2004-3-24 20:27

你试一下这例子。

nzlwc_fsb · 发表于 2004-3-24 20:29

U2BnEhBU.rar (7.89 KB, 下载次数: 21)

rain_bai · 发表于 2004-3-25 10:11

为什么一直显示参数不可选啊？

nzlwc_fsb · 发表于 2004-3-25 13:09

传上来看一看

alexli · 发表于 2004-3-25 19:03

八楼的也有BUG啊，输入十位以下试试

alexli · 发表于 2004-3-25 19:06

8楼的朋友，你的也有BUG，试试只输入个位，看看出现什么情况

nzlwc_fsb · 发表于 2004-3-25 22:13

发个文件你试一下：

7xUsedWt.rar (7.89 KB, 下载次数: 35)

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

[求助] 求助：如何更好地实现大小写金额的转换？

例子

例子

我试了，十位，个位没有问题