[問題] 想要把IIF的語法改良其他語法
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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
10/08 18:50, 1F
→
10/08 18:52,
2年前
, 2F
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
10/09 03:52, 3F
→
10/09 04:00,
2年前
, 4F
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
10/09 17:49, 5F
→
10/09 17:50,
2年前
, 6F
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
10/09 17:53, 9F
→
10/09 17:55,
2年前
, 10F
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
10/11 21:01, 11F
→
10/11 21:03,
2年前
, 12F
10/11 21:03, 12F
→
10/11 21:04,
2年前
, 13F
10/11 21:04, 13F
→
10/12 15:20,
2年前
, 14F
10/12 15:20, 14F
→
10/12 15:25,
2年前
, 15F
10/12 15:25, 15F
→
10/13 17:33,
2年前
, 16F
10/13 17:33, 16F