选项按钮不通过改变下拉内容来切换开关

Question

我想在更改下拉内容时打开和关闭两个选项按钮。
然而，我写的代码根本没有改变选项按钮。
你有什么建议吗？

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H" Then
    Select Case Target.Value
      Case "A"
        Option1.Value = True
        Option2.Value = False
      Case "B"
        Option1.Value = False
        Option2.Value = True
      Case "C"
        Option1.Value = False
        Option2.Value = False
    End Select
  End If
End Sub

Answer 1

我认为您的代码运行良好。问题可能是您仍处于“设计模式”，这是您在添加选项按钮（或其他某个按钮）时进入的模式，您需要明确退出它才能使 VBA 代码生效又可以运行了。

转到“开发人员”选项卡。在“控件”下，您会看到“设计模式”。确保将其关闭。代码现在应该可以工作了。

您也可以在 VBA 编辑器中找到相同的图标。它应该在标准色带中。

选项按钮不通过改变下拉内容来切换开关

The option button does not switch on and off by changing the pull-down content

excel

vba