返回首页
当前位置: 主页 > Excel教程 > Excel2003教程 >

Excel按条件跨表筛选图文教程

时间:2013-09-05 00:42来源:Office教程学习网 www.office68.com编辑:麦田守望者

Excel高级筛选和宏的结合用法详解(视频版),但这个用法有个缺陷,就是不能跨表按条件操作查询,只能在同一个工作表中操作,恰巧昨天一个VIP学员问我如何跨表操作,我上午用ADO的连接方法写了一段代码,但最后老是报错,问了网上的高手,然来是SQL语句中的符号不对,看来,细节决定成败啊。举个个例子:通过表2的年级为条件,将表1中的筛选结果全部显示在表2。如图:

excel宏 

excel宏

下一步:按下Alt+F11,进入VBE后台编辑环境,插入一个模块,输入如下代码:

Sub Macro1()
Dim conn As Object, Sql As String
'On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [表1$] where f14 ='" & Sheets("表2").Range("A3") & "'"
Sheets("表2").[A6:n10000].Clear
Sheets("表2").[A6].CopyFromRecordset conn.Execute(Sql)
conn.Close
Set conn = Nothing
End Sub

最后,在表2工具栏上点击鼠标右键,选择“窗体”,在弹出的工具箱中选择命令按钮,拖动到表2空白处,弹出的指定命令宏中,选择Macro1,确定。

最后,上面黄色的ADO的用法,其实很简单,在我的原创教程《物流行业excel编程高清视频教程》中有详细的介绍,只是绿色背景部分的Sql语句有变化而已,黄色背景部分没有大的变化,大家重点要通过Sql语句的写法注意格式,举一反三。

------分隔线----------------------------
标签(Tag):excel excel2007 excel2010 excel2013 excel2003 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
推荐内容
猜你感兴趣