[问题] 想要把IIF的语法改良其他语法

楼主: hmsboy (一 身 是 å®…)   2021-10-08 15:04:06
(若是和其他不同软件互动之问题 请记得一并填写)
软件: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语法
如果要精简加未来好写好扩充
请问要怎么改写
作者: Catbert (宅男)   2021-10-08 18:50:00
使用Array 跟 Filter网络上的范本: https://reurl.cc/2oLAlO
作者: by135tw (monkeytw)   2021-10-09 03:52:00
用阵列改的话就 https://imgur.com/zo4UUoN抱歉改成这个 https://imgur.com/zMSZvsC
楼主: hmsboy (一 身 是 å®…)   2021-10-12 15:20:00
对喔 Range 我原本的方法才能抓资料抓下去再请教一下 Range("a:a") 不包含 A1标题 要如何写
作者: by135tw (monkeytw)   2021-10-13 17:33:00
Range("A2:A" & Rows.Count)

Links booklink

Contact Us: admin [ a t ] ucptt.com