微蓝网分享经验,让生活更简单!移动APP免费注册登录

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

阅读:44次 时间:2019-01-02 20:49:38来源:用户
最佳经验
由作者撰写原创经验并推荐置顶

Excel人民币大写转换函数怎么写?参考接下来办法,以下内容是由微蓝经验网用户发布Excel人民币大写转换函数,希望对于用户有一定帮助,为朋友进行解决疑惑,如若想了解更多相关内容,可以向底部移动了解更多与本教程文章相关解决经验方法!

步骤与方法
  1. 1

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

    技巧处理意思区别方法过程效果经验意义原理用途做法攻略常识使用用法详解注意事项步骤图解含义窍门妙招。
    Excel人民币大写转换函数
  2. 2

    单击插入。

    Excel人民币大写转换函数
  3. 3

    点击模块。

    Excel人民币大写转换函数
  4. 4
    输入以下代码

    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


    Excel人民币大写转换函数
  5. 5

    输入数据验证。

    Excel人民币大写转换函数
  6. 6

    如图所示。

    Excel人民币大写转换函数
THE END
分享到:
免责声明:本文来自微蓝网用户分享,不代表微蓝网的立场。
作者信息

新手帮助关于我们招聘信息反馈投诉免责声明服务协议最新文章

微蓝网部分素材(图片、视频、音频等)来自于网络,不代表本站立场,以上素材或内容仅代表作者个人观点,因此产生相关问题作者本人负责,本站将不承担任何法律责任! 如有问题请进行侵权投诉

© 2025 VLPOS.com 版权所有 微蓝网 ICP备案号:黑ICP备20003952号-1  黑公网安备 23012602000120号