|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 liulang0808 于 2016-9-3 13:15 编辑
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
If VBA.IsNumeric([a1]) Then
If Len([a1]) > 5 Then
MsgBox "请输入五位数以内的数字"
[a1] = ""
Else
[a1] = "" & Choose(5 - Len([a1]), "0", "00", "000", "0000") & [a1] '或者用[a1] = Format([a1], "00000")
End If
Else
MsgBox "请输入数字"
[a1] = ""
End If
Application.EnableEvents = True
End If
End Sub
|
|