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

　暱稱: 新鮮貨幽杉

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

28^#

發表於 2013-5-6 10:28 | 只看該作者

回復 18# Hsieh
H大大再次麻煩您

Sub 灌入資料()
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary") '創建字典物件
With Sheets("扣款")
Name = "GH" '查詢關鍵字
For Each a In .Range(.[A2], .[A65535].End(xlUp))
mystr = Format(a, "yyyymmdd hhmmss") & a.Offset(, 8)
d(mystr) = a.Offset(, 8)
Next
End With
For Each sName In Array("1", "2", "3")
With Sheets(sName) '以上工作表區段
g = .[A65536].End(xlUp).Row '以上工作表的資料尾
For i = 2 To g
mystr = Format(.Cells(i, 1), "yyyymmdd hhmmss") & .Cells(i, 9) '不重複準則字串
If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '字典中沒出現過I欄且包含查詢關鍵字
Sheets("車友會扣款").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value '將A:I欄寫入Sheets("扣款")
d(mystr) = .Cells(i, 9).Value '將I欄根A欄內容存入字典
End If
Next i
End With '結束以上工作表區段敘述
Next
Sheets("扣款").Select
Application.ScreenUpdating = True '開啟顯示
MsgBox "查詢完成"
End Sub

複製代碼

如果還要再新增偵測欄位是否要修改很多地方= =?
因為現在筆數越來越多  時間我已經增加至  yyyymmdd hhmmss
但還是會有重複的可能.....  想再增加 D跟H攔去字典內比對
我自己測試將這兩個欄位進去  但沒啥反應= = " 光修正D跟H攔  他還是認為那是一樣的..((代表條件沒新增到字典內))

如果可以請幫我修正兩個版本...  一個是增加 D跟 H 欄位
一個是全部資料比對 A到I攔都寫入字典  .....感謝各位大大!!

請各位大大幫忙解答@@"

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

　暱稱: 新鮮貨幽杉

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

27^#

發表於 2013-5-6 10:04 | 只看該作者

回復 26# Hsieh
回復 25# GBKEE

謝謝兩位大大回復^^ 感謝您們~!

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

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兔年全勤獎章

26^#

發表於 2013-5-3 21:35 | 只看該作者

回復 22# die78325

Dim sName As Worksheet
For Each sName In Sheets(Array("統一", "其他工作表"))

學海無涯_不恥下問

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

25^#

發表於 2013-5-3 20:55 | 只看該作者

回復 24# stillfish00
22# For Each 的控制變數必須是Variant或Object
Dim sName As String 改成正確的宣告 Dim sName As Variant

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

24^#

發表於 2013-5-3 15:29 | 只看該作者

回復 22# die78325
阿阿 , 抱歉!
沒實際去跑沒發現這錯誤
把宣告的As String拿掉應該就可以了

　暱稱: 新鮮貨幽杉

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

23^#

發表於 2013-5-3 14:34 | 只看該作者

回復 21# stillfish00

我把變數定義刪除 (Dim.......)

選擇sheets( 的 " 刪除

就可以了感謝大大給的靈感
.

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

　暱稱: 新鮮貨幽杉

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

22^#

發表於 2013-5-3 14:23 | 只看該作者

回復 21# stillfish00

它顯示編譯錯誤

For Each 的控制變數必須是Variant或Object

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

21^#

發表於 2013-5-3 13:43 | 只看該作者

回復 20# die78325
這樣嗎?

Dim sName As String
For Each sName In Array("統一", "其他工作表")
With Sheets(sName) '統一工作表區段

'中略

End With '結束統一工作表區段敘述
Next

　暱稱: 新鮮貨幽杉

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

20^#

發表於 2013-5-3 11:43 | 只看該作者

回復 18# Hsieh

以下這段  如何修改成要讓他跑兩個或多個工作表區段
這邊解釋一下就意思是我收尋 "  號角  "  他會收尋
統一工作表區段  跟 XX工作表區段  XX工作表區段我目前是複製以下區段再更改With Sheets("統一")   統一的部分  但是程式碼便很多應該有更好的辦法吧

With Sheets("統一")  '統一工作表區段
G = .[A65536].End(xlUp).Row '統一工作表的資料尾
For i = 2 To G
mystr = Format(.Cells(i, 1), "yyyymmdd hhmm") & .Cells(i, 9) '不重複準則字串
If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '字典中沒出現過I欄且包含查詢關鍵字
Sheets("查詢處理區").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '將A:I欄寫入Sheets("查詢處理區")
   d(mystr) = .Cells(i, 9).Value  '將I欄根A欄內容存入字典
End If
Next i
End With '結束統一工作表區段敘述

自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com