exl下拉模糊筛选

aman1516

fzkoko 发表于 2013-3-11 19:57
试试看

Private Sub Worksheet_Change(ByVal Target As Range)

设置包含指定关键字的数据有效性
InStr()+字典+数组.....学习了。

苏小亓

蓝桥玄霜 发表于 2013-3-11 21:12
请见附件。

版主大大  我对代码完全不会，我想问一下这个下拉模糊筛选如果要改到其他单元格需要怎么改。求版主大大给指点下。

蓝桥玄霜

把第7句If Target.Address = "$A$1" Then改为
If Target.Address = "$A$10" Then   'A10单元格
If Target.Address = "$B$1" Then     'B1单元格

苏小亓

蓝桥玄霜 发表于 2018-7-27 08:27
把第7句If Target.Address = "$A$1" Then改为
If Target.Address = "$A$10" Then   'A10单元格
If Target ...

非常感谢。

苏小亓

蓝桥玄霜 发表于 2018-7-27 08:27
把第7句If Target.Address = "$A$1" Then改为
If Target.Address = "$A$10" Then   'A10单元格
If Target ...

不好意思，我在问一下。如果下拉模糊筛选在一个合并单元格的地方需要怎么改，按你上面的代码如果在合并单元格的地方就没有效果。谢谢版主。

蓝桥玄霜

苏小亓 发表于 2018-7-27 11:14
不好意思，我在问一下。如果下拉模糊筛选在一个合并单元格的地方需要怎么改，按你上面的代码如果在合并单 ...

建议上传Excel表格附件来说明问题。

苏小亓

蓝桥玄霜 发表于 2018-7-28 08:38
建议上传Excel表格附件来说明问题。

我是在论坛里面搜索的资料照葫芦画瓢弄的，劳烦帮我改一下。谢谢！

蓝桥玄霜

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim i As Integer
   
3.     Me.ListBox1.Clear
   
4.     Arr = Sheet3.[a1].CurrentRegion
   
5.     Me.TextBox1.Value = ActiveCell.Value '将活动单元值赋给文本框
   
6.     'If Target.Count = 1 Then
   
7.         If Target.Address = "$B$4:$E$4" Then '修改下拉单元格的位置，字母必须大写
   
8.             With Me.TextBox1
   
9.                 .Visible = True
   
10.                 .Top = Target.Top
    
11.                 .Left = Target.Left
    
12.                 .Width = Target.Width
    
13.                 .Height = Target.Height * 1
    
14.                 .Activate
    
15.                 .Text = ""
    
16.             End With
    
17.             With Me.ListBox1
    
18.                 .Visible = True
    
19.                 .Top = Target.Top
    
20.                 .Left = Target.Left + Target.Width
    
21.                 .Width = Target.Width * 2
    
22.                 .Height = 92
    
23.                 For i = 2 To UBound(Arr)
    
24.                     .AddItem Arr(i, 1)
    
25.                 Next
    
26.             End With
    
27.         Else
    
28.             Me.ListBox1.Clear
    
29.             Me.TextBox1 = ""
    
30.             Me.ListBox1.Visible = False
    
31.             Me.TextBox1.Visible = False
    
32.         End If
    
33.     'End If
    
34. End Sub
    

复制代码

窗体中把列表框控件的列设置为3，列宽设置为50;50;50
建议搜索列表框多列显示的帖子。