当前位置: 代码迷 >> VBA >> 珍藏 Excel条件判断弹对话框
  详细解决方案

珍藏 Excel条件判断弹对话框

热度:1348   发布时间:2013-02-26 00:00:00.0
收藏 Excel条件判断弹对话框
对于一个单元格里的求和公式进行条件判断,如果所求的和大于50,就弹出一个对话框,该怎么做?

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

试了一下,用“数据有效性”里面的“出错警告”行不通,请高手帮忙。先谢了。
excel 对话框 警告

------解决方案--------------------------------------------------------
帮忙顶 看有没有除了vba之外的方法

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Cells(11, 1).Value <= 50 And Cells(11, 1).Value >= 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函数    替换成以上代码就可以了
  相关解决方案