此收尋vba增加萬用字元 - Excel程式區

　暱稱: 新鮮貨幽杉

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

9^# 跳轉到 »

發表於 2012-11-20 10:18 | 只看該作者

回復 6# kimbal

謝謝大大又教我了一招^^~~ 感謝您!!

但我要的意思是 .....假設A工作頁有100筆資料有20筆名子包括張的(A頁是會陸續新增資料) 過幾天可能變25筆
B頁是固定收尋頁(收尋"張"的) 假設B頁是已經有 15筆"張"的我按下收尋後他會依循A頁去尋找 "張"的但找到張要貼過來時要去看B頁有沒有這一筆了有的話就不貼繼續往下找沒有就貼入B頁最下列

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

8^#

發表於 2012-11-20 10:01 | 只看該作者

回復 7# Hsieh

沒有 end with
大大可以順便解釋一下嗎有些代碼不太了解甚麼意思....感謝!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-11-19 23:12 | 只看該作者

回復 5# die78325

Sub 統一查詢功能()
'關閉顯示
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set Name = Sheets("查詢處理區").Range("M3")
With Sheets("統一")
G = .[A65536].End(xlUp).Row
For i = 2 To G
If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(.Cells(i, 9).Value)) Then
Sheets(1).[A65536].End(xlUp).Offset(1).Resize(, 9) = Cells(i, 1).Resize(, 9).Value
d(.Cells(i, 9).Value) = .Cells(i, 9).Value
End If
Next i
Sheets("查詢處理區").Select
Application.ScreenUpdating = True '開啟顯示
MsgBox "統一查詢完成"
End Sub

複製代碼

學海無涯_不恥下問

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

6^#

發表於 2012-11-19 22:24 | 只看該作者

本帖最後由 kimbal 於 2012-11-19 22:28 編輯

回復 5# die78325

你的意思是多於一個條件?
如 name="張", name2="明"
找出來的可以是 "張小明" , "張大明", "明小張" 和 "明大張"

If (Sheets("統一").Cells(i, 9) Like "*" & Name & "*") and (Sheets("統一").Cells(i, 9) Like "*" & Name2 & "*") Then
...
end if

複製代碼

如果有先後次序的話, (即找出來的可以是 "張小明" 和 "張大明",沒有 "明小張" 和 "明大張")

If (Sheets("統一").Cells(i, 9) Like "*" & Name &"*" & Name2 & "*") Then
...
end if

複製代碼

或者再簡單一點只要把NAME設定為 "張*明", 就可以得出上面第2部份的效果

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

5^#

發表於 2012-11-19 15:35 | 只看該作者

回復 4# Hsieh

大大那如果我想要用這程式然後他跑的過程中再加一個偵測如果已經有相同的就不貼了
該怎麼修改呢感謝大大.....研究好久了....

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-11-19 15:10 | 只看該作者

回復 3# die78325

Instr函數就是傳回某字元位於字串中的位置(與工作表函數FIND相同)
若字串中不包含搜尋字元則傳回0
與下列LIKE運算得到相同效果
If Sheets("統一").Cells(i, 9) Like "*" & Name & "*" Then

學海無涯_不恥下問

TOP

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

3^#

發表於 2012-11-19 15:03 | 只看該作者

回復 2# Hsieh

大大改這條不是我要的....
我目前本來就可以收尋全名只是不能利用其中一個字來去收尋..... 打張就要顯示有關張的都要出來
還是感謝大大熱心回應我請再幫我想想辦法~~~感恩不盡!!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-11-19 14:39 | 只看該作者

回復 1# die78325

If InStr(Sheets("統一").Cells(i, 9), Name) > 0 Then

學海無涯_不恥下問

TOP

[發問] 此收尋vba增加萬用字元

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]