Excel中人民币金额大写转小写函数,这

前方《邪魔天神的题目：一个对于群众币的题目，你造吗？》案牍顶用2种办法扶助邪魔天神同砚办理了在Word文档中怎么把群众币金额主动变为大写金额的题目，而且文中也奉上了大利益：26种Excel中群众币小写转大写的公式，你get了吗？

此次小火伴毛毛同砚又带来了新的关联题目了，一同来看看吧！

在实践处事中常常需求将群众币金额小写变换为大写，此次毛毛同砚居然碰到的是反过来的需求将群众币金额大写变换为小写，这还真是罕有，你领会用甚么函数吗？

此次给众人分享个新鲜的办法——人工函数。一同看下操纵环节吧：

1.翻开相当Excel文献，赶快键Alt+F11，疾速翻开VBA编纂器；

2.工程搪塞地位右击插入模块1；

3.将上面的代码复制粘贴到VBA代码编纂框中，封闭VBA编纂器窗口便可；

FunctionDXToXX(ss)

Fori%=1To9

ss=Replace(ss,Mid("壹贰叁肆伍陆柒捌玖",i,1),i)

ss=Replace(ss,Mid("一二三四五六七八九",i,1),i)

Fori%=Len(ss)To1Step-1

s$=Mid$(ss,i,1)

X%=InStr("分角圆拾佰仟万拾佰仟亿拾佰仟兆",s)

IfX=0ThenX%=InStr("分毛元十百万万十百千亿十百千兆",s)

IfX=0ThenX%=InStr("分毛块十百万万十百千亿十百千兆",s)

IfXThenj%=IIf(j%X,X,((j-3)\4)*4+X)

IfVal(s)Thenm#=m#+(sString(j-1,"0"))/

DXToXX=Round(m,2)

IfInStr(ss,"-")OrInStr(ss,"负")ThenDXToXX=-DXToXX

EndFunction

4.按普遍函数相同输入就能够看到此次人工函数DXToXX函数，题目就轻便办理了。

学会了吗？暂时看不完或耽心记不全的火伴，能够分享到朋侪圈给本人备份一份。

背景答复””获得本次已完整素材文献，可保管好当做对象行使哦。

扫一扫加老友，更多磋商早领会！

李珍喜

喜好本文请鄙人面点赞和留言

下一篇文章：没有了