关于Evaluate函数的应用问题

清风寒雪

Evaluate能否直接用数组表示转化为逻辑表达式？我怎么操作都显示类型不匹配，或者怎么才能达到用一个字符串表达式转为逻辑表达式？比如arr(1)="张三"，arr(1)="测试"，把文本字符串“arr(i)="测试"”转为可执行的逻辑表达式

1. Sub 测试()
   
2. Dim arr(1 To 2)
   
3. arr(1) = 1
   
4. arr(2) = 0
   
5. 
   
6. 条件表达式 = "=arr(i)"
   
7. For i = 1 To 2
   
8.     If Evaluate(条件表达式) >= 1 Then
   
9.        MsgBox "条件正确"
   
10.     Else
    
11.        MsgBox "条件错误"
    
12.     End If
    
13. Next i
    
14. End Sub

复制代码

DevilW

Evaluate 管你要明细，可你给它地址，它能理你吗

清风寒雪

DevilW 发表于 2022-11-23 17:49
Evaluate 管你要明细，可你给它地址，它能理你吗

有什么方法能用Evaluate直接使用地址吗？

MOY838840554

代码这样写有什么意义

清风寒雪

MOY838840554 发表于 2022-11-23 20:34
代码这样写有什么意义

好吧，其实我是IF嵌套写的太多层看的眼花，所以想用一个数组存放字符串表达式，之后Evaluate函数转成逻辑表达式用循环进行判断，这样子几句代码就写完了，看得也不眼花，修改也比较方便。

ssfx1982

清风寒雪 发表于 2022-11-23 21:58
好吧，其实我是IF嵌套写的太多层看的眼花，所以想用一个数组存放字符串表达式，之后Evaluate函数转成逻辑 ...

select case 。。end select 替代if嵌套即可。