ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[讨论] 分格填写阿拉伯数字金额的公式设置

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-6-7 12:17 | 显示全部楼层 |阅读模式
<P><FONT size=2>       在制作凭证或者填写支票时,在大写金额的后边,需要分格填写阿拉伯数字格式的金额,并在数字的前一空格内加人民币符号“¥”,当然仍可根据存根中金额信息设置公式,分别在V4至M4单元格设置公式
<P>      其中公式也许有不尽合理的地方(如在制作凭证中可能会出现红数,如何用负数代替等等)或者有更简单的写法,不妨拿出来讨论讨论!!</P>
<P>设置公式如下:</P>

</FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>分</B><B>”位公式设置</B>:在“分”单元格V4输入:=MID(A7*100,LEN(A7*100),1)。LEN函数是计算字符串中字符的个数函数,公式中“LEN(A7*100)”表示计算“A7*100”的字符个数,结果是“7”。MID函数是提取字符函数,整个公式表示A7*100结果中从左起第7个字符提取一个字符,结果是“8”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>角</B><B>”位公式设置:</B>在“角”单元格U4输入:=MID(A7*100,LEN(A7*100)-1,1),公式表示从A7*100中第六位提取一个字符,结果为“2”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>元</B><B>”位公式设置</B>:在“元”单元格T4输入:=MID(A7*100,LEN(A7*100)-2,1),计算结果是“6”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>十元</B><B>”位公式设置</B>:在“十元”单元格S4输入:=MID(A7*100,LEN(A7*100)-3,1),计算结果是“6”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>百元</B><B>”位公式设置</B>:在“百元”单元格R4输入:=IF(A7&gt;=100,MID(A7*100,LEN(A7*100)-4,1),"¥"),从百元以后的公式中除基本设置相同外,还加了一个条件判断函数IF,因为根据支票填写要求,必须在金额的前一个空格内加人民币符号“¥”。整个公式可以表述为:如果金额大于或等于100,即“百元”位有数字,那么该单元格就是该数字,否则为“¥”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>千元</B><B>”位公式设置</B>:在“千元”位单元格Q4输入:=IF(R4="¥","",IF(A7&gt;=1000,MID(A7*100,LEN(A7*100)-5,1),"¥"))。整个公式可以表述为:如果后一个单元格有人民币符号“¥”,则该单元格为空白,如果该单元格大于或等于1000,则该单元格为“千元”位数字,否则为“¥”。
<p></FONT>
<p>
<P><B><FONT size=2></FONT></B><FONT size=2><B>“</B><B>万元”</B><B>位公式设置</B>:在“万元”单元格P4输入:=IF(OR(R4="¥",Q4="¥"),"",IF(A7&gt;=10000,MID(A7*100,LEN(A7*100)-6,1),"¥")),其中“OR(R4="¥",Q4="¥")”表示或者R4=“¥”或者Q4=“¥”。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>十万元</B><B>”位设置公式</B>:在O4输入:=IF(OR(R4="¥",Q4="¥",P4="¥")," ",IF(A7&gt;=100000,MID(A7*100,LEN(A7*100)-7,1),"¥"))。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>百万元</B><B>”位设置公式</B>:在N4输入:=IF(OR(R4="¥",Q4="¥",P4="¥",O4="¥"),"",IF(A7&gt;=1000000,MID(A7*100,LEN(A7*100)-8,1),"¥"))。
<p></FONT>
<p>
<P><B><FONT size=2>“</FONT></B><FONT size=2><B>千万元</B><B>”位设置公式</B>:在M4输入:=IF(OR(R4="¥",Q4="¥",P4="¥",O4="¥",N4="¥"),"",IF(A7&gt;10000000,MID(A7*100,LEN(A7*100)-9,1),"¥"))。
<p></FONT>
<p>
<P><FONT size=2>通过以上编制支票套打工具或凭证制作模板,旨在介绍许多Excel常用函数的应用。同时,用Excel</FONT><FONT size=2>自编的支票套打工具,虽涉及函数较多,但远没编程的复杂,且简便易用,不失为会计人员实用工具,若对此感兴趣,赶快行动起来做一个吧!</FONT></P>
<P>
<p>
[此贴子已经被作者于2004-6-7 12:19:13编辑过]

TA的精华主题

TA的得分主题

发表于 2004-6-10 13:44 | 显示全部楼层

回复:(coolman)分格填写阿拉伯数字金额的公式设置

我是用函数 WIDECHAR(Text) 来达到楼主的效果的。在数字录入区内输入数字,凭证中的数字自动各就各位,合计栏的“¥”自动压顶。 vfo6rvTG.zip (11.93 KB, 下载次数: 288)

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-6-12 22:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错不错,很有参考价值,先收下了,谢谢!

TA的精华主题

TA的得分主题

发表于 2004-6-15 22:02 | 显示全部楼层
<P>```````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````;===\-;[]'</P><P>"
</P>

TA的精华主题

TA的得分主题

发表于 2004-6-16 13:49 | 显示全部楼层
<P>都是好方法,比我的简单多了,我是编程来作的。</P><P>谢谢</P>

TA的精华主题

TA的得分主题

发表于 2004-6-20 11:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
好办法·开眼界!

TA的精华主题

TA的得分主题

发表于 2004-6-7 20:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-2-8 18:46 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习学习下

TA的精华主题

TA的得分主题

发表于 2013-8-14 17:34 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-17 00:21 , Processed in 0.048380 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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