excel单元格有公式时，数据有效性的设置

Question

我想让B2这一列，在数值小于10000的时候，弹出警告窗口，最小值那一格该怎么写条件呢？但是B2的单元格有公式（b2=b1+a2），直接输入数值好像没什么用的，求解！

Answer 1

Alt + F11 然后双击工程栏下的Sheet1

把下面这段代码贴上，你在B2输入的时候就会出提示框。

Private Sub Worksheet_Change(ByVal Target As Range)

    If IsNumeric(Range("B2").Value) Then

        If Range("B2").Value < 10000 Then MsgBox "警告数值过小", vbExclamation, "数值小于10000"

    Else

        MsgBox "请输入数字", vbExclamation, "数值错误"

    End If

End Sub

Answer 2

1、用 ALT+F11 组合键激活VBE窗口；
2、在VBE窗口左上角的列表中双击打开你要设置提示信息的工作表；
3、粘贴以下代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value < 10000 Then
MsgBox "输入数值小于10000！"
End If
End Sub
4、关闭VBE窗口；
5、以上代码可监视B列单元格数据输入情况。

Answer 3

对于有公式的格，条件格式是不起作用的，用VBA也很麻烦，最好的方法是用条件格式：
选择B列＞格式＞条件格式＞数值小于10000时，单元格底色为红色。
这个可以对整列同时生效（如果是弹出窗口的话，如有多个格符合条件，你得按多少个确定呀），具体设置方法有多种，你可以看下EXCEL的条件格式帮助，

Answer 4

选中B2单元格，再选数据有效性，在设置选项卡的允许框中选择“自定义”，然后在在公式中输入B2<10000,点确定（可在出错警告栏中填入“数据错误”）

Answer 5

最小值输入10000就是，但数据有效性设置对已经有数据的单元格不起作用。

追问

用VBA怎么弄？

追答

vba我不会