实现自动提示下拉列表框

每天学一点。

抄了段代码,增加在C7单元格输入数据如果下拉列表中没有,可以输入数据

kdsea

Me.ListBox1.Clear '然后清空 ListBox1 的内容。
    If d.Count >= 1 Then
    Me.ListBox1.List = d.keys '如果字典中的键数量大于等于 1，就将字典中的键添加到 ListBox1 的列表中。
    Else
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
      
    End If     用GPT学习方便的多

每天学一点。

kdsea 发表于 2024-4-21 16:23
Me.ListBox1.Clear '然后清空 ListBox1 的内容。
    If d.Count >= 1 Then
    Me.ListBox1.List = d.ke ...

非常感谢你，在测试文件中完美。但我把段代码并入别的文件不能用，代码也没有报错。高手可否帮我看一下。

kdsea

看看这个  ，用别人的代码改的，  感觉没有直接生成下拉的代码好用 ，这个有些卡。