最新要闻

广告

手机

诺安基金陈衍鹏谈科技投资：向上乘风行业周期，向下回归商业落地

诺安基金陈衍鹏谈科技投资：向上乘风行业周期，向下回归商业落地

 伊朗公布新型国产无人机

伊朗公布新型国产无人机

家电

  1. 首页
  2. 资讯
  3. 内容

excel大小写金额同步设定取整后大写如何主动变整数 excel大小写金额同步

来源：城市网


(资料图片)

1、Excel自动转换数字大小写具体的操作步骤如下： 1. 启动excel。

2、按“alt+f11”快捷键打开“visual basic编辑器”。

3、 2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。

4、双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码: function dx(q) dim cur as long,yuan as long dim jiao as integer,fen as integer dim cnyuan as string, cnjiao as string, cnfen as string if q = "" then dx = 0 exit function end if cur = round(q * 100) yuan = int(cur / 100) jiao = int(cur / 10) - yuan * 10 fen = cur - yuan * 100 - jiao * 10 cnyuan = application.worksheetfunction.text(yuan, "[dbnum2]") cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]") cnfen = application.worksheetfunction.text(fen, "[dbnum2]") dx = cnyuan & "元" & "整" d1 = cnyuan & "元" if fen <> 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & cnfen & "分" if yuan = 0 then dx = cnjiao & "角" & cnfen & "分" end if end if if fen = 0 and jiao <> 0 then dx = d1 & cnjiao & "角" & "整" if yuan = 0 then dx = cnjiao & "角" & "整" end if end if if fen <> 0 and jiao = 0 then dx = d1 & cnjiao & cnfen & "分" if yuan = 0 then dx = cnfen & "分" end if end if end function 输 入完成后，关闭“visual basic编辑器”返回工作表。

5、现在，我们可测试一下这个函数。

6、首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。

7、怎么样，方便吧？。

相信通过excel大小写金额同步这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。

本文由用户上传，如有侵权请联系删除！

关键词：