首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

珍藏 Excel条件判断弹对话框

2013-02-17 
收藏 Excel条件判断弹对话框对于一个单元格里的求和公式进行条件判断,如果所求的和大于50,就弹出一个对话

收藏 Excel条件判断弹对话框
珍藏 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函数    替换成以上代码就可以了

热点排行