以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有在Excel里大写金额按位打印的例子?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73389)

--  作者:lyzhuo
--  发布时间:2015/8/18 17:08:00
--  有没有在Excel里大写金额按位打印的例子?

有个表需要套打,格式是这样的:

金额合计(大写):  仟  佰  拾  万  仟  佰  拾  元  角  分,

要求金额按大写,接位填入,最前面没有位数的用“O"填充。

例子里有用小写金额填充的,没有用大写金额填充的实例


--  作者:大红袍
--  发布时间:2015/8/18 17:10:00
--  

直接打印不行?

 

<CUMoney(金额)>


--  作者:lyzhuo
--  发布时间:2015/8/18 17:13:00
--  
主要是人家的表已经设置好了是这个格式,只能套打进去了
--  作者:lyzhuo
--  发布时间:2015/8/18 17:18:00
--  
这种情况也是财务处理中经常遇到的一种套打方式,用友票据通里有好多这方面的应用
--  作者:大红袍
--  发布时间:2015/8/18 17:20:00
--  

再嵌套一层

 

 

<iif(GetDigit([金额],2,"¥")="¥",0,CUNum(GetDigit([金额],2,"¥")))>


--  作者:lyzhuo
--  发布时间:2015/8/18 17:23:00
--  
在Excel报表里可直接用吗?
--  作者:大红袍
--  发布时间:2015/8/18 17:40:00
--  
直接用。
--  作者:lyzhuo
--  发布时间:2015/8/18 17:58:00
--  
不知道什么原因,当值应该为真时,什么也不会出
--  作者:大红袍
--  发布时间:2015/8/18 18:05:00
--  

代码这样写

 

<iif([金额] < 10^1, "O", CUNum(GetDigit([金额],1,"¥")))>

 

<iif([金额] < 10^2, "O", CUNum(GetDigit([金额],2,"¥")))>

 


--  作者:lyzhuo
--  发布时间:2015/8/18 18:47:00
--  

有个问题很奇怪,从理论上来看,程序代码都是对的。

可是在执行的过程中,出现了很奇怪的问题:

例如金额是 0.15元,那么元的字符不会出来

  金额是 1.15元,那么十元的字符不会出来

  依此类推……

试了老半天也找不出问题出在哪里了