Question

我正在寻找一个简单的宏，我可以通过窗体控制按钮激活它，清除我工作表上的所有窗体控制选项按钮。

我列出了工业零件规格的选项，每个部分只能选择一个。但是，一旦选择了一个，表单控件选项按钮就会保持填充状态。我之前通过使用复选框来规避这一点，如果再次单击该复选框，它将删除复选标记。然而，一旦我了解到我要以这样的方式创建表单，每个部分只能选择一个选项，（为了便于使用，以防一个计算机意识较少的人使用它），很明显选项按钮是正确的方法。

所以我需要一个简单的宏，我可以使用一个按钮清除这些选项按钮全部为空白，就好像没有选中一样。我已经查看并尝试了一些代码字符串，但到目前为止还没有。也许我错过了一些明显的东西或者找错了东西，但我不认为我是。

我检查了以下页面并尝试了他们的代码：

http://www.mrexcel.com/forum/excel-questions/689865-how-clear-all-checkboxes-option-buttons-list-boxes-form-3.html

Re-setting all option buttons at once

http://www.excel-easy.com/vba/examples/option-buttons.html

我觉得这应该很简单。一个VBA宏代码，它将把FORM CONTROL Option Buttons重置为空白（我相信这是假状态？）。无需担心具体范围要清除;一个重置工作表的按钮将完美无缺。

提前感谢您的帮助。

Answer 1

遍历Shapes集合：

Sub Reset()
    For Each vCtrl In ActiveSheet.Shapes
        vCtrl.DrawingObject.Value = False
    Next
End Sub

表单选项按钮重置宏

1 个答案: