有关在一个工作表内存在多个listbox时如何避免互相干扰？

逆天修炼

如题，我在工作表“合同信息登记”中需要通过listbox方式建立多个下拉列表的listbox,在表中第2，16，17，18，19列建立下拉，但是我无法避免多个listbox的相互干扰，请大神帮忙修改一下Worksheet_SelectionChange事件代码，谢谢！

zpy2

用userform添加单行记录呢

zpy2

zpy2 发表于 2024-6-6 12:50
用userform添加单行记录呢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'先全部隐藏
ListBox1.Visible = false
ListBox2.Visible=false
...
    If Target.Column = 2 And Target.Row > 2 Then ListBox1.Visible = True: GoTo 100
    If Target.Column = 16 And Target.Row > 2 Then ListBox2.Visible = True: GoTo 200
    If Target.Column = 17 A

逆天修炼

zpy2 发表于 2024-6-6 12:50
用userform添加单行记录呢

因为随工程变化因素将来可能会调动列的位置，所以我想还是在Excel工作表上设置下拉listbox控件便于修改

quqiyuan

参与一下，供参考
此部分改了下

逆天修炼

quqiyuan 发表于 2024-6-6 13:06
参与一下，供参考
此部分改了下

使用完全没问题，谢谢大神！我没有想到还有这种搞法
For Each Control In Me.OLEObjects
     Control.Visible = False
Next
请问这个oleobjects是否像字典一样需要引用吗？

cidanji

留一个list其他的可以删掉

micch

建议就用一个控件，换数据好了

逆天修炼

cidanji 发表于 2024-6-6 13:55
留一个list其他的可以删掉

ListBox1_Change，这个读起来，我有点糊涂
Worksheet_SelectionChange，感觉清晰明了
整体更简洁
我再认真学习一下
谢谢！！

逆天修炼

cidanji 发表于 2024-6-6 13:55
留一个list其他的可以删掉

请问老师，为什么我在listbox中点击目标对象会出现跳动的现象，必须二次寻找目标对象点击才能录入目标值呢？