UC知道EXCEL 筛选的问题 有点难度
来源：百度知道 编辑：UC知道 时间：2024/06/02 10:27:54
表格如下表，我想要通过“单位：”右边的下拉菜单实现下表的筛选功能，比如下拉菜单选择A单位后“单位：A单位” 下表自动筛选出所有是A单位的行，怎么实现呢？
单位： A单位
姓名 职务 单位
张三 队长 A单位
李四 政委 B单位
AAA 副队 A单位
BBB 干事 A单位
CCC 队长 B单位
DDD 干事 B单位
EEE 队长 C单位
FFF 干事 A单位
如图：http://hd83.15150.com/photo/2010_12_20/3461828_2143940.jpg
我想通过在C2单元格建立一个下拉菜单，内容就是Q列的几个单位，在下C2下拉菜单中选择哪个单位，从第四列开始就筛选出C2所选择的单位
追加50分悬赏，麻烦各位了，晚上先去睡觉 明天来看答案 ^_^
单位： A单位
姓名 职务 单位
张三 队长 A单位
李四 政委 B单位
AAA 副队 A单位
BBB 干事 A单位
CCC 队长 B单位
DDD 干事 B单位
EEE 队长 C单位
FFF 干事 A单位
如图：http://hd83.15150.com/photo/2010_12_20/3461828_2143940.jpg
我想通过在C2单元格建立一个下拉菜单，内容就是Q列的几个单位，在下C2下拉菜单中选择哪个单位，从第四列开始就筛选出C2所选择的单位
追加50分悬赏，麻烦各位了，晚上先去睡觉 明天来看答案 ^_^
按照要求,做个样表,你下载看看是否符合要求,如果不符合,再说~~
需要说明的是,利用的VBA,所以先随便打开EXCEL,把宏的安全级别设置为低.
VBA代码使用ALT+F11可以看到,你应该没问题~~
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
Set cn = CreateObject("ADODB.Connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
[a4:C65536] = Empty
Range("A4").CopyFromRecordset cn.Execute("select * from [数据$] where 单位 like '%" & Target.Value & "%'")
cn.Close: Set cn = Nothing
End Sub
样表在:
http://tempfree.ys168.com/
下有个temp文件夹下的"样表.XLS"
解决办法：录制宏，再进行修改。
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c2") = "全部" Then 'C2下拉增加一个“全部”选项
Selection.Au