Excel 选择组框后单击OptionButton会出现错误

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

我已为每个选项按钮指定了宏：

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

一切正常，但当我单击组框（框架已选中），然后单击其中一个选项按钮时，会出现“1004”运行时错误。代码指向.Validation.Add行。有人知道为什么吗？

好的，试试这个

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

好的，试试这个

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

---

不，我的床单没有保护。我尝试过取消保护/保护，但问题仍然存在。我不明白选择组框如何影响添加验证列表。好的，我修改了代码。试试看。如果它不工作，告诉我。不，我的工作表没有保护。我尝试过取消保护/保护，但问题仍然存在。我不明白选择组框如何影响添加验证列表。好的，我修改了代码。试试看。如果它不工作，请告诉我。显示详细错误消息<代码>运行时错误“1004”有另一条详细错误消息。如果你说，我们可以考虑更多。消息是“应用程序定义或对象定义错误”。显示详细错误消息<代码>运行时错误“1004”有另一条详细错误消息。如果你说，我们可以考虑更多。消息是“应用程序定义或对象定义错误”。