用下拉列表值替换“＆lt; =”

Question

这是我使用if函数的脚本：

 If snSheets.Cells(snRow, snCol).Value <= sumSheets.Cells(sumRow, 2).Value

在这里，我将在单元格中创建一个下拉列表，包括所有条件包括：＆＃34;＆lt;＆＃34; ，＆＃34;＆gt;＆＃34; ，＆＃34; =＆＃34; ，＆＃34;＆lt; =＆＃34; ，＆＃34;＆gt; =＆＃34; ;

如何更换＆＃34;＆lt; =＆＃34;在我的脚本中使用我的下拉列表值？

Answer 1

If Application.Evaluate(snSheets.Cells(snRow, snCol).Value _
                   & opValue &  sumSheets.Cells(sumRow, 2).Value) Then
...
End If

其中opValue为<，>，<=，>=