实现在VBA代码中使用In运算符

红尘如烟

在查询中我们可以使用In运算符来构造表达式,如
WHERE [字段1] In (1,2,3,4)
但是在VBA代码中却没有办法像这样用
表达式结果=变量A In (1,2,3,4)
其实直接这样用是不行,但并不是说就完全不能,我们可以通过EVal函数来变通实现
表达式结果=EVal(变量A & "In(1,2,3,4)")

zhu320211

layaman_999 发表于 2012-6-4 18:49
示例：
Eval ("3 in (1,2,3) ") 返回 true
Eval ("4 in (1,2,3)") 返回 false

大侠，这个可以是文字吗？试了一下，怎么换成文字就不行了

layaman_999

zhu320211 发表于 2012-6-6 18:54
大侠，这个可以是文字吗？试了一下，怎么换成文字就不行了

字符串：
Eval ("'A' in ('A','B','C') ") 返回 true
Eval ("'D' in ('A','B','C') ") 返回 false
注意加''
^_^

zhu320211

还是不行啊，如果用变量要加引号吗

layaman_999

示例：
Eval ("3 in (1,2,3) ") 返回 true
Eval ("4 in (1,2,3)") 返回 false
============
dim I
I=(表达式)
if Eval ( i & " in (1,2,3)") then
  msgbox "i是1,2,3中的其中一个数"
else
  msgbox "i不是1,2,3中的其中一个数"
end if

zhu320211

这个版主能做个示例吗？

ljp518

{:soso_e163:}

layaman_999

Eval 只是给出一个新方法
建议要循环对象请用：
For Each element In group
=====
vba中没有in逻辑符合
多看看循环语句来判断，你会有收获的：
Do...Loop
For...Next

zhu320211

layaman_999 发表于 2012-6-4 18:49
示例：
Eval ("3 in (1,2,3) ") 返回 true
Eval ("4 in (1,2,3)") 返回 false

大侠，in后面可以是集合的名称吗，集合的名称可以使用变量，如果可以怎样写  

michael100

学习