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

ldy888 · 发表于 2006-5-22 23:38

以下是引用[I]wts05980098[/I]在2006-5-22 18:09:05的发言：[BR]有一问题请教零怎么没有？？

根据不需要,改一改就有了.

wts05980098 · 发表于 2006-5-23 10:18

好,我是初学者,零改好后,我要把这两个宏函数都收藏起来,好好学学!!!,比较比较。最好来个注解说明一下。少一“零元整”就感觉少了一点总感到不完美。

jcu1H0n7.rar (10.78 KB, 下载次数: 54)

[此贴子已经被作者于2006-5-23 10:27:45编辑过]

ldy888 · 发表于 2006-5-23 10:29

以下是引用[I]wts05980098[/I]在2006-5-23 10:18:00的发言：[BR]好,我是初学者,零改好后,我要把这两个宏函数都收藏起来,好好学学!!!,比较比较。最好来个注解说明一下。

把最后一行 ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c)) 改为 ldy888 = IIf(Abs(M) < 0.005, "零", IIf(M < 0, "负" & A & b & c, A & b & c)) 其中"零"可以改为任何其它你想表现的文字,如"无亏盈" 或"没钱了!" 11行的帖子有很详细的说明

tdzygl · 发表于 2006-5-23 18:39

直接设置单元格格式不就行了么？也可以用round()函数啊。

wts05980098 · 发表于 2006-5-23 19:00

非常感谢!!!

[此贴子已经被作者于2006-5-23 19:48:56编辑过]

ldy888 · 发表于 2006-5-23 19:17

以下是引用[I]wts05980098[/I]在2006-5-23 19:00:56的发言：[BR]非常感谢!!!看看对不

呵呵,不错!共同学习

wts05980098 · 发表于 2006-5-23 20:21

请教一个个人所得税公式问题

XE4TopfG.rar (266 Bytes, 下载次数: 46)

gly1126 · 发表于 2006-6-6 00:01

个人所得税函数

Function sds(x)
For Each c In Array(0, 500, 2000, 5000, 20000, 40000, 60000, 80000, 100000)
If x - 1600 - c > 0 Then sds = sds + Round((x - 1600 - c) * 0.05, 2)
Next c
End Function

6817wyg · 发表于 2006-6-6 00:36

不错,非常感谢.

yunhanzhang · 发表于 2006-6-8 23:29

楼主这种精益求精的精神令人佩服！

另外，对斑竹有个建议：可以不定期地对某些有意义、或有意思的题目进行悬赏（主要还是精神上的，呵呵），大家都来试试刀。

我知道有些人中了EXCEL和VBA的毒了！

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