excel大小写切换.docVIP

excel金额大小写怎么转换? 1、比如输入5473135，得出“伍万肆仟柒佰叁拾壹元叁角伍分”， 2、比如输入5473130，得出“伍万肆仟柒佰叁拾壹元叁角整”我来帮他解答 插入图片插入地图 您还可以输入9999 个字 您提交的参考资料超过50字，请删除 参考资料：提交回答取消 2009-9-9 14:09 满意回答 Excel自动转换数字大小写具体的操作步骤如下： 1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。 2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块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编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？