关于金额小写转换成中文大写的问题

金樽空对月

哪位师能给一段能把小写金额转换成中文大写的运行代码，感谢啦！

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)   'A1单元格输入数字自动转换中文大写
   
2. On Error Resume Next
   
3. If Target.Column = 1 And Target.Row = 1 Then
   
4. Cells(1, 1) = Application.Text(Target.Value, "[dbnum2]")
   
5. End If
   
6. End Sub

复制代码