Excel 请问怎么限定单元格输入的数据类型

rivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then Exit Sub
If Target.Column > 3 Then Exit Sub
If Not IsNumeric(Target) Then
    MsgBox "只能输入数值"
    Target = ""
End If
End Sub理解了。原来不会写是因为没弄懂ByVal Target As Range。再请问一下，如何运行呢？原来写sub xx()点绿色运行键就可以运行了。这个不行。Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then Exit SubSub a()
Dim rng As Range
For Each rng In Selection
    MsgBox rng.Value & vbLf & rng.Address & vbLf & IsNumeric(rng)
Next
End Sub魂断蓝桥 发表于 2018-8-8 08:58
Sub a()
Dim rng As Range
For Each rng In Selection