珍藏 Excel条件判断弹对话框

fieldset{padding:10px;}

收藏 Excel条件判断弹对话框对于一个单元格里的求和公式进行条件判断，如果所求的和大于50，就弹出一个对话框，该怎么做？如：A11单远格里公式：=sum(a1:a10)>50就弹出一个一个对话框警告。试了一下，用“数据有效性”里面的“出错警告”行不通，请高手帮忙。先谢了。

excel 对话框警告 ——解决方案——————————————————–帮忙顶看有没有除了vba之外的方法

PrivateSubWorksheet_Change(ByValTargetAsRange)If(Cells(11,1).Value<=50AndCells(11,1).Value>=0)ThenElseMsgBox"#########",vbOKOnly,"$$$$"EndIfEndSub

——解决方案——————————————————–

引用:

引用:帮忙顶看有没有除了vba之外的方法VisualBasiccode?1234567PrivateSubWorksheet_Change(ByValTargetAsRange)If(Cells(11,1).Value<=50AndCells(11,1).Value>=0)Then……

如果用VBA的话，写在模块里，然后通过事件或者自定义按钮触发检测。感觉没有必要。变通的方法是，你可以给公式所在的单元格添加条件格式，当其结果>50的时候，显示为红色。也可以起到警示作用。另外，公式值的改变是不会触发数据有效性检查的，所以实现不了。——解决方案——————————————————–

引用:

引用:引用:帮忙顶看有没有除了vba之外的方法VisualBasiccode?1234567PrivateSubWorksheet_Change(ByValTargetAsRange)If(Cells(11,1).Value<=50AndCells(11,1).……

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

引用:

引用:帮忙顶看有没有除了vba之外的方法VisualBasiccode?1234567PrivateSubWorksheet_Change(ByValTargetAsRange)If(Cells(11,1).Value<=50AndCells(11,1).Value>=0)Then……

从Excel的visualbasic里找到对应Sheet添加sheetchange函数替换成以上代码就可以了你说只有有缘人才可以取下，我看着你手中的戒指，想做你的有缘人，