请教关于ListBox1_KeyDown事件的问题

tclnxc

很久没有接触VBA了，在论坛复制了一个ListBox1_KeyDown事件的代码，ListBox1没有显示窗体，Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Me.ListBox1.Visible = False: Exit Sub
If (Target.Column <> 5) Or Target.Row < 2 Then Me.ListBox1.Visible = False: Exit Sub
Dim Arr, i&
Arr = Sheet1.[a1].CurrentRegion...........
但复制到自己的工作薄对应的工作表，运行时提示“方法和数据成员未找到”，VBE上框找不到ListBox1名称，自然就无法看到触发的事件列表了。请教各老师，要怎么在工作表中设置才能看到VBE上框ListBox1的名称呢？比较急，谢谢！

网海遨游

没用窗体，就把me.listbox1改成sheets("你的表名").listbox1

网海遨游

最好是有附件，才有真相。

tclnxc

网海遨游 发表于 2020-3-17 18:56
最好是有附件，才有真相。

先谢谢您的帮助！刚才我改动试了一下，还是不行，With Sheets("测试题").ListBox1这里提示“对象不支持该属性或方法”，我是看到蓝版主的这个附件http://club.excelhome.net/thread-1214751-1-1.html，将代码复制到我另一个工作薄里，他的这个也没有看到窗体，但是可以正常运行，我复制过去以后，就提示“方法和数据成员未找到”，VBE里不象他那样会能找到.ListBox1的事件，见附件

tclnxc

不知道怎么刚才回复并发了附件的贴没有显示出来。刚试了您的建议，但还是提示错误。我是复制了蓝老师的这个代码：用ListBox进行有效性多选的问题
http://club.excelhome.net/thread-1214751-1-1.html
(出处: ExcelHome技术论坛)到我自己的工作薄里，他的也没有窗体，但是没有问题，我将附件附上，麻烦指导一下，谢谢！

网海遨游

他这个listbox1是放在Sheet1工作表中,隐藏了.

tclnxc

网海遨游 发表于 2020-3-17 19:52
他这个listbox1是放在Sheet1工作表中,隐藏了.

工作表里是有隐藏的，但不在工程的窗体里，请问这是怎么做到的呢？

tclnxc

好象是在开发工具里插入吧