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单元格中显示出来。怎么样,方便吧?