勾选框超过一定数量不允许再勾选

yangziheng

现在有这么一个需要让客户选择的表，A~H分别售价都列在D列，要求让客户选择不同的组合，并要求总金额不超过50。请问各位大神，如何实现：
当选择到某个选项时，总金额会超过50，则弹出警告框，并且无法选上这个勾选框。

yangziheng

求各位大神路过帮忙看一下

media888

示例.rar (25.79 KB, 下载次数: 24)

2020-10-16 10:20 上传

点击文件名下载附件

，试试

yangziheng

media888 发表于 2020-10-16 10:21
，试试

感谢回复，不过这个示例里超过的时候还是能继续选择。我自己用下面这个代码实现了，还是谢谢大神的回复！但就是很麻烦，得一个一个弄，没法循环。

1. Private Sub CheckBox1_Click()
   
2.     If CheckBox1.Value = True Then
   
3.       If [E10].Value > 420000 Then
   
4.         MsgBox "所选项目总金额超出总预算42万，请重新选择！", , "提示信息"
   
5.         CheckBox1.Value = False
   
6.       End If
   
7.     End If
   
8. End Sub

复制代码

yes363001640

在压缩包里面直接打开的忘记了，写完随手点个保存，出来就没了。
我是用linkedcell的值然后偏移到后面的列，如果为真并且小于50就相加，大于弹出对话框。

yangziheng

yes363001640 发表于 2020-10-16 10:44
在压缩包里面直接打开的忘记了，写完随手点个保存，出来就没了。

还是谢谢大神回复！我自己刚刚用代码实现出来了，但是不能循环，得一个一个输入，太麻烦了。

1. Private Sub CheckBox1_Click()
   
2.     If CheckBox1.Value = True Then
   
3.       If [E10].Value > 420000 Then
   
4.         MsgBox "所选项目总金额超出总预算42万，请重新选择！", , "提示信息"
   
5.         CheckBox1.Value = False
   
6.       End If
   
7.     End If
   
8. End Sub

复制代码

philijian

http://club.excelhome.net/thread-975497-1-1.html
参考用类模块，5楼的写法

chxw68

使用的类代码，供楼主参考。

zpy2

yangziheng 发表于 2020-10-16 10:47
还是谢谢大神回复！我自己刚刚用代码实现出来了，但是不能循环，得一个一个输入，太麻烦了。

http://e.anyoupin.cn/bsbm/pdo/eh2/a2502/mybookmark/cart/index.php

这种感觉用js也比较方便的。

yangziheng

philijian 发表于 2020-10-16 12:30
http://club.excelhome.net/thread-975497-1-1.html
参考用类模块，5楼的写法

哇感谢大神