按住Ctrl选中所有复选框,右键菜单选择设置控件格式,单元格连接栏选择一个空单元格,就会将所有复选框的值与该单元格做链接。
选中任意复选框,所有复选框的值就会同步更新。也可以自己更改刚才选中的单元格的值(True/False或者1/0)都可以达到同样的效果。
刚才已经测试应该可以满足你的需求,有问题再问。
excel中有很多复选框重叠在一起,一次性删除方法:
1.首先调处开发工具菜单:点击 文件--选项--自定义功能,在右边将开发工具勾选上;
2.在EXCEL界面点击菜单:开发工具--设计模式;
3.删除复选框:选中复选框(如不能选中就先右键该复选框)然后按Delete键删除。
你可以遍历OLEObjects对象,再用typeof 方法判断是否为checkbox 如果是则将其value置为true
代码如下
Private Sub CommandButton2_Click()
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.CheckBox Then obj.Object.Value = True
Next
End Sub
上面的代码是当你的CommandButton2按下的时候所有复选框都选中;需要全不选中的话再建一个按扭代码也是上面的,只需改动If TypeOf obj.Object Is MSForms.CheckBox Then obj.Object.Value = false就行了
使用VBA编码实现。
用替换.......