(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1633676649.A.560.html 陣列的話 我的程度還不行 不知道怎麼改 這段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 我是改成 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