主题：设置输入数据有效性

狐表能否实现数据有效性设置，指定列只允许输入等于小于10的数据，大于10的无法输入，允许空值。

 

第一列    第二列

10         9

8           10

9           8

7           5

            12

6

12         6

13         8

注：12和13不允许输入，或提示红色。

谢谢狐狸爸爸，我修改了一下可以用了。

Select Case e.DataCol.Name
    Case "依法履职","服务发展","作风建设","政府公开","办事效率","清正廉洁"
        If  e.NewValue > 10 Then
            e.Cancel = True
        End If
End Select