PTT數位生活區 / Office

[問題] 想要把IIF的語法改良其他語法

看板Office作者 (一 身 是 宅)時間2年前 (2021/10/08 15:04), 2年前編輯推噓2(2推 0噓 14→)
留言16則, 3人參與, 2年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:office 版本:2019 其中一段 功能是 我有N個特定產品名稱 產品甲～產品庚 ...... Range("A2").Select For i = 1 To 30 chkV1 = ActiveCell.Offset(0, 1).Value ckVF = IIf(InStr(1, chkV1, "產品甲", 1) <> 0, "產品甲", _ IIf(InStr(1, chkV1, "產品乙", 1) <> 0, "產品乙", _ IIf(InStr(1, chkV1, "產品丙", 1) <> 0, "產品丙", _ IIf(InStr(1, chkV1, "產品丁", 1) <> 0, "產品丁", _ IIf(InStr(1, chkV1, "產品戊", 1) <> 0, "產品戊", _ IIf(InStr(1, chkV1, "產品己", 1) <> 0, "產品己", _ IIf(InStr(1, chkV1, "產品庚", 1) <> 0, "產品庚", _ ""))))))) If ckVF = "" Then ...... 這種是前一個人寫的 裡面很多用這種IIF語法 如果要精簡加未來好寫好擴充 請問要怎麼改寫 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.114.65 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1633676649.A.560.html
→
10/08 18:50, 2年前 , 1F
使用Array 跟 Filter
10/08 18:50, 1F
→
10/08 18:52, 2年前 , 2F
網路上的範本: https://reurl.cc/2oLAlO
10/08 18:52, 2F
陣列的話 我的程度還不行 不知道怎麼改 這段VBA的用意是這樣 我有一份產品清單 要抓出 產品甲～產品庚 在一堆明細上 抓一欄品名資料 品名欄資料為 "美味的產品乙 100G" "來自大自然天然產品丙 300G" "A牌產品辛五入裝" 而要把重點三個字抓下來判斷 例如跑到這筆資料 "來自大自然天然產品丙 300G" 產品甲 = 0 產品乙 = 0 產品丙 <>0 所以這一筆資料 就是產品丙 ※ 編輯: hmsboy (220.142.41.41 臺灣), 10/08/2021 22:09:03
推
10/09 03:52, 2年前 , 3F
用陣列改的話就 https://imgur.com/zo4UUoN
10/09 03:52, 3F
→
10/09 04:00, 2年前 , 4F
抱歉改成這個 https://imgur.com/zMSZvsC
10/09 04:00, 4F
謝謝 我的程度 有實作範本的話 就能改下去 我都視為模組 把舊語法套用上去 看得懂 從頭寫寫不出來 我試看看 因為前一個人很愛用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
推
10/09 17:49, 2年前 , 5F
我po的也是google關鍵字後修改一下來的
10/09 17:49, 5F
→
10/09 17:50, 2年前 , 6F
If ckVF = "" Then ..... 跑看看和原本的結果會不會一樣
10/09 17:50, 6F
→
10/09 17:51, 2年前 , 7F
就知道會不會出錯了
10/09 17:51, 7F
→
10/09 17:52, 2年前 , 8F
最後的部份因為你有工作表有放產品清單了
10/09 17:52, 8F
→
10/09 17:53, 2年前 , 9F
最簡單的就是把arrWords = Array("產品甲", "產品乙", "
10/09 17:53, 9F
→
10/09 17:55, 2年前 , 10F
改成類似 arrWords = Worksheets("字串區").Range("a:a")
10/09 17:55, 10F
我是改成 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
→
10/11 21:01, 2年前 , 11F
用Worksheets("字串區").Range("F2:F8") 有點違反你的
10/11 21:01, 11F
→
10/11 21:03, 2年前 , 12F
好擴充要求 如果新增產品到F9之後還要到VBA改
10/11 21:03, 12F
→
10/11 21:04, 2年前 , 13F
陣列沒有很難只是名字對新手來說不常見 google就有
10/11 21:04, 13F
→
10/12 15:20, 2年前 , 14F
對喔 Range 我原本的方法才能抓資料抓下去
10/12 15:20, 14F
→
10/12 15:25, 2年前 , 15F
再請教一下 Range("a:a") 不包含 A1標題 要如何寫
10/12 15:25, 15F
→
10/13 17:33, 2年前 , 16F
Range("A2:A" & Rows.Count)
10/13 17:33, 16F
‣ 更多 hmsboy 的文章
文章代碼(AID): #1XN-rfLW (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 hmsboy 的文章
文章代碼(AID): #1XN-rfLW (Office)