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

爱若去了

比如说我运行这个宏后，A1:A3区域只能输入数字。如果输入汉字或字母就提示出错。谢谢各位老师

爱若去了

是先限定规则后，用户才输入。不是对着已输入的数据检查

719404338

数据有效性，OFFICE2013数据验证。

魂断蓝桥

Private 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

爱若去了

魂断蓝桥 发表于 2018-8-7 15:09
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then Exit Sub
If Target.Colu ...

理解了。原来不会写是因为没弄懂ByVal Target As Range。再请问一下，如何运行呢？原来写sub xx()点绿色运行键就可以运行了。这个不行。

爱若去了

魂断蓝桥 发表于 2018-8-7 15:09
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then Exit Sub
If Target.Colu ...

知道了。我把方法放到模块里了刚才。现在好了。谢谢解答。

爱若去了

魂断蓝桥 发表于 2018-8-7 15:09
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 4 Then Exit Sub
If Target.Colu ...

冒昧问一下。如果我想做一个功能。就是先选一个区域。然后运行宏。此后这个区域内都只能输入数字，怎么做？我原来的想法是：设置一个range的全局变量。然后我选一个区域，点击宏后，就把这个区域赋值给全局变量。然后Private Sub Worksheet_Change(ByVal Target As Range)就判断他是不是数字。但是运行出错，提示对象变量或with块变量未设置。

魂断蓝桥

爱若去了 发表于 2018-8-7 16:59
冒昧问一下。如果我想做一个功能。就是先选一个区域。然后运行宏。此后这个区域内都只能输入数字，怎么做 ...

Sub 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

已解决，谢谢