ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2019函数公式学习大典 不用妈妈陪默写神器 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2016实战技巧学习锦囊 WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 127817|回复: 227

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2006-1-3 16:41 | 显示全部楼层 |阅读模式
[move]37楼的楼的兄弟做了个更好的,3行! 研究中....... ldy888 2006-5-15[/move] 元旦那天做了一个11行的,自认为不能再短了,没想到又找到了一个10 行的。 不甘心,又精研了一天,终于做出这个目前 最全面、最短的人民币大写函数,只有7行 哇哈哈哈,我快能的不行了 宏名特意以我的网名命名。 在此和各位高人比,看谁能做出比我更好的,或指出我的错处。 功能介绍:1.无金额限制,EXCEL认多大的数,它就认多大。 2.分以下四舍五入,数字< 0.005 (半分钱),做0处理,不显示 3.数字为负数 大写前+负 4.错误率低,目前还没发现 说明:程序中有一处是+0.00001的地方,不是多于,如果去掉,有时会产生1分或1 角的误差,这是EXCEL的问题 去掉后 试试 这个数 338600.525 不是四舍五入了 是五舍六入了 不符合财会制度。

Function ldy888(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = (j / 10 - Int(j / 10)) * 10
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function

现在好了

06-5-10更新: 19楼的朋友说1.51有错, 不仅是1.51 但凡尾数是.41,.51.61,.71,.81,91 的都有这个情况. 这是个EXCEL的BUG,中断程序检查,发现51/10 居然= 5.999999999999999999 只好把分位ROUND一下了,这样就解决了.对19楼的朋友表示感谢. 修改如下,发现错误请跟帖,万二分感谢.

Function ldy888(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = Round((j / 10 - Int(j / 10)) * 10)
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.4, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 0.4, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function

LDY888 06-5-10 附:11行的帖子 http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=143657&replyID=&skin=0 不知道怎么回事,有一行显不出来 现在好了 感谢总版抬爱! ldy888 2006-6-12
[此贴子已经被作者于2006-6-12 15:27:17编辑过]

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2006-1-3 16:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-1-3 16:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
一直相找一个和表里的IF函数一样功能 的语句, VBA中的IF用法和表里的不同,看了别人的程序才知道有 IIF语句,和表里的 IF 一样用法。 汗.... [[em06]
[此贴子已经被作者于2006-1-3 16:59:25编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-1-4 10:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
回来一看,没人

TA的精华主题

TA的得分主题

发表于 2006-1-4 12:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-1-4 12:28 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错!有空用用

TA的精华主题

TA的得分主题

发表于 2006-1-4 13:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-1-8 19:08 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-1-8 19:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2006-1-8 20:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不错!!谢谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-19 12:18 , Processed in 0.051329 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表