珍藏 Excel条件判断弹对话框

收藏 Excel条件判断弹对话框
珍藏 Excel条件判断弹对话框对于一个单元格里的求和公式进行条件判断，如果所求的和大于50，就弹出一个对话框，该怎么做？

如：
A11单远格里公式： =sum(a1:a10)>50 就弹出一个一个对话框警告。

试了一下，用“数据有效性”里面的“出错警告”行不通，请高手帮忙。先谢了。 excel 对话框警告
[解决办法]
帮忙顶看有没有除了vba之外的方法


Private Sub Worksheet_Change(ByVal Target As Range)
    If (Cells(11, 1).Value &lt;= 50 And Cells(11, 1).Value &gt;= 0) Then
    
    Else
        MsgBox "#########", vbOKOnly, "$$$$"
    End If
End Sub

[解决办法]

引用:

引用:帮忙顶看有没有除了vba之外的方法
Visual Basic code?1234567Private Sub Worksheet_Change(ByVal Target As Range) If (Cells(11, 1).Value <= 50 And Cells(11, 1).Value >= 0) Then ……

如果用VBA的话，写在模块里，然后通过事件或者自定义按钮触发检测。感觉没有必要。

变通的方法是，你可以给公式所在的单元格添加条件格式，当其结果>50的时候，显示为红色。也可以起到警示作用。

另外，公式值的改变是不会触发数据有效性检查的，所以实现不了。
[解决办法]

引用:

引用:引用:帮忙顶看有没有除了vba之外的方法
Visual Basic code?1234567Private Sub Worksheet_Change(ByVal Target As Range) If (Cells(11, 1).Value <= 50 And Cells(11, 1).……

对确实不建议通过vba实现如果通过条件格式能满足要求的话就用条件格式吧

引用:

引用:帮忙顶看有没有除了vba之外的方法
Visual Basic code?1234567Private Sub Worksheet_Change(ByVal Target As Range) If (Cells(11, 1).Value <= 50 And Cells(11, 1).Value >= 0) Then ……

从Excel的visual basic 里找到对应Sheet 添加sheet change函数替换成以上代码就可以了

珍藏 Excel条件判断弹对话框

热点推荐