excel - 是否可以创建 OptionButton 开关效果？

Question

像这样的东西：

Private Sub opt01_Click()
If opt01.Value = True Then
opt01.Value = False
Else
opt01.Value = True
End If

它会适合我的formDesign，而不是寻找和导入一些类似的小图片。

Answer 1

因为当 Click 事件运行时，OptionButton 的值始终为 true，所以您需要将其所需的值存储在变量中。这是一个在工作表 1 上名为选项按钮 1 的工作表中使用表单控件选项按钮的示例。此方法存储在模块中。

Private optionClicked As Boolean
Sub OptionButton1_Click()
    Dim o As OptionButton
    Set o = Sheets(1).Shapes("Option Button 1").OLEFormat.Object
    o.Value = Not optionClicked
    optionClicked = Not optionClicked
End Sub

但是请注意，使用此方法，单击任何选项按钮将使所有其他选项按钮变为假。因此，要将多个选项按钮用作复选框，您需要存储选项按钮的正确值（可能在数组中）......并在每次单击任何选项按钮时更正这些值。

您确定不能使用复选框吗？