返回列表 上一主題 發帖

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

回復 20# die78325
這樣嗎?

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

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

TOP

回復 21# stillfish00


    它顯示編譯錯誤

For Each 的控制變數必須是Variant或Object
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

回復 21# stillfish00


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

選擇sheets( 的  "  刪除  

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

TOP

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

TOP

回復 24# stillfish00
22#  For Each 的控制變數必須是Variant或Object
Dim sName As String  改成正確的宣告  Dim sName As Variant
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 22# die78325

Dim sName As Worksheet
For Each sName In Sheets(Array("統一", "其他工作表"))
學海無涯_不恥下問

TOP

回復 26# Hsieh
回復 25# GBKEE

    謝謝兩位大大回復^^  感謝您們~!
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

回復 18# Hsieh
H大大 再次麻煩您
  1. Sub 灌入資料()
  2. Application.ScreenUpdating = False
  3. Set d = CreateObject("Scripting.Dictionary")  '創建字典物件
  4. With Sheets("扣款")
  5. Name = "GH" '查詢關鍵字
  6. For Each a In .Range(.[A2], .[A65535].End(xlUp))
  7. mystr = Format(a, "yyyymmdd hhmmss") & a.Offset(, 8)
  8. d(mystr) = a.Offset(, 8)
  9. Next
  10. End With
  11. For Each sName In Array("1", "2", "3")

  12.     With Sheets(sName)  '以上工作表區段
  13.     g = .[A65536].End(xlUp).Row   '以上工作表的資料尾
  14.     For i = 2 To g
  15.     mystr = Format(.Cells(i, 1), "yyyymmdd hhmmss") & .Cells(i, 9) '不重複準則字串
  16.         If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '字典中沒出現過I欄且包含查詢關鍵字
  17.         Sheets("車友會扣款").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '將A:I欄寫入Sheets("扣款")
  18.          d(mystr) = .Cells(i, 9).Value  '將I欄根A欄內容存入字典
  19.         End If
  20.     Next i
  21.     End With '結束以上工作表區段敘述
  22. Next
  23. Sheets("扣款").Select
  24. Application.ScreenUpdating = True  '開啟顯示
  25. MsgBox "查詢完成"
  26. End Sub
複製代碼
如果還要再新增偵測欄位 是否要修改很多地方= =?
因為現在筆數越來越多  時間我已經增加至  yyyymmdd hhmmss
但還是會有重複的可能.....  想再增加 D跟H攔去字典內比對   
我自己測試將這兩個欄位進去  但沒啥反應= = " 光修正D跟H攔  他還是認為那是一樣的..((代表條件沒新增到字典內))

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

請各位大大幫忙解答@@"
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題