Excel人民币大写转换函数 推荐

开启Excel，在工作表上点击鼠标右键，选择查看代码。

单击插入。

点击模块。

输入以下代码

Functiond(q)ybb=Round(q*100)'将输入的数值扩大100倍，进行四舍五入y=Int(ybb/100)'截取整数部分j=Int(ybb/10)-y*10'截取十分位f=ybb-y*100-j*100'截取百分位zy=Application.WorksheetFunction.Text(y,"[dbnum2]")'将整数部分转为中文大写zj=Application.WorksheetFunction.Text(j,"[dbnum2]")'将十分位转为中文大写zf=Application.WorksheetFunction.Text(f,"[dbnum2]")'将百分位转为中文大写d=zy&"元"Iff<>0Andj<>0Thend=d&zj&"角"&zf&"分"Ify=0Thend=zj&"角"&zf&"分"EndIfEndIfIff=0Andj<>0Thend=d&zj&"角"Ify=0Thend=zj&"角"EndIfEndIfIff<>0Andj=0Thend=d&zj&zf&"分"Ify=0Thend=zf&"分"EndIfEndIfIfq=""Thend=0'如果没有输入任何数值为0EndIfEndFunction

输入数据验证。

如图所示。