复选框打钩的问题

刘沛

请教大家！附件中，有两个复选框，符合与不符合，现在两个都可以打上√，我想实现：只能打其中的一个，一个打上√，另外一个就不能打√；一个已经打√，另外一个再打√，则现在这个已经打的√，自动消失。
请问可以实现吗？感谢！

huang1314wei

1. Sub text()
   
2.     If ActiveSheet.CheckBoxes("Check Box 11").Value = xlOn Then
   
3.        ActiveSheet.CheckBoxes("Check Box 12").Value = xlOff
   
4.     Else
   
5.        ActiveSheet.CheckBoxes("Check Box 12").Value = xlOn
   
6.     End If
   
7. End Sub
   
8. Sub text12()
   
9.     If ActiveSheet.CheckBoxes("Check Box 12").Value = xlOn Then
   
10.        ActiveSheet.CheckBoxes("Check Box 11").Value = xlOff
    
11.     Else
    
12.        ActiveSheet.CheckBoxes("Check Box 11").Value = xlOn
    
13.     End If
    
14. End Sub

复制代码

huang1314wei

我只帮你写一个，剩下的你自己写一下，改一下名称就好了
附件如下

Book1.rar (8.89 KB, 下载次数: 8)

2015-7-14 20:10 上传

点击文件名下载附件

刘沛

huang1314wei 发表于 2015-7-14 20:10
我只帮你写一个，剩下的你自己写一下，改一下名称就好了
附件如下

老師，我下載了附件，可是無法實現我說的要求啊！

huang1314wei

刘沛 发表于 2015-7-16 14:16
老師，我下載了附件，可是無法實現我說的要求啊！

我这边测试没有问题，你说说看你什么要求

huang1314wei

刘沛 发表于 2015-7-16 14:16
老師，我下載了附件，可是無法實現我說的要求啊！