如何将文本值转换为逻辑值被if语句识别（在线等~）

佚_名

我正在编一个程序，主要是条件筛选与汇总统计。因为数据繁多，而且不同的人有不同的判断条件，因此无法事先将条件编入VBA中。为了方便不会编程的人使用，想将判断条件输入文本框，然后点击确定按钮，代码识别文本框中的判断条件，并执行后续操作。

但运行后显示“类型不匹配”，因此想请教各位，如何实现这个功能。

在论坛上搜索的时候发现如下代码：

Dim s
s = Application.Evaluate("1 + 1 >= 2")
If s Then '如果结果为真，则执行
  MsgBox "条件成立"
End If

可以将文本转换为逻辑值

但我写的代码中需要引用表格数据，如：

Dim ws As WorksheetSet ws = Worksheets("Sheet1")文本框中内容：ws.cells(i,6)>ws.cells(i,7)              行用i表示是因为有循环语句此时，显示错误：类型不匹配恳求各位高手支招！ 新建 Microsoft Office Excel 工作表.zip (20.55 KB, 下载次数: 18)

2012-2-7 21:17 上传

点击文件名下载附件

wenfulin

val(ws.cells(i,6).value)>val(ws.cells(i,7).value)

佚_名

wenfulin 发表于 2012-2-7 21:29
val(ws.cells(i,6).value)>val(ws.cells(i,7).value)

不好意思，没太看明白您的意思。
我将这句代码复制至文本框，还是显示的类型不匹配。
您能说的再详细点吗？或者将您测试成功的excel表格发上来，我看看是怎么修改的。谢谢了！

liucqa

不能这么搞吧，你不能指望文本框的输入始终是正确的。

佚_名

liucqa 发表于 2012-2-7 22:33
不能这么搞吧，你不能指望文本框的输入始终是正确的。

这个可以再使用的时候做一个说明，标明使用那组数据用什么代码。
您有什么好的建议吗，关于实现这个目的，方便不会VBA的人输入判断条件？

liucqa

要确保输入正确的唯一方法是不让用户自己输入。

还是弄下拉选择吧

Zamyi

佚_名 发表于 2012-2-7 22:49
这个可以再使用的时候做一个说明，标明使用那组数据用什么代码。
您有什么好的建议吗，关于实现这个目的 ...

{:soso_e114:}什么逻辑？让不懂VBA写VBA语句！

Moneky

通过操作VBProject实现了要求，不过教程可以写好哦。

注意需要

Moneky

可以借鉴Access中的表达式生成器来生成吧，不过要做一个表达式生成器还是比较高科技的。
楼主的实际情况不应该有无数种可能吧，其实可以把常见的写法进行分类，如楼上朋友所说，用下拉列表的形式展现。如你附件中所说”为了方便不会编程的人使用“，但是你的附件中的表达式对于不会编程的人来说就是天书，其实就算是会编程的人也会一头雾水的，为了写个表达式还要去研究半天代码。所以可以说附件中的形式没有什么实用性。

Zamyi

Moneky 发表于 2012-2-7 23:16
可以借鉴Access中的表达式生成器来生成吧，不过要做一个表达式生成器还是比较高科技的。
楼主的实际情况不 ...

VBA写VBA也可以。