[粗]自贵算资克小鱼拿维动转换数字大小写

      在与与报销单类似的财务单据填写过程中，我们除了要输入用阿拉伯数字表示的小写数字金额外，来自还要输入相应的中文大写数字。如果手工进行处理，不但输入时很繁琐，而且还很容易出错，经常会造成大小写不相符的情况发生。为此，我们可以利用VBA自定义一个函数，然后再利用这个自定义的函数来实现货币大小的自动转换。这样，不但方便快捷，而且不易出错。具体的操作步骤如下360问答：

       1.启动Excel。按“Alt+F11”快捷键打开“VisualBasic编等乙辑器”。

       2根怎盟基.在“VisualBasic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:

       Fun问条见益ctiondx(q)

        DimCurasLong,yuanasLong

       DimJiaoasInteger,FenasInteger

       DimCnYuanasString,CnJiaoasSt省黄统婷船研帮ring,CnFen块该核asString

       Ifq=""Then

       dx=0

       ExitFunction

       EndIf

       Cur=Round(q*100)

       Yuan=Int(Cur/100)

       Jiao=Int(Cur/10)-Yuan*10

        Fen=Cur-Yuan*100-Jiao*10

       CnYuan=Application.Workshee握今列说机厚联副又视评tFunction.Text(Yuan,"[DBNum2]")

       CnJiao=Applica女度行员率粒大白尽tion.WorksheetFunction.殖牛常第查着换Text(Jiao,"[DBNum2]")

       CnFen =山机龙Application.Wo药见范简松很都宪rksheetFunction.Text(Fen,"[DBNum2]")

       d右频曾河呢的及作景x=CnYuan&"元"&"整"

       d良曲我裂课称继急1=CnYuan&"元"

        IfFen<>0AndJiao<>0Then

       dx=d1&CnJiao&"角"&CnFen&"分"

       IfYuan=0Then

       dx=CnJiao&"角"&CnFen&"分"

       EndIf

       EndIf

        I到fFen=0AndJiao<>0Then

       dx=d1&CnJiao&"角"&"整"

       IfYuan=0Then

       dx=CnJiao&"角"&"整"

       EndIf

       EndIf

       IfFen<>0AndJiao=0Then

       dx=d1&CnJiao&CnFen&"分"

       IfY慢伯困笑证各uan=0Then

       dx=CnFen&"分"

       EndIf

       EndIf

       E超山ndFunction

       输入完成后，关闭“VisualBasic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在A1单元格中输入一个小写数字的金额，例如123456.78，然后，在A2单元格中输入公式：=dx(A1)，确认后即可将A1评所表示的小写数字金额转换为大写的数字金额，并在A2单元格中显示出来。怎么样，方便吧？

标签：自贵算,资克,拿维动