首页 文章

打开时列表框错误

提问于
浏览
1

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 回答

  • 0

    要么:

    • 您没有名为 Listbox2 的列表框,或者,

    • Listbox2 不在名为 Sheet3 的工作表上

    仔细检查您是否使用正确的名称引用了对象 .

    To confirm the name of the listbox:

    • 点击 Developer > Design Mode > Right click 列表框> Properties

    • 如果它是一个ActiveX列表框,它将有一个属性列表,如下所示:

    img

    • 单击属性对话框中 (Name) 字段中的名称 . 确保名称的开头或结尾没有额外的 spaces .

    To confirm the name of the worksheet:

    双击工作表底部的选项卡 . 确保名称的开头或结尾没有额外的 spaces .

    img


    如果你仍然看不到问题:

    • 在ActiveX属性对话框中将 Listbox2 重命名为 Listbox222 .

    • 双击 Sheet3 的选项卡,然后键入 Sheet333 .

    • 将导致错误的引用更改为 Sheet333.Listbox222


    更多信息

相关问题