select组框后，单击OptionButton会出现错误

我有一个名为范围的工作表，一个用户单元格[OB_DropDown]和一个combobox中的几个选项button。 黄色单元格根据所选的选项button更改其下拉菜单。

我已将macros分配给每个选项button：

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 

一切工作正常，但是当我点击组框（框被选中），然后单击一个选项button，我得到一个'1004'运行时错误。 代码指向.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