ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

编写大写金额转换阿拉伯数字域代码中遇到的有趣现象

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-10-21 23:23 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

前段时间学习用域代码对文本进行比较,其间曾尝试用域的方法将大写金额自动转换成阿拉伯数字。经反复修改,勉强编写出十万以内的转换代码,但步骤十分繁琐,文件也很大,而且随着位数增加,情况愈加复杂。看来进行这样的转换并不适宜用域的这种比较方法,也许只有VBA才能胜任了。

编写这样的域代码并无多大实用意义,主要还是想多了解点域的作用。在对编写出的域代码进行简化的过程中,发现一有趣现象,是关于嵌套域的层级限制问题。本来原文件(附件中的1号)已基本通过不同位数的更新测试,为了使文件变小一点,便对其中的SEQ域(作用为生成大写汉字数字)取消域链接。但全部取消链接好后,更新时居然出错,提示“域嵌套太深!”原以为取消链接应该是减少了一层嵌套才对。只好分段取消链接,最后简化成附件2号的文档。如果将附件2号中两部分蓝色域代码段其中之一取消SEQ域的链接则会出错。另一种情况是当大写为5位数时无问题,但当减至3位数时就出错,这也是取消SEQ域链接导致的。

此外,代码最后的对阿拉伯数字的合并公式是以逻辑函数的简化式写成,中间并无使用域大括号,不知是否只算一层嵌套?

各位如有兴趣可作测试,并请帮忙把把脉。

aOc0baTI.rar (36.09 KB, 下载次数: 235)

TA的精华主题

TA的得分主题

发表于 2007-12-15 16:51 | 显示全部楼层

谢谢sylun兄!我把你的域代码贴出来:

注意,"{}"是由Ctrl+F9组合键自动插入的域标志!

域代码:人民币大写转阿拉伯数值

(十万位以内)

请按Ctrl+A选全文并按F9后输入大写金额进行测试。

{ quote
{ASK je "请输入人民币大写金额" \d "玖万贰仟叁佰肆拾伍元陆角柒分"}
{ set www "{ If je = "{ seq wan \* CHINESENUM2  }万*" 1 { If je = "{ seq wan \* CHINESENUM2  }万*" 2 { If je = "{ seq wan \* CHINESENUM2  }万*" 3 { If je = "{ seq wan \* CHINESENUM2  }万*" 4 { If je = "{ seq wan \* CHINESENUM2  }万*" 5 { If je = "{ seq wan \* CHINESENUM2  }万*" 6 { If je = "{ seq wan \* CHINESENUM2  }万*" 7 { If je = "{ seq wan \* CHINESENUM2  }万*" 8 { If je = "{ seq wan \* CHINESENUM2  }万*" 9}}}}}}}}}" }     
{ set qqq1 "{ If je = "?万壹仟*" 1 { If je = "?万贰仟*" 2 }}"} 
{ set qqq2 "{ If je = "壹仟*" 1 { If je = "贰仟*" 2 { If je = "叁仟*" 3 { If je = "肆仟*" 4 { If je = "伍仟*" 5 { If je = "陆仟*" 6 { If je = "柒仟*" 7 { If je = "捌仟*" 8 { If je = "玖仟*" 9 }}}}}}}}}"}

{ set bbb1 "{ If je = "壹佰*" 1 { If je = "贰佰*" 2 { If je = "叁佰*" 3 { If je = "肆佰*" 4 { If je = "伍佰*" 5 { If je = "陆佰*" 6 { If je = "柒佰*" 7 { If je = "捌佰*" 8 { If je = "玖佰*" 9}}}}}}}}}" }       
{ set bbb2 "{ If je = "??壹佰*" 1 { If je = "??贰佰*" 2 { If je = "??叁佰*" 3 { If je = "??肆佰*" 4 { If je = "??伍佰*" 5 { If je = "??陆佰*" 6 { If je = "??柒佰*" 7 { If je = "??捌佰*" 8 { If je = "??玖佰*" 9}}}}}}}}}" }     

{ set bbb3 "{ If je = "???壹佰*" 1 { If je = "???贰佰*" 2 { If je = "???叁佰*" 3 { If je = "???肆佰*" 4 { If je = "???伍佰*" 5 { If je = "???陆佰*" 6 { If je = "???柒佰*" 7 { If je = "???捌佰*" 8 { If je = "???玖佰*" 9}}}}}}}}}" }      
{ set bbb4 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 1 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 2 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 3 }}} }          
{ set sss1 "{ If je = "壹拾*" 1 { If je = "贰拾*" 2 { If je = "叁拾*" 3 { If je = "肆拾*" 4 { If je = "伍拾*" 5 { If je = "陆拾*" 6 { If je = "柒拾*" 7 { If je = "捌拾*" 8 { If je = "玖拾*" 9}}}}}}}}}" }       

{ set sss2 "{ If je = "*壹拾??" 1 { If je = "*贰拾??" 2 { If je = "*叁拾??" 3 { If je = "*肆拾??" 4 { If je = "*伍拾??" 5 { If je = "*陆拾??" 6 { If je = "*柒拾??" 7 { If je = "*捌拾??" 8 { If je = "*玖拾??" 9}}}}}}}}}" }
{ set sss3 "{ If je = "*壹拾???" 1 { If je = "*贰拾???" 2 { If je = "*叁拾???" 3 { If je = "*肆拾???" 4 { If je = "*伍拾???" 5 { If je = "*陆拾???" 6 { If je = "*柒拾???" 7 { If je = "*捌拾???" 8 { If je = "*玖拾???" 9}}}}}}}}}" }      

{ set sss4 "{ If je = "*壹拾????" 1 { If je = "*贰拾????" 2 { If je = "*叁拾????" 3 { If je = "*肆拾????" 4 { If je = "*伍拾????" 5 { If je = "*陆拾????" 6 { If je = "*柒拾????" 7 { If je = "*捌拾????" 8 { If je = "*玖拾????" 9}}}}}}}}}" }      
{ set sss5 "{ If je = "*壹拾?????" 1 { If je = "*贰拾?????" 2 { If je = "*叁拾?????" 3 { If je = "*肆拾?????" 4 { If je = "*伍拾?????" 5 { If je = "*陆拾?????" 6 { If je = "*柒拾?????" 7 { If je = "*捌拾?????" 8 { If je = "*玖拾?????" 9}}}}}}}}}" }   

{ set sss6 "{ If je = "*壹拾??????" 1 { If je = "*贰拾??????" 2 { If je = "*叁拾??????" 3 { If je = "*肆拾??????" 4 }}}}" }           
{ set yyy1 "{ If je = "壹元*" 1 { If je = "贰元*" 2 { If je = "叁元*" 3 { If je = "肆元*" 4 { If je = "伍元*" 5 { If je = "陆元*" 6 { If je = "柒元*" 7 { If je = "捌元*" 8 { If je = "玖元*" 9}}}}}}}}}" }

{ set yyy2 "{ If je = "壹圆*" 1 { If je = "贰圆*" 2 { If je = "叁圆*" 3 { If je = "肆圆*" 4 { If je = "伍圆*" 5 { If je = "陆圆*" 6 { If je = "柒圆*" 7 { If je = "捌圆*" 8 { If je = "玖元*" 9}}}}}}}}}" }
{ set yyy3 "{ If je = "*壹元?" 1 { If je = "*贰元?" 2 { If je = "*叁元?" 3 { If je = "*肆元?" 4 { If je = "*伍元?" 5 { If je = "*陆元?" 6 { If je = "*柒元?" 7 { If je = "*捌元?" 8 { If je = "*玖元?" 9}}}}}}}}}" }   

{ set yyy4{ If je = "*壹圆?" 1 { If je = "*贰圆?" 2 { If je = "*叁圆?" 3 { If je = "*肆圆?" 4 { If je = "*伍圆?" 5 { If je = "*陆圆?" 6 { If je = "*柒圆?" 7 { If je = "*捌圆?" 8 { If je = "*玖元?" 9}}}}}}}}"} }   
{ set yyy5 "{ If je = "*壹元??" 1 { If je = "*贰元??" 2 { If je = "*叁元??" 3 { If je = "*肆元??" 4 { If je = "*伍元??" 5 { If je = "*陆元??" 6 { If je = "*柒元??" 7 { If je = "*捌元??" 8 { If je = "*玖元??" 9}}}}}}}}}" }    

{ set yyy6 "{ If je = "*壹圆??" 1 { If je = "*贰圆??" 2 { If je = "*叁圆??" 3 { If je = "*肆圆??" 4 { If je = "*伍圆??" 5 { If je = "*陆圆??" 6 { If je = "*柒圆??" 7 { If je = "*捌圆??" 8 { If je = "*玖元??" 9}}}}}}}}}" }    
{ set yyy7 "{ If je = "*壹元???" 1 { If je = "*贰元???" 2 { If je = "*叁元???" 3 { If je = "*肆元???" 4 { If je = "*伍元???" 5 { If je = "*陆元???" 6 { If je = "*柒元???" 7 { If je = "*捌元???" 8 { If je = "*玖元???" 9}}}}}}}}}"}      

{ set yyy8 "{ If je = "*壹圆???" 1 { If je = "*贰圆???" 2 { If je = "*叁圆???" 3 { If je = "*肆圆???" 4 { If je = "*伍圆???" 5 { If je = "*陆圆???" 6 { If je = "*柒圆???" 7 { If je = "*捌圆???" 8 { If je = "*玖元???" 9}}}}}}}}}" }           
{ set yyy9 "{ If je = "*壹元????" 1 { If je = "*贰元????" 2 { If je = "*叁元????" 3 { If je = "*肆元????" 4 { If je = "*伍元????" 5 }}}}}"}         

{ set yyy10 "{ If je = "*壹圆????" 1 { If je = "*贰圆????" 2 { If je = "*叁圆????" 3 { If je = "*肆圆????" 4 { If je = "*伍圆????" 5 { If je = "*陆圆????" 6 { If je = "*柒圆????" 7 { If je = "*捌圆????" 8 { If je = "*玖元????" 9}}}}}}}}}" }   
{ set jjj1 "{ If je = "壹角*" 1 { If je = "贰角*" 2 { If je = "叁角*" 3 { If je = "肆角*" 4 { If je = "伍角*" 5 { If je = "陆角*" 6 { If je = "柒角*" 7 { If je = "捌角*" 8 { If je = "玖角*" 9}}}}}}}}}"}        

{ set jjj2 "{ If je = "壹角" 1 { If je = "贰角" 2 { If je = "叁角" 3 { If je = "肆角" 4 { If je = "伍角" 5 { If je = "陆角" 6 { If je = "柒角" 7 { If je = "捌角" 8 { If je = "玖角" 9}}}}}}}}}" }      
{ set jjj3 "{ If je = "*壹角?" 1 { If je = "*贰角?" 2 { If je = "*叁角?" 3 { If je = "*肆角?" 4 { If je = "*伍角?" 5 { If je = "*陆角?" 6 { If je = "*柒角?" 7 { If je = "*捌角?" 8 { If je = "*玖角?" 9}}}}}}}}}"}

{ set jjj4 "{ If je = "*壹角" 1 { If je = "*贰角" 2 { If je = "*叁角" 3 { If je = "*肆角" 4 { If je = "*伍角" 5 { If je = "*陆角" 6 { If je = "*柒角" 7 { If je = "*捌角" 8 { If je = "*玖角" 9}}}}}}}}}"}   
{ set jjj5 "{ If je = "*壹角??" 1 { If je = "*贰角??" 2 { If je = "*叁角??" 3 { If je = "*肆角??" 4 { If je = "*伍角??" 5 { If je = "*陆角??" 6 }}}}}}"}       

{ set fff1 "{ If je = "壹分" 1 { If je = "贰分" 2 { If je = "叁分" 3 { If je = "肆分" 4 { If je = "伍分" 5 { If je = "陆分" 6 { If je = "柒分" 7 { If je = "捌分" 8 { If je = "玖分" 9}}}}}}}}}" }
{ set fff2 "{ If je = "*壹分" 1 { If je = "*贰分" 2 { If je = "*叁分" 3 { If je = "*肆分" 4 { If je = "*伍分" 5 { If je = "*陆分" 6 { If je = "*柒分" 7 }}}}}}}"}    
{ set xx {=www*10000+(qqq1+qqq2)*1000+(bbb1+bbb2+bbb3+bbb4)*100+(yyy1=0)*(yyy2=0)*(jjj1=0)*(fff1=0)*(sss1+(sss1=0)*(sss2+(sss3<>sss4)*sss3+(sss4<>sss5)*sss4+(sss5<>sss6)*sss5+(sss1<>sss6)*(sss5<>sss6)*sss6))*10+(jjj1=0)*(fff1=0)*(yyy1+yyy2+(yyy1=0)*(yyy2=0)*(yyy3+yyy4+yyy5+yyy6+yyy7+yyy8+yyy8+(yyy1<>yyy9)*(yyy9<>yyy10)*yyy9+(yyy1<>yyy10)*(yyy9<>yyy10)*yyy10))+(fff1=0)*(jjj1+jjj2+jjj3+(jjj4<>jjj5)*jjj4+(jjj1<>jjj5)*jjj5)/10+(fff1+(fff1<>fff2)*fff2)/100} }}

您输入的金额为:{ je \* mergeformat}。   转换结果为{ =xx \# 0.00 }。

TA的精华主题

TA的得分主题

发表于 2007-12-15 16:54 | 显示全部楼层

另一个文档(分两个贴,域代码太长了,呵呵)

注意,"{}"是由Ctrl+F9组合键自动插入的域标志!
域代码:人民币大写转阿拉伯数值
(十万位以内)
请按Ctrl+A选全文并按F9后输入大写金额进行测试。
{ quote
{ASK je "请输入人民币大写金额" \d "玖万贰仟叁佰肆拾伍元陆角柒分"}
{ set www "{ If je = "{ seq wan \* CHINESENUM2  }万*" 1 { If je = "{ seq wan \* CHINESENUM2  }万*" 2 { If je = "{ seq wan \* CHINESENUM2  }万*" 3 { If je = "{ seq wan \* CHINESENUM2  }万*" 4 { If je = "{ seq wan \* CHINESENUM2  }万*" 5 { If je = "{ seq wan \* CHINESENUM2  }万*" 6 { If je = "{ seq wan \* CHINESENUM2  }万*" 7 { If je = "{ seq wan \* CHINESENUM2  }万*" 8 { If je = "{ seq wan \* CHINESENUM2  }万*" 9}}}}}}}}}" } 
{ set qqq1 "{ If je = "?万{ seq qian \* CHINESENUM2  }仟*" 1 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 2 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 3 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 4 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 5 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 6 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 7 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 8 { If je = "?万{ seq qian \* CHINESENUM2  }仟*" 9 { If je = "?万零*" 0}}}}}}}}}}"} 
{ set qqq2 "{ If je = "{ seq qian2 \* CHINESENUM2  }仟*" 1 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 2 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 3 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 4 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 5 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 6 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 7 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 8 { If je = "{ seq qian2 \* CHINESENUM2  }仟*" 9 }}}}}}}}}"}  
{ set bbb1 "{ If je = "{ seq bai \* CHINESENUM2  }佰*" 1 { If je = "{ seq bai \* CHINESENUM2  }佰*" 2 { If je = "{ seq bai \* CHINESENUM2  }佰*" 3 { If je = "{ seq bai \* CHINESENUM2  }佰*" 4 { If je = "{ seq bai \* CHINESENUM2  }佰*" 5 { If je = "{ seq bai \* CHINESENUM2  }佰*" 6 { If je = "{ seq bai \* CHINESENUM2  }佰*" 7 { If je = "{ seq bai \* CHINESENUM2  }佰*" 8 { If je = "{ seq bai \* CHINESENUM2  }佰*" 9}}}}}}}}}" }   
{ set bbb2 "{ If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 1 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 2 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 3 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 4 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 5 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 6 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 7 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 8 { If je = "??{ seq bai2 \* CHINESENUM2  }佰*" 9}}}}}}}}}" }  
{ set bbb3 "{ If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 1 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 2 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 3 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 4 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 5 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 6 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 7 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 8 { If je = "???{ seq bai3 \* CHINESENUM2  }佰*" 9}}}}}}}}}" }  
{ set bbb4 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 1 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 2 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 3 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 4 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 5 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 6 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 7 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 8 { If je = "????{ seq bai4 \* CHINESENUM2  }佰*" 9}}}}}}}}} }   
{ set sss1 "{ If je = "{ seq shi \* CHINESENUM2  }拾*" 1 { If je = "{ seq shi \* CHINESENUM2  }拾*" 2 { If je = "{ seq shi \* CHINESENUM2  }拾*" 3 { If je = "{ seq shi \* CHINESENUM2  }拾*" 4 { If je = "{ seq shi \* CHINESENUM2  }拾*" 5 { If je = "{ seq shi \* CHINESENUM2  }拾*" 6 { If je = "{ seq shi \* CHINESENUM2  }拾*" 7 { If je = "{ seq shi \* CHINESENUM2  }拾*" 8 { If je = "{ seq shi \* CHINESENUM2  }拾*" 9}}}}}}}}}" }   
{ set sss2 "{ If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 1 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 2 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 3 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 4 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 5 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 6 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 7 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 8 { If je = "*{ seq shi2 \* CHINESENUM2  }拾??" 9}}}}}}}}}" }  
{ set sss3 "{ If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 1 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 2 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 3 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 4 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 5 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 6 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 7 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 8 { If je = "*{ seq shi3 \* CHINESENUM2  }拾???" 9}}}}}}}}}" }  
{ set sss4 "{ If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 1 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 2 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 3 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 4 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 5 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 6 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 7 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 8 { If je = "*{ seq shi4 \* CHINESENUM2  }拾????" 9}}}}}}}}}" }  
{ set sss5 "{ If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 1 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 2 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 3 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 4 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 5 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 6 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 7 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 8 { If je = "*{ seq shi5 \* CHINESENUM2  }拾?????" 9}}}}}}}}}" }  

TA的精华主题

TA的得分主题

发表于 2007-12-15 16:58 | 显示全部楼层
{ set sss6 "{ If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 1 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 2 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 3 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 4 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 5 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 6 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 7 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 8 { If je = "*{ seq shi6 \* CHINESENUM2  }拾??????" 9}}}}}}}}}" }   
{ set yyy1 "{ If je = "{ seq yuan \* CHINESENUM2  }元*" 1 { If je = "{ seq yuan \* CHINESENUM2  }元*" 2 { If je = "{ seq yuan \* CHINESENUM2  }元*" 3 { If je = "{ seq yuan \* CHINESENUM2  }元*" 4 { If je = "{ seq yuan \* CHINESENUM2  }元*" 5 { If je = "{ seq yuan \* CHINESENUM2  }元*" 6 { If je = "{ seq yuan \* CHINESENUM2  }元*" 7 { If je = "{ seq yuan \* CHINESENUM2  }元*" 8 { If je = "{ seq yuan \* CHINESENUM2  }元*" 9}}}}}}}}}" }  
{ set yyy2 "{ If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 1 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 2 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 3 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 4 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 5 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 6 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 7 { If je = "{ seq yuan2 \* CHINESENUM2  }圆*" 8 { If je = "{ seq yuan2 \* CHINESENUM2  }元*" 9}}}}}}}}}" }  
{ set yyy3 "{ If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 1 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 2 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 3 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 4 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 5 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 6 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 7 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 8 { If je = "*{ seq yuan3 \* CHINESENUM2  }元?" 9}}}}}}}}}" }  
{ set yyy4{ If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 1 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 2 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 3 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 4 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 5 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 6 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 7 { If je = "*{ seq yuan4 \* CHINESENUM2  }圆?" 8 { If je = "*{ seq yuan4 \* CHINESENUM2  }元?" 9}}}}}}}}"} }  
{ set yyy5 "{ If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 1 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 2 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 3 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 4 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 5 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 6 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 7 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 8 { If je = "*{ seq yuan5 \* CHINESENUM2  }元??" 9}}}}}}}}}" }  
{ set yyy6 "{ If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 1 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 2 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 3 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 4 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 5 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 6 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 7 { If je = "*{ seq yuan6 \* CHINESENUM2  }圆??" 8 { If je = "*{ seq yuan6 \* CHINESENUM2  }元??" 9}}}}}}}}}" }  
{ set yyy7 "{ If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 1 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 2 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 3 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 4 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 5 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 6 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 7 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 8 { If je = "*{ seq yuan7 \* CHINESENUM2  }元???" 9}}}}}}}}}"}  
{ set yyy8 "{ If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 1 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 2 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 3 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 4 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 5 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 6 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 7 { If je = "*{ seq yuan8 \* CHINESENUM2  }圆???" 8 { If je = "*{ seq yuan8 \* CHINESENUM2  }元???" 9}}}}}}}}}" }   
{ set yyy9 "{ If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 1 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 2 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 3 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 4 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 5 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 6 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 7 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 8 { If je = "*{ seq yuan9 \* CHINESENUM2  }元????" 9}}}}}}}}}"}   
{ set yyy10 "{ If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 1 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 2 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 3 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 4 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 5 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 6 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 7 { If je = "*{ seq yuan10 \* CHINESENUM2  }圆????" 8 { If je = "*{ seq yuan10 \* CHINESENUM2  }元????" 9}}}}}}}}}" }  
{ set jjj1 "{ If je = "{ seq jiao \* CHINESENUM2  }角*" 1 { If je = "{ seq jiao \* CHINESENUM2  }角*" 2 { If je = "{ seq jiao \* CHINESENUM2  }角*" 3 { If je = "{ seq jiao \* CHINESENUM2  }角*" 4 { If je = "{ seq jiao \* CHINESENUM2  }角*" 5 { If je = "{ seq jiao \* CHINESENUM2  }角*" 6 { If je = "{ seq jiao \* CHINESENUM2  }角*" 7 { If je = "{ seq jiao \* CHINESENUM2  }角*" 8 { If je = "{ seq jiao \* CHINESENUM2  }角*" 9}}}}}}}}}"}   
{ set jjj2 "{ If je = "{ seq jiao2 \* CHINESENUM2  }角" 1 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 2 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 3 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 4 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 5 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 6 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 7 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 8 { If je = "{ seq jiao2 \* CHINESENUM2  }角" 9}}}}}}}}}" }   
{ set jjj3 "{ If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 1 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 2 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 3 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 4 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 5 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 6 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 7 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 8 { If je = "*{ seq jiao3 \* CHINESENUM2  }角?" 9}}}}}}}}}"}   
{ set jjj4 "{ If je = "*{ seq jiao4 \* CHINESENUM2  }角" 1 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 2 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 3 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 4 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 5 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 6 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 7 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 8 { If je = "*{ seq jiao4 \* CHINESENUM2  }角" 9}}}}}}}}}"}   
{ set jjj5 "{ If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 1 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 2 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 3 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 4 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 5 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 6 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 7 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 8 { If je = "*{ seq jiao5 \* CHINESENUM2  }角??" 9}}}}}}}}}"}   
{ set fff1 "{ If je = "{ seq fen \* CHINESENUM2  }分" 1 { If je = "{ seq fen \* CHINESENUM2  }分" 2 { If je = "{ seq fen \* CHINESENUM2  }分" 3 { If je = "{ seq fen \* CHINESENUM2  }分" 4 { If je = "{ seq fen \* CHINESENUM2  }分" 5 { If je = "{ seq fen \* CHINESENUM2  }分" 6 { If je = "{ seq fen \* CHINESENUM2  }分" 7 { If je = "{ seq fen \* CHINESENUM2  }分" 8 { If je = "{ seq fen \* CHINESENUM2  }分" 9}}}}}}}}}" }  
{ set fff2 "{ If je = "*{ seq fen2 \* CHINESENUM2  }分" 1 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 2 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 3 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 4 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 5 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 6 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 7 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 8 { If je = "*{ seq fen2 \* CHINESENUM2  }分" 9}}}}}}}}}"}   
{ set xx {=www*10000+(qqq1+qqq2)*1000+(bbb1+bbb2+bbb3+bbb4)*100+(yyy1=0)*(yyy2=0)*(jjj1=0)*(fff1=0)*(sss1+(sss1=0)*(sss2+(sss3<>sss4)*sss3+(sss4<>sss5)*sss4+(sss5<>sss6)*sss5+(sss1<>sss6)*(sss5<>sss6)*sss6))*10+(jjj1=0)*(fff1=0)*(yyy1+yyy2+(yyy1=0)*(yyy2=0)*(yyy3+yyy4+yyy5+yyy6+yyy7+yyy8+yyy8+(yyy1<>yyy9)*(yyy9<>yyy10)*yyy9+(yyy1<>yyy10)*(yyy9<>yyy10)*yyy10))+(fff1=0)*(jjj1+jjj2+jjj3+(jjj4<>jjj5)*jjj4+(jjj1<>jjj5)*jjj5)/10+(fff1+(fff1<>fff2)*fff2)/100} }}
您输入的金额为:{ je \* mergeformat}。 转换结果为{ =xx \# 0.00 }。

TA的精华主题

TA的得分主题

发表于 2007-12-15 23:08 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-2-25 16:02 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-5-13 13:54 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

试了为什么不灵呢,数对应不上啊

TA的精华主题

TA的得分主题

发表于 2008-8-22 00:14 | 显示全部楼层

现在WORD里就是缺少人民币大写转数字的宏了.望守柔大师能补上(wps里已有"大写转数字"这样的菜单了).

[此贴子已经被作者于2008-8-22 0:16:36编辑过]

TA的精华主题

TA的得分主题

发表于 2010-6-9 08:52 | 显示全部楼层
原帖由 wshcw 于 2008-8-22 00:14 发表
现在WORD里就是缺少人民币大写转数字的宏了.望守柔大师能补上(wps里已有"大写转数字"这样的菜单了).
[此贴子已经被作者于2008-8-22 0:16:36编辑过]


希望早日出现

TA的精华主题

TA的得分主题

发表于 2011-3-19 11:58 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习sylun兄的作品。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-18 12:24 , Processed in 0.040089 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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