Excel实战技巧59： 使用VBA让用户仅能在指定单元格或单元格区域中输入数字

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Application.EnableEvents = False
    For Each rng In Target
        '限定程序执行在单元格区域B2:D6
        If Not Application.Intersect(rng,Range("B2:D6")) Is Nothing Then
           '判断是否为数字
           '如果不是数字则清空
           If Not IsNumeric(rng.Value) Then
              rng.Value = vbNullString
           End If
        End If
    Next rng
    Application.EnableEvents = True
End Sub