[推荐]：在Excel里自动转换数字大小写

zrxing

在Excel的使用中，经常的除了要输入用阿拉伯数字表示的小写数字金额外，还要输入相应的中文大写数字。如果手工进行处理，不但输入时很繁琐，而且还很容易出错，经常会造成大小写不相符的情况发生。为此，我们可以利用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, "[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单元格中显示出来。怎么样，方便吧？

gouweicao78

不错，谢谢楼主分享。虽然已有不少解决方法——比如用函数公式，呵呵，嫌麻烦。

zbweixkj

不知怎么回事，超过一定数后如2KW程序会变成#VALUE!，好象还有BUG，希楼上改进。

yansf

好像超过9位就会出错,还有怎么样使它成为excell的一个函数呢,就是在其他excell也能用