求助，如何在vba中a同时满足两个条件？

findvba

求助！
比如说 function aaa（x = boolean）if x满足1-10之间取值同时a不能等于1,3,5 then aaa= true
否则就是false


x同时满足两个条件怎么写？

010203400

最好上传一个附件，这样便于判断。

010203400

也可以用and，比如：IF （条件1 and 条件2） Then

findvba

我试了很久但是不行

我尝试了一个简单的假设，比如说x要同时满足1-5区间但是不等于4这个条件

function aaa(x as boolean）
if (1<=x<=5 and x<>4 ) then aaa = true
else
aaa = false
end if

但是我试验了很久，如果在function里面输入4，依旧会显示true。不知道应该怎么解决这个事情。

327718098

findvba 发表于 2017-5-17 13:22
我试了很久但是不行

我尝试了一个简单的假设，比如说x要同时满足1-5区间但是不等于4这个条件

if 1<=x and x<=5 and x<>4  then
aaa=true
当if只判断真值时，真值结果才可以与判断条件在同行，否则要隔行

france723

findvba 发表于 2017-5-17 13:22
我试了很久但是不行

我尝试了一个简单的假设，比如说x要同时满足1-5区间但是不等于4这个条件

要么写成

1. If x >= 1 And x <= 5 And x <> 4 Then
   
2.     b = True
   
3. Else
   
4.     b = False
   
5. End If

复制代码

要么写成

1. If x >= 1 Then
   
2.     If x <= 5 Then
   
3.         If x <> 4 Then
   
4.             b = True
   
5.         End If
   
6.     End If
   
7. End If

复制代码

pengyx

也可以写成
if x>=1 then a1=1
if x<=5 then a1=a1+1
if x<>4 then a1=a1+1
if a1=3 then
b=true
else
b=false
end if

findvba

france723 发表于 2017-5-17 14:24
要么写成要么写成

感谢老师！但是我试了两种类型都不能得出最后true的结果。
一者为0，后一个只能得出false。

france723

findvba 发表于 2017-5-17 16:28
感谢老师！但是我试了两种类型都不能得出最后true的结果。
一者为0，后一个只能得出false。

你定义开关变量x ( x as boolean), 结果后面 b= ture,b= false.
x,b你弄反了

findvba

france723 发表于 2017-5-17 16:41
你定义开关变量x ( x as boolean), 结果后面 b= ture,b= false.
x,b你弄反了

b是function name， x是变量
所以结论不应该是 b= true or b=false？