在Excel 2010中隐藏或取消隐藏VBA的控件是正确的吗？

Question

我在Excel 2010的工作簿中有一个名为“MainSheet”的工作表。

此表包含名为“OptionButton1”的activeX控件。 当单元格的“C18”值为“2”时，该控件应该隐藏。

我写下面的代码，但不起作用。

►更多问题：我可以将三个与一个单元格相关的activeX（单选按钮）与三个不同的值相关联，例如表单控件中的单选按钮吗？

任何建议表示赞赏。 :)

Sub MS_Method()

If Range("C18").Value = 2 Then

    ActiveSheet.MainSheet("OptionButton1").Visible = False

ElseIf Range("C18").Value = 1 Then

    ActiveSheet.MainSheet("OptionButton1").Visible = True

End If

End Sub

Answer 1

假设您的ActiveX OptionButton命名为“OptionButton1”，下面的代码（已测试）将起作用：

Option Explicit

Sub MS_Method()

Dim Sht                 As Worksheet

' modify "MainSheet" to your sheet name (where you have your OptionButton)
Set Sht = ThisWorkbook.Sheets("MainSheet")

If Range("C18").Value = 2 Then
    Sht.OLEObjects("OptionButton1").Visible = False
ElseIf Range("C18").Value = 1 Then
    Sht.OLEObjects("OptionButton1").Visible = True
End If

End Sub