搜索工作簿关键字所在行一行，提取当前行数据，并生成填充到其他表

o0star0o

简单理解就是在“期刊”中按ctrl+F关键字含有“语文”的数据，然后把这个数据所在行的所有数据按格式生成在“搜索”表中，按既定格式填充，如数据不止一行，就全部展示





附件中有现成的代码，鄙人不才，不会照搬，请高手帮忙加入代码到“搜索”表中
搜索.rar (128.87 KB, 下载次数: 21)

2013-11-24 17:00 上传

点击文件名下载附件

蓝桥玄霜

1. Sub lqxs()
   
2. Dim cnn As Object, SQL$, gj$
   
3. Sheet1.Activate
   
4. [a3:p500].ClearContents
   
5.     Set cnn = CreateObject("ADODB.Connection")
   
6.     cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\期刊表.xls"
   
7.     gj = [b1].Value
   
8.     SQL = "select * from [核心报价$a2:p500] WHERE 期刊名称 like '%" & gj & "%'"
   
9.     [a3].CopyFromRecordset cnn.Execute(SQL)
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

蓝桥玄霜

请见附件。

o0star0o

蓝桥玄霜 发表于 2013-11-24 18:51
请见附件。

非常感谢您！第一次找到这种代码也是您的帖子里，有个小问题：
目前搜索只是在刊“刊物名称”列搜索，麻烦帮忙改为全文搜索，把其他列含有关键字的也生成出来，非常感谢前辈您！

o0star0o

蓝桥玄霜 发表于 2013-11-24 18:51
请见附件。

另外麻烦把原表绿色的字体，生成也和原表一样用绿色的，这个代码可能比较复杂，我问了其他网友都不会

LMY123

SQL = "select * from [核心报价$a2:p500] WHERE 期刊名称 like '%" & gj & "%'"