数字大小写转换

如果我没理解错的话，那是全角和半角的问题，用鼠标操作就行了，全角是12这样的，半角是12这样的,全角是一个圆,半角是一个月牙形的,应该没理解错吧???

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