求助金额自动大写问题

改个车商务车改装 2024-11-17 07:45:36

最佳回答

使用vba写了自定义函数，名为daxie，直接在单元格中输入函数名，其参数为一个单元格引用，然后即可得到转换结果。目前支持12种货币，最大金额位数支持到7位，即小数点左侧5位，小数点右侧两位，金额最大单位不能超过“万”。下面是附件下载、操作动画以及源代码：function daxie(rng as range) as string dim strcurr as string select case ucase(left(rng.value, 3)) case "cny": strcurr = "人民币" case "frf": strcurr = "法国法郎" case "hkd": strcurr = "港元" case "chf": strcurr = "瑞士法郎" case "usd": strcurr = "美元" case "cad": strcurr = "加拿大元" case "gbp": strcurr = "英镑" case "nlg": strcurr = "荷兰盾" case "dem": strcurr = "德国马克" case "bef": strcurr = "比利时法郎" case "jpy": strcurr = "日元" case "aud": strcurr = "澳大利亚元" end select dim strnum as string, str as string, result as string strnum = mid(rng.value, 4, len(rng.value)) dim i as integer for i = 1 to len(rng.value) - 3 str = mid(strnum, i, 1) select case val(str) case 1: str = "壹" case 2: str = "贰" case 3: str = "叁" case 4: str = "肆" case 5: str = "伍" case 6: str = "陆" case 7: str = "柒" case 8: str = "捌" case 9: str = "玖" case 0: str = "零" end select result = result & str next i dim danwei as variant dim getres as string danwei = array("万", "千", "百", "十", "元", "角", "分") select case len(rng.value) - 3 case 3 for i = 1 to 3 getres = getres & mid(result, i, 1) & danwei(i + 3) next i case 4 for i = 1 to 4 getres = getres & mid(result, i, 1) & danwei(i + 2) next i case 5 for i = 1 to 5 getres = getres & mid(result, i, 1) & danwei(i + 1) next i case 6 for i = 1 to 6 getres = getres & mid(result, i, 1) & danwei(i) next i case 7 for i = 1 to 7 getres = getres & mid(result, i, 1) & danwei(i - 1) next i end select daxie = strcurr & getresend function 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

大渔铁板烧自助餐问题
- 2024-11-17 10:03:39
- 提问者: 未知
答：1.每天都有自助餐每天中午11：30-14：00 晚上5点以后 2.吃完饭再结账 3.可以 4.有菜单 5.当然给做了
大智慧自编指标问题求助
- 2024-11-17 17:31:08
- 提问者: 未知
a:=currbarscount=10;stickline(a,c,h+1,0,-1);drawtext(currbarscount=10,h+1.2,'10天');通达信可用，我不用大智慧。大智慧还需要看函数是否相同，未测。
100求助n个问题
- 2024-11-17 21:40:27
- 提问者: 未知
技能书大多跟投资有关，高级书必须投资到一定额度才会出，记得最多是100w 5.六国敌对，未开战时交易许可，大海战期间对战国不可入港 6.无新人保护，不过一般没人打新手，国...
金融学外汇问题！！！求助！！！
- 2024-11-17 16:36:24
- 提问者: 未知
你这是什么时候的汇率啊！完全不对啊！欧元/美元 1.4554/57 英镑/美元 2.0565/70 美元/日元 109.96/00 美元/瑞郎 1.1285/90 澳元/美元 0.8838/42 美元/加元 0.9650/55 美元/人民币 7.427/97 这是最新的汇率表！
求助作文问题
- 2024-11-17 12:46:09
- 提问者: 未知
那片自然舒展的生命的色彩…我试想那些枝叶的触感，一点指间的温凉，那些脉络纵横突起…触摸那片绿叶，那是两个生命的碰撞。又一次凝视那株浸在水中的枯枝――那是一次在一...
求助~写论文影子银行的定义界定问题
- 2024-11-17 09:49:29
- 提问者: 未知
先说句题外话，“监管套利”是指经济行为逃避监管的一种状态，是次贷危机之后才被关注的一种经济现象。凡是涉及监管套利的经济行为都难以界定，包括影子银行。我的硕士论文写的就是和影子银行同类的民间金融现象，文章的四分之一都用来辨析概念，结果答辩时老师扔出了一句“你知不知道民间金融是什么，...
求助--赔偿金分割问题
- 2024-11-17 19:18:01
- 提问者: 未知
律师你好！我有一战友出车祸身亡已结案现对方共赔偿了43.8万他今年48岁有一女儿（22岁没有结婚）妻子（有严重疾病生活难自理）父母（都82了）兄弟姐妹共5人岳父母也在安葬时给大哥10万...
wpsexce里的数字如何自动转换成大写金额
- 2024-11-17 00:00:01
- 提问者: 未知
1我们先打开一个新建的wps表格，选中a1单元格。鼠标直接放在a1单元格上。2在表格b2的单元格上输入金额数字。3点击输入数字的单元格b2，在用鼠标单点一个右键[设置单元格格式]4在【单元格格式】中的【数字】分类中选择【特殊】，可以看到示例和类型5在点击【特殊】分类之后，在类型这边点击【人民币大写】，点击【确定】6点击确定之后，回到c2单元格，直接在这个设置好格式的单元格内输入数字的效果end
公积金问题（高分求助）！！！！
- 2024-11-17 18:21:08
- 提问者: 未知
你的户口是大连的吗？如果是大连本地户口是不好领取的，除非你打算在沈阳长期工作并且将在沈阳长驻或定居。不是的话带好**、公积金卡、原单位离职证明、大连当地暂住证到当地公积金管理中心审批，再凭支取单到你的公积金缴存银行领取现金。补充：你的公积金目前不能领取可能是因为原单位还没给你做封存。你的新单位如果不交公积金的话，你转移是没有什么意义的，如果今后的趋势会交，你可以选择放着到以后再转。但是我个人建议，...
求助securecrt问题
- 2024-11-17 16:38:48
- 提问者: 未知
我遇到多次这样的问题，快速的解决方法是：右击异常的窗口，选择“断开”，然后敲击回车即可。至于原因，个人觉得跟ios应该没什么关系，我用juniper的设备有时也会出现这种问题，很可能的原因就是设备和本地电脑之间的连接出现异常，重新建立一下就ok了

求助金额自动大写问题

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461