选择Group Box后单击OptionButton会出错

Question

我有一个带有命名范围的工作表，一个用户单元格[OB_DropDown]和一个组框中的几个选项按钮。黄色单元格会根据所选的选项按钮更改其下拉菜单。

我已经为每个选项按钮分配了宏：

Sub OB_Colors()

    [OB_DropDown].Validation.Delete
    [OB_DropDown].Validation.Add Type:=xlValidateList, Formula1:="=Drop_Colors"

End Sub

Sub OB_Sizes()

    [OB_DropDown].Validation.Delete
    [OB_DropDown].Validation.Add Type:=xlValidateList, Formula1:="=Drop_Sizes"

End Sub

一切正常，但当我点击群组框（选中框架）然后单击其中一个选项按钮时，我会得到一个＆＃39; 1004＆＃39;运行时错误。代码指向.Validation.Add行。谁知道为什么？

Answer 1

好的，试试这个。

Sub OB_Colors()

    Sheets("sheetname").Range("OB_DropDown").Validation.Delete
    Sheets("sheetname").Range("OB_DropDown").Validation.Add Type:=xlValidateList, Formula1:="=Drop_Colors"

End Sub

Sub OB_Sizes()

    Sheets("sheetname").Range("OB_DropDown").Validation.Delete
    Sheets("sheetname").Range("OB_DropDown").Validation.Add Type:=xlValidateList, Formula1:="=Drop_Sizes"

End Sub