[發問] 多筆EXCEL搜尋的用法-延伸問題

本帖最後由 mark15jill 於 2011-6-8 15:59 編輯

之前有在此區發問過多筆excel搜尋
承蒙各位大大的礁島有得到達到答案\
可是現在產生一個問題
因當初範例中的地址只有台灣和美國
可是今天如果地址是台灣台北或者是美國紐約的話
程式會無法判斷出來進而全部空白
不知道是否有方式可以解決

以下是那篇的程式碼

Private Sub 查詢()
Dim Text$, File$, TheSh As Object, Sh As Worksheet, Rng As Range, RngAddress$
With ThisWorkbook '程式碼置於查詢總表.xls
Set TheSh = .Sheets("查詢")
TheSh.UsedRange.Offset(2).Clear
File = Dir(.Path & "\*年度*.xls")
Do While File <> ""
With Workbooks.Open(.Path & "\" & File)
For Each Sh In .Sheets
Set Rng = Sh.Range("F:F").Find(TheSh.TextBox1, LookAt:=xlWhole)
If Not Rng Is Nothing Then
RngAddress = Rng.Address
With TheSh.Range("C" & Rows.Count).End(xlUp)
.Offset(1, -2) = File
.Offset(1, -1) = Sh.Name
End With
End If
Do While Not Rng Is Nothing
With TheSh.Range("C" & Rows.Count).End(xlUp)
.Offset(1).Resize(1, 26) = Sh.Range(Sh.Cells(Rng.Row, "A"), Sh.Cells(Rng.Row, "Z")).Value
End With
Set Rng = Sh.Range("F:F").FindNext(Rng)
If RngAddress = Rng.Address Then Exit Do
Loop
Next
.Close 0
End With
File = Dir
Loop
End With
End Sub

複製代碼

ps 再延伸一個問題
如果今天要用option控制項去控制他所要搜尋的欄位
如程式的搜尋欄位預設 F 欄位
但是今天如果要改搜尋 D欄位
那麼 OPTION控制項這部分要怎設定
有試著設定但是會變成無法判讀(找不出來)

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2011-6-8 16:37 | 顯示全部帖子

回復 2# Hsieh

版大
我把那行程式+在

            For Each Sh In .Sheets

                  ' 取消 Set Rng = Sh.Range("F:F").Find(TheSh.TextBox1, LookAt:=xlWhole)

                  Set Rng = Sh.Range("e:e").Find(TheSh.TextBox1)  '-版大的程式

                  If Not Rng Is Nothing Then

可是結果還是一樣空白

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2011-6-9 08:05 | 顯示全部帖子

回復 4# luhpro

抱歉是我的疏忽><!!
因為有試著用if optionbutton1.value = 1 then 的方式下去但是會造成程式無法判讀的問題
已經附檔這是原始的版本..

查詢比對-延伸問題.rar (33.49 KB)

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2011-6-9 09:03 | 顯示全部帖子

本帖最後由 mark15jill 於 2011-6-9 11:21 編輯

回復 6# Hsieh

版大謝謝可以用了>< 感恩感恩
新增選項的問題解決了~~
但是還是不懂這行的意思...
nd = IIf(.OptionButton1 = True, 2, IIf(.OptionButton2 = True, 3, IIf(.OptionButton3 = True, 4, IIf(.OptionButton4 = True, 5, IIf(.OptionButton4 = True, 6, 16)))))
隱約知道說 true,2 是第二欄位可是為什麼要那樣寫?? 不懂不董
如 true,6,16 是第16個欄位但是 6是甚麼意思

TOP