如何自动建立可筛选的下拉列表

作者：绿色风分类：时间：2022-08-17 浏览：136

楼主 breezy	Q:在一列中输入数据，自动在该列中建立可筛选的下拉列表? A：见附件动态列表COMOBOX.rar 代码如下： Public sele Private Sub ComboBox1_Click() If Not sele Then Selection.Value = ComboBox1.Text ComboBox1.Visible = False ComboBox1.Clear End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub With ComboBox1 sele = True .Text = Target.Text .Left = Target.Left .Top = Target.Top .Width = Target.Width .Height = Target.Height .Visible = True With CreateObject("Scripting.Dictionary") For Each c In Range("A1", Range("A" & Cells.Rows.Count).End(3)) cv = c.Value If cv <> "" And Not .Exists(cv) Then .Add cv, "" Next ikeys = .Keys End With .List = ikeys sele = False End With End Sub
2楼小莉	晕，看不明白。
3楼虚拟漂泊	晕，看不明白,糊涂
4楼 jd688	很实用啊
5楼 au_kgd	不明白～
6楼 cookijie	不懂

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表