ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3483|回复: 14

[讨论] 挑战:107000.53,小写变成大写,结果是壹拾万零柒仟元伍角叁分,只限一个公式!!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2016-10-25 11:50 | 显示全部楼层 |阅读模式
挑战:107000.53,小写变成大写,结果必须是:壹拾万柒仟元伍角叁分,限一个公式!!大神们来试试吧,注意哦,大写金额中间是有个零,一般的公式出来都是没有零的。

TA的精华主题

TA的得分主题

发表于 2016-10-25 13:23 | 显示全部楼层
=SUBSTITUTE(SUBSTITUTE(IF(M21>-0.5%,,"负")&TEXT(INT(ABS(M21)+0.5%),"[DBnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(M21),2),"[DBnum2]0角0分;;"&IF(ABS(M21)>1%,"整",)),"零角",IF(ABS(M21)<1,,"零")),"零分","整")

TA的精华主题

TA的得分主题

发表于 2016-10-25 13:36 | 显示全部楼层
详见附件
四个公式:
前两个公式在万位和小数点后会缺少零,后两个公式补足零。
其中又有不考虑负数(比如打印支票不会出现负数)和考虑有负数的情况

示例_金额小写转大写.zip

2.76 KB, 下载次数: 11

TA的精华主题

TA的得分主题

发表于 2016-10-25 13:47 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
ZhouFfett 发表于 2016-10-25 13:36
详见附件
四个公式:
前两个公式在万位和小数点后会缺少零,后两个公式补足零。

107000.03
以楼主 补齐 零的观点  这数 的大写 应该是:
        壹拾万柒仟拾元叁分      //0 = 0\\

TA的精华主题

TA的得分主题

发表于 2016-10-25 13:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
丢丢表格 发表于 2016-10-25 13:47
107000.03
以楼主 补齐 零的观点  这数 的大写 应该是:
        壹拾万零柒仟零佰零拾元零叁分       ...

不是这样的。
根据规范:阿拉伯金额数字万位和元位是“0”,或者数字中间连续有几个“0”,万位、元位也是“0”但千位、角位不是“0”时,中文大写金额中可以只写一个零字,也可以不写“零”字。

但曾经试过支票不写中间那个零被银行退票。

大概严格的规范是:
阿拉伯金额数字万位和元位是“0”,或者数字中间连续有几个“0”,万位、元位也是“0”但千位、角位不是“0”时,中文大写金额中应该写一个零字。

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-10-25 14:03 | 显示全部楼层
5楼的观点正确,是为了财务规范才加的零

TA的精华主题

TA的得分主题

发表于 2016-10-25 14:03 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-10-25 14:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
二楼的公式我之前已经试过了,结果出来是不带零的,谢谢啦

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-10-25 14:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
ZhouFfett 发表于 2016-10-25 13:36
详见附件
四个公式:
前两个公式在万位和小数点后会缺少零,后两个公式补足零。

@ZhouFfett,正确大写应该是:壹拾万柒仟元零伍角叁分,或者壹拾万零柒仟元伍角叁分,我看公式出来多了一个零,看能否调整下,谢谢

TA的精华主题

TA的得分主题

发表于 2016-10-25 14:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
菜鸟啃EXCEL 发表于 2016-10-25 14:19
@ZhouFfett,正确大写应该是:壹拾万柒仟元零伍角叁分,或者壹拾万零柒仟元伍角叁分,我看公式出来多了一 ...

=IF(A2,IF(A2<0,"负",)&IF(ABS(A2)>=1,IF(AND(ABS(A2)>10^4,INT((ABS(A2)/10^5-INT(ABS(A2)/10^5))*10)=0,INT((ABS(A2)%%-INT(ABS(A2)%%))*10)>0),SUBSTITUTE(NUMBERSTRING(INT(ABS(A2)),2),"万","万零"),NUMBERSTRING(INT(ABS(A2)),2))&"元",)&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(ABS(A2)),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A2)<1,,"零")),"零分","整"),"零元整")
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-10-22 11:32 , Processed in 0.048895 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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