如何单击一个复选框，单击所有复选框VBA

Question

我希望能够在Excel VBA上点击一个能够点击其他5个复选框的复选框。我的方案是我想创建一个显示5种数据类型的表，我想要完成的是创建一个单击所有其他复选框的复选框，因此加载所有数据而无需用户检查所有数据这些其他复选框中的5个。如果用户勾选了所有其他5个选项，并且当用户点击了然后未点击此复选框时，我希望也勾选此复选框，以取消选择自己的所有选项。希望有人可以帮忙吗？

Answer 1

在主复选框内单击功能添加oleobjects.object.value属性

sub checkbox1_click()
activeworkbook.sheets(1).oleobjects("checkbox_2").object.value=true
end sub

您可以以类似的方式添加更多复选框....因此，每当启用主复选框（复选框1）时，复选框子中的所有其他复选框也将启用