VBA功能等同于“IN”。或“AMONG”？ [英] VBA functional equivalent of "IN" or "AMONG"?
问题描述
我想避免编写一长串IF ...或IF ...语句。
我可以做一个Select Case，但那只会让我的情况是
a单值。
我正在寻找的是
如果thisVal OR thatVal AMONG（X，Y，Z）....
主要是在下一个地方获取允许值家伙可以
轻松查看/更新它们。
不知何故Enum浮现在脑海中......
-
PeteCresswell
I''d like to avoid coding a long set of IF... OR IF...statements.
I can do a Select Case, but that would only let me case out on
a single value.
What I''m looking for is something like
If thisVal OR thatVal AMONG("X", "Y", "Z")....
The main thing is getting the allowed values in one place where the next guy can
see/update them easily.
Somehow Enum comes to mind...
--
PeteCresswell
推荐答案
RE /
我想避免编码一长串IF。 ..或者如果......陈述。
I''d like to avoid coding a long set of IF... OR IF...statements.
实际陈述是：
------------ ------------------------------------
if！Val_MSD =" COP" _
Or！Val_MSD =" GO" _
Or！Val_MSD =" ETM" _
Or！Val_MSD =" INS" _
Or！Val_MSD =" MISC" _
Or！Val_MSD =" PRE-RE" _
Or！Val_MSD =" REV" _
Or！Val_MLD =" COP" _
Or！Val_MLD =" GO" _
Or！Val_MLD =" ETM" _
Or！Val_MLD =" INS" _
Or！Val_MLD =" MISC" _
Or！Val_MLD =" PRE-RE" _
Or！Val_MLD =" REV"然后
theReason ="当FIMA2值=''BOND''和Fimma-1值之间
（''COP''，''GO''，' 'ETM''，''INS''，''MISC''，''PRE-RE''，''REV''）差异还可以。
----- -------------------------------------------
-
PeteCresswell
The actual statements are:
------------------------------------------------
If !Val_MSD = "COP" _
Or !Val_MSD = "GO" _
Or !Val_MSD = "ETM" _
Or !Val_MSD = "INS" _
Or !Val_MSD = "MISC" _
Or !Val_MSD = "PRE-RE" _
Or !Val_MSD = "REV" _
Or !Val_MLD = "COP" _
Or !Val_MLD = "GO" _
Or !Val_MLD = "ETM" _
Or !Val_MLD = "INS" _
Or !Val_MLD = "MISC" _
Or !Val_MLD = "PRE-RE" _
Or !Val_MLD = "REV" Then
theReason = "When FIMA2 value=''BOND'' and Fimma-1 value among
(''COP'', ''GO'', ''ETM'', ''INS'', ''MISC'', ''PRE-RE'', ''REV'') difference is OK."
------------------------------------------------
--
PeteCresswell
（Pete Cresswell）写道：
(Pete Cresswell) wrote:
我想要避免编写一长串IF ...或IF ...语句。
我可以做一个Select Case，但这只会让我说出单个值。
我正在寻找的东西就像是
如果这个或者那个房子（X，Y，Z）...... 。
I''d like to avoid coding a long set of IF... OR IF...statements.
I can do a Select Case, but that would only let me case out on
a single value.
What I''m looking for is something like
If thisVal OR thatVal AMONG("X", "Y", "Z")....
案例X，Y，Z和Z。是Select Case块中的有效语句。
Case "X", "Y", "Z" is a valid statement in a Select Case block.
"（Pete Cresswell）"写道：
"(Pete Cresswell)" wrote:
我想避免编写一长串IF ...或IF ...语句。
我可以选择案例，但这只会让我说出一个单一的价值。
我正在寻找的东西就像是
如果这个或者是真的那么（X，Y，Z）....
主要的是在一个地方获得允许的值，下一个人可以看到/很容易更新它们。
以某种方式记住了Enum ...
-
PeteCresswell
I''d like to avoid coding a long set of IF... OR IF...statements.
I can do a Select Case, but that would only let me case out on
a single value.
What I''m looking for is something like
If thisVal OR thatVal AMONG("X", "Y", "Z")....
The main thing is getting the allowed values in one place where the next guy can
see/update them easily.
Somehow Enum comes to mind...
--
PeteCresswell
有时我可能做这样的事情
Dim s as string
Dim sSearch as string
s =" * Mike * Sam * Joe *"
sSearch =" Joe"
如果instr（s，" *"& strSearch&" *"）> 0然后...
我正在使用97 tho。
Sometimes I may do something like this
Dim s as string
Dim sSearch as string
s = "*Mike*Sam*Joe*"
sSearch = "Joe"
If instr(s,"*" & strSearch & "*") > 0 then...
I''m using 97 tho.
这篇关于VBA功能等同于“IN”。或“AMONG”？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
