VBA中有NotIn(“a”,“B”)函数吗?

public function IsInSet(byval value as variant, paramarray theset() as variant) as boolean
  dim i as long 

  for i=lbound(theset) to ubound(theset)
    if value = theset(i) then
      isinset = true
      exit function
    end if
  next
end function

用法: If not IsInSet(val, "A", "B", "C") then ...

public function IsInSet(byval value as variant, theset as variant) as boolean
  dim i as long 

  for i=lbound(theset) to ubound(theset)
    if value = theset(i) then
      isinset = true
      exit function
    end if
  next  
end function

用法: If not IsInSet(val, array("A", "B", "C")) then ...

怎么样:

If Instr("ABC",InputFld)=0 Then

Eval()应该允许您执行类似的操作。此表达式返回-1(True):

Debug.Print Eval("""g"" Not In (""a"",""b"",""c"")")

不过,我不认为这很优雅。

考虑使用Like操作符。此表达式返回True:

Debug.Print Not "g" Like "[abc]"