(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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語法
如果要精簡加未來好寫好擴充
請問要怎麼改寫