Excel 选项按钮没有消失？我的代码有问题吗？

我希望根据单元格的结果显示不同的选项按钮。似乎没办法让它工作

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet
    Select Case Range("A1").Value
    Case "A"
        .Shapes("Option Button 1").Visible = True
    Case "B"
        .Shapes("Option Button 1").Visible = False
    End Select
End With
End Sub

Sub OptionButton1_Click()

End Sub

---

不要使用

ActiveSheet

尝试限定您的工作表（即，将您的

With

语句更改为类似于：

With thiswoolk.Worksheets（“Sheet1”）

。工作表名称是选项按钮所在的工作表）是否调用了事件例程？将类似于

msgBox target.address

的语句作为第一个语句，或使用调试器检查仍然不工作由于我们没有坐在您的计算机旁，请提供更多详细信息，说明“不工作”的含义。您是否使用调试器检查失败的内容？你的形状名称正确吗？是否确实要访问A1单元进行检查？单元格的it值是多少？例程被触发了吗？运行时没有错误。选项按钮的名称是正确的。这只是一个简单的选项按钮1。我创建的第一个按钮。它不一定是A1单元。我想先测试这个过程，然后再扩展它。我不断地将A1的值更改为“A”或“B”。当它的“B”出现时，它应该消失。它没有被触发。