→ Catbert: 使用Array 跟 Filter 10/08 18:50
陣列的話 我的程度還不行 不知道怎麼改
這段VBA的用意是這樣
我有一份產品清單 要抓出 產品甲~產品庚
在一堆明細上 抓一欄品名資料
品名欄資料為 "美味的產品乙 100G" "來自大自然天然產品丙 300G"
"A牌產品辛五入裝"
而要把重點三個字抓下來判斷
例如跑到這筆資料 "來自大自然天然產品丙 300G"
產品甲 = 0
產品乙 = 0
產品丙 <>0 所以這一筆資料 就是產品丙
※ 編輯: hmsboy (220.142.41.41 臺灣), 10/08/2021 22:09:03
謝謝 我的程度 有實作範本的話 就能改下去
我都視為模組 把舊語法套用上去 看得懂 從頭寫寫不出來
我試看看
因為前一個人很愛用IIF 布林運算
全都部分寫一長串
※ 編輯: hmsboy (59.120.114.65 臺灣), 10/09/2021 10:18:06
有一行 我改成
For Each aWord In arrWords
If InStr(chkV1, aWord) > 0 Then
ckVF = aWord
Exit For
End If
Next
因為 後面還有
If ckVF = "" Then .....
如果被排除資料 會刪除
這樣感應該沒錯吧?
另外這部份
arrWords = Array("產品甲", "產品乙", "產品丙")
抓取產品名單 以便將來名單容易修改
ckP(i) = Worksheets("字串區").Cells(i + 1, 6).String
如果要放進去 要怎麼放
※ 編輯: hmsboy (59.120.114.65 臺灣), 10/09/2021 11:14:48
推 by135tw: 我po的也是google關鍵字後修改一下來的 10/09 17:49
→ by135tw: If ckVF = "" Then ..... 跑看看和原本的結果會不會一樣 10/09 17:50
→ by135tw: 就知道會不會出錯了 10/09 17:51
→ by135tw: 最後的部份因為你有工作表有放產品清單了 10/09 17:52
→ by135tw: 最簡單的就是把arrWords = Array("產品甲", "產品乙", " 10/09 17:53
→ by135tw: 改成類似 arrWords = Worksheets("字串區").Range("a:a") 10/09 17:55
我是改成
For Each aWord In Worksheets("字串區").Range("F2:F8")
我練習之後
對陣列的理解
Sub test()
Dim arrWords As Variant, aWord As Variant
arrWords = Array("產品甲", "產品乙", "產品丙")
For Each aWord In arrWords
MsgBox (aWord)
Next aWord
End Sub
這樣的架構應該沒錯吧
※ 編輯: hmsboy (59.120.114.65 臺灣), 10/11/2021 17:07:08
※ 編輯: hmsboy (59.120.114.65 臺灣), 10/11/2021 17:41:21
→ by135tw: 用Worksheets("字串區").Range("F2:F8") 有點違反你的 10/11 21:01
→ by135tw: 好擴充要求 如果新增產品到F9之後還要到VBA改 10/11 21:03
→ by135tw: 陣列沒有很難只是名字對新手來說不常見 google就有 10/11 21:04
→ hmsboy: 對喔 Range 我原本的方法才能抓資料抓下去 10/12 15:20
→ hmsboy: 再請教一下 Range("a:a") 不包含 A1標題 要如何寫 10/12 15:25
→ by135tw: Range("A2:A" & Rows.Count) 10/13 17:33