[已解决]求助

liuxingyi88

用VBA能否解决在单元格的1列或几列中，输入文本时，提示只能输入数字？谢谢！！！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-5 10:23

楼主需要的是VBA，可用Change事件，例只对A列
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        If Not IsNumeric(Target) Then
            MsgBox "请输入数字!"
            Target = ""
        End If
    End If
End Sub

跳转到最佳答案楼层

BAIXINGR

可以啊，其实你也没必要用VB啊，你用自定以单元格格式就行啊

冠军欧洲2010

=ISNUMBER($A1)
数据有效性-自定义
输入公式
然后在出错警告输入要提示的文字就可以。

yewei113

数据有效性---输入公示

zjdh

楼主需要的是VBA，可用Change事件，例只对A列
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        If Not IsNumeric(Target) Then
            MsgBox "请输入数字!"
            Target = ""
        End If
    End If
End Sub

liuxingyi88

谢谢了！老师辛苦了，不知哪位同学抢我的权利！我还想达到“E2列至G65536列”都不能输入文本？