- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
 CARGOTEST.rar (111.32 KB)
各位大大好：
版主大大提供的全文檢索
功能實在太好用了。
但是小弟有一問題一直無法
突破，想請各位大大幫小弟如何
克服此項問題。
小弟是直接由MDB資料庫取出
大批資料，但是在TEXTBOX1內
輸入資料時，會出現
執行階段錯誤13
型態不符合
Private Sub TextBox1_Change()
Dim Ar()
Dim E As Range
Dim mSht1 As Worksheet
Set mSht1 = Worksheets("TEST")
If TextBox1 <> "" Then
ReDim Ar(0)
'For Each E In mSht1.UsedRange.Columns(1).Cells
For Each E In mSht1.Range("a1", mSht1.Range("a1:d900")).Columns(1).Cells '測試到 800 的位置是 OK
If E Like "*" & TextBox1 & "*" Then
Ar(UBound(Ar)) = E.Resize(, 4).Value
ReDim Preserve Ar(UBound(Ar) + 1)
End If
Next
If UBound(Ar) > 0 Then
ReDim Preserve Ar(UBound(Ar) - 1)
Ar = Application.Transpose(Application.Transpose(Ar)) '執行階段錯誤：13 型態不符合
ListBox1.List = Ar
ListBox1.Visible = True
Else
Label1.Caption = ""
ListBox1.Visible = False
End If
Else
Label1.Caption = ""
ListBox1.Visible = False
End If
End Sub
謝謝各位大大！ |
|
發表於 2012-5-31 19:23
| 
