Hello Stackoverflow社区
我需要ListBox错误的帮助 .
我在工作表(单选)中有两个ListBox,而不在userform中
ListBox1 - 包含主要项目
ListBox2 - 包含与主要项目关联的子项目
选择主要项目时 -
-
如果不存在子项,则ListBox2.Visible = False
-
如果存在子项,则ListBox2.Visible = True且.ListIndex = -1(准备子项选择)
使用工作簿时代码运行完美
问题打开工作簿时,链接到ListBox1的宏将自动运行并弹出错误,突出显示为蓝色'.ListBox2'
错误='编译错误:找不到方法或数据成员'
错误不会一直发生,如果工作簿是否与ListBox2一起保存可见,或者是否选择了子项,则无关紧要 .
我已尝试在打开的工作簿事件上使用,但错误发生在这些事件之前 .
请帮忙
添加了发生错误的代码
Dim ListBox2 As ListObject 'Added this in to see if it fixes error but it has not
With Sheet3.ListBox2
.Height = 208.5
.Width = 126.75
.Top = 312.75
.Left = 31.5
.Visible = False
End With
1 回答
要么:
您没有名为
Listbox2
的列表框,或者,Listbox2
不在名为Sheet3
的工作表上仔细检查您是否使用正确的名称引用了对象 .
To confirm the name of the listbox:
点击
Developer
>Design Mode
>Right click
列表框>Properties
如果它是一个ActiveX列表框,它将有一个属性列表,如下所示:
(Name)
字段中的名称 . 确保名称的开头或结尾没有额外的 spaces .To confirm the name of the worksheet:
双击工作表底部的选项卡 . 确保名称的开头或结尾没有额外的 spaces .
如果你仍然看不到问题:
在ActiveX属性对话框中将
Listbox2
重命名为Listbox222
.双击
Sheet3
的选项卡,然后键入Sheet333
.将导致错误的引用更改为
Sheet333.Listbox222
更多信息