比较符可以用变量来表述吗？（高难度）

2479028489

代码如下：
因为signa 有5个值，我不想写5次 if ,   想用  if a  signa  b  then  一次表达为， if a  =  b  then， if a  >  b  then,  if a  <  b  then等等。
但是 if a  signa  b  then 语法不通过，请问怎么写？

Sub test()
signa = "="
'signa = "<"
'signa = ">"
'signa = "<="
'signa = ">="

if a  signa  b  then   ’正确的语句是：   if a=b then
   MsgBox "a=b"
Else
   MsgBox "a<>b"
End If
End Sub


其实我要写的程序里， 是这样的
if a  signa  b   and  c signb d then
总共5*5个条件，所以不想写25次IF, 才想出是否有变量可以代表比较符的。

duquancai

高难度    把我吸引进来的。

liulang0808

楼主的这真不该用法本来就不规范的
建议结合需求，可以考虑自定义函数处理
另外可以看看Application.Evaluate(a & signa & b )这样的方式吧

2479028489

二楼，
    你好。 你的回复等于没有回复。你是不是觉得很简单呢？ 怎么没有给出正确答案？

三楼，
    你好。 谢谢你的回复。

yylucke

请参考
Arrsigna = Array("=", "<", ">", "<=", ">=")
a = 1
b = 5
For i = 0 To UBound(Arrsigna)
    If Application.Evaluate(a & Arrsigna(i) & b) Then MsgBox a & Arrsigna(i) & b: Exit Sub
Next i
另，建议在数组Arrsigna中注意比较运算符的排序，比如"<="不要放在“<"的前面，否则，会出现不合理结果，1<=5，而实际应该是1<5.

2479028489

liulang0808 发表于 2018-6-27 12:26
楼主的这真不该用法本来就不规范的
建议结合需求，可以考虑自定义函数处理
另外可以看看Application.Eval ...

非常感谢！

2479028489

yylucke 发表于 2018-6-27 14:11
请参考
Arrsigna = Array("=", "", "=")
a = 1

非常感谢！

zopey

25个 条件对应 不同的结果 有多少个？

2479028489

zopey 发表于 2018-6-27 15:12
25个 条件对应 不同的结果 有多少个？

25个条件，当然要写25个IF, 25个结果呀。
上述，我只是简单的举个小例子，写个小例子的代码段来求助的。
我的原程序，要写25个IF, 太麻烦了，想找个方法，只写一次。
三楼，五楼，已给出我所想要的。