EXCEL金额大小写转换_百度文库.doc

一课资料网/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单元格中显示出来。怎么样，方便吧？【问题】在F4单元格中输入1824.25，怎样在F5中出现壹仟捌佰贰拾肆元贰角伍分？【解答】把下面公式COPY到你要放大写的单元格位置，公式里的F4是输入小写数字的单元格位置，如果你的小写数字在其他单元格，就用替换功能换一下就可以了。=IF(F41,IF(F40.1,TEXT(INT(F4*100,DBNum2G/通用格式&分,IF(INT(F4*100-INT(F4*10*10=0,TEXT(INT(F4*10,DBNum2G/通用格式&角整,TEXT(INT(F4*10,DBNum2G/通用格式&角&TEXT(INT(F4*100-INT(F4*10*10,DBNum2G/通用格式&分,TEXT(INT(F4,DBNum2G/通用格式&元&IF(INT(F4*10-INT(F4*10=0,IF(INT(F4*100-INT(F4*10*10=0,零,IF(INT(F4*0.1-INT(F4*0.1=0,零,&TEXT(INT(F4*10-INT(F4*10,DBNum2G/通用格式&角&IF(INT(F4*100-INT(F4*10*10=0,整,TEXT(INT(F4*100-INT(F4*10*10,DBNum2G/通用格式&分=IF(ROUND(O23,20,无效数值,IF(ROUND(O23,2=0,零,IF(ROUND(O23,21,TEXT(INT(ROUND(O23,2,dbnum2&元&IF(INT(ROUND(O23,2*10-INT(ROUND(O23,2*10=0,IF(INT(ROUND(O23,2*(INT(ROUND(O23,2*100-INT(ROUND(O23,2*10*10=0,零,TEXT(INT(ROUND(O23,2*10-INT(ROUND(O23,2*10,dbnum2&角&IF(INT(ROUND(O23,2*100-INT(ROUND(O23,2*10*10=0,整,T