最初做票据打印的时候,通过一些自定义的函数实现“数字变大写”。后来VBA的技巧渐渐熟悉一些,开始用代码处理。
也是通过函数,但是更加巧妙和便捷了。
这里介绍一个单元格变化激发程序。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Row = 1 Then
asd = Target.Value
Cells(1, 1) = dxje(asd)
End If
End sub
其中dxje()为自定义函数。
[@more@]来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24345566/viewspace-1050436/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/24345566/viewspace-1050436/