[原创] 0秒,快速模糊搜索

eedifier

anyway,还是谢谢啦

不知道有谁能够先帮忙解决一下这个问题呢??

eedifier

帖子要沉啦...告急..

有谁帮忙解决一下嘛?

andysky

Qee用兄： 帮我看看这个为何查询总出错？ 你的代码，一个字符没改。 YOBXEsVn.rar (11.3 KB, 下载次数: 16)

2006-6-1 14:30 上传

点击文件名下载附件

[此贴子已经被作者于2006-6-1 14:30:03编辑过]

jasonzhaopin

无非是find方法，标题太夸张了！并无实际应用意义

office帮助就有Find 方法示例

本示例在工作表 1 的单元格区域“A1:A500”中查找包含值 2 的单元格，并将这些单元格变灰。

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Interior.Pattern = xlPatternGray50
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

1. &lt;SCRIPT language=VBScript src="ShowMe_Code.vbs"&gt;<br></SCRIPT>
3. <SCRIPT language=VBSCRIPT>
4. Sub HelpPopup (sFile, sID)
5. Call InitConstants()
6. On Error Resume Next
7. r=oua.HelpPopup(sFile,sID)
8. If Err<>0 Then Msgbox L_SECURITY_MSG,48,L_TITLE
9. End Sub
10. <br>&lt;/script&gt;

复制代码

qee用

以下是引用[I]andysky[/I]在2006-6-1 13:20:34的发言：
Qee用兄：
帮我看看这个为何查询总出错？
你的代码，一个字符没改。

对不起,没细看就回答您了.回答有误.
那段代码是不需要引用ADO的.
您的数据是从外部导入的吧?因为ADO主要是针对关系数据库设计的,EXCEL使用ADO时会对数据源有较严格的要求,最基本一点,列数据类型必须是统一的,这是关系数据的基本要求,而从外部导入的"常规"数据在格式上有隐含的不一致.可以重新设置成文本格式+重写使其格式一致.如果工作表内的数据恰巧都是文本的(如您的附件),则要简单一些.改下句就可以了:
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName

wangpin

jDR91oMl.rar (71.81 KB, 下载次数: 16)

2006-6-13 09:28 上传

点击文件名下载附件
[原创] 0秒,快速模糊搜索

为什么我的表格筛选速度极慢,且会死掉,请帮忙解决

ldy888

帮你把问题代码找出来了,好象少了什么关闭语句.

打开文件没问题,每运行此代码一次后,内存占用增加 150多M

此时任何操作都很慢,双击单元格都要4秒才有反应.

运行多几次会死机.关闭文件后正常

这方面水平不高,期待高手解答.

Sub love()
Dim sht As Worksheet
Sheets("生成表").Range("A5:S500").Clear
For Each sht In Worksheets
If sht.Name <> "生成表" Then
Set jmyb = CreateObject("ADODB.Connection")
jmyb.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
For i = 2 To [ah200].End(xlUp).Row
Sql = "select * from [" & sht.Name & "$] where 合并='" & Range("ah" & i) & "'"
Set lsy = jmyb.Execute(Sql)
Sheets("生成表").[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset lsy, , 22
Next i
Set lsy = Nothing: Set jmyb = Nothing
End If
Next
End Sub

jlpdgy004

我把数据拖到第256列

只有30行数据(A表)

其他的都没有动就花了9秒多了

爱歌学习

Sub love() Dim sht As Worksheet oldtime = Timer Set jmyb = CreateObject("ADODB.Connection") '连接字符串不要放在循环内 jmyb.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName Sheets("生成表").Range("A5:S500").Clear sql1 = "" For i = 2 To [ah200].End(xlUp).Row '生成查询条件字符串 sql1 = sql1 & " 合并='" & Range("ah" & i) & "' or" Next sql1 = Left(sql1, Len(sql1) - 2) '去掉末尾的 or For Each sht In Worksheets If sht.Name <> "生成表" Then Sql = "select * from [" & sht.Name & "$] where " & sql1 Set lsy = jmyb.Execute(Sql) Sheets("生成表").[a65536].End(xlUp).Offset(1, 0).CopyFromRecordset lsy End If Next jmyb.Close Set lsy = Nothing: Set jmyb = Nothing MsgBox "用时 " & Timer - oldtime & " 秒" End Sub 用时 0.56 秒。

wangpin

OKJt6Pbc.rar (68.92 KB, 下载次数: 15)

2006-6-14 12:24 上传

点击文件名下载附件
[原创] 0秒,快速模糊搜索

我把代码复制上去,但是说编辑语法错误. 怎么回事