Office中国论坛/Access中国论坛

标题: 关于数据有效性 [打印本页]

作者: 西岭飞雪 时间: 2009-7-9 17:56
标题: 关于数据有效性
各位麻烦帮看下啊，要求都在表里了，谢谢先

作者: pureshadow 时间: 2009-7-9 22:29
第一问：
选取B4》数据》有效性》序列》来源：B1:B3
第二问：
有效性无法做到的，可以用以下代码实现：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b10") <> "" And Range("b11") <> "" And Range("b12") <> "" Then
If Range("b10") + Range("b11") + Range("b12") <> Range("b9") Then
MsgBox "结果不正确，请重新输入"
End If
End If
End Sub
代码放在工作表代码窗口内，直接以事件触发。

作者: 西岭飞雪 时间: 2009-7-9 22:44
呵，谢谢妖版，这就试去，试好回来交卷

作者: 西岭飞雪 时间: 2009-7-9 23:11
妖版，第一个有点问题啊，选取B4》数据》有效性》序列》来源：B1:B3，确实是可以实现，但要是B1与B3中间要是有个数据更改过，那么B4还是按以前的数据在算，不会跟着更新。
第二个代码太好了，确实完全达到了预期

另外附件中是另一位朋友给出的答案，直接用的数据有效性，看起来也可以的，你看看

作者: pureshadow 时间: 2009-7-10 15:36
本帖最后由 pureshadow 于 2009-7-10 15:40 编辑

第二个用有效性做采取的是反向的思维，赞一个，学习了！
第一个我理解错了，改成这样：
数字小于等于SUM（B1：B3）

作者: 西岭飞雪 时间: 2009-7-13 17:47
谢谢妖版了，不胜感激。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)