Question

excel vba编程时“类型”不匹配应如何解决？

我想使用VBA实现条件查找功能，而这个条件是可以选择的，我使用想复合框进行选择。
比如，我在A列输入条件名称，B列输入条件格式，如A1：条件1，B1：D1>C1 and D1>E1。
用复合框选择条件名称，并进行后续计算
部分代码如下：
dim i,n，open1,open2 as integer
dim ws as worksheet
dim openterm as variant
n=100
set ws =worksheets("sheet1")
open2 = ws.Range("A" & Rows.Count).End(xlUp).Row
For open1 = 1 To open2
If (ws.Range("A" & open1) = ComboBox1.Text) Then
openterm = ws.Range("B" & open1)
End If
Next
for i=1 to 100
if(openterm) then
...
执行后在“if(openterm) then”提示“类型不匹配”。
请高手指点，应该如何修改才能实现此功能？

Answer 1

没有完整的代码，不知你的目标是什么，猜测地认为应该把后一个循环去掉。把循环中的内容搬到前一个循环中END IF之前，加入i=i+1:IF i>100 THEN EXIT FOR语句。

追问

我的目的在代码前面已经说明了，因为代码有点长，会影响阅读，所以只放了关键部分。第一个循环是根据复合框内容定位条件位置，第二个是根据此条件进行计算，需要循环100次。

追答

要不把代码发来看下，我邮箱GMSY163@163.COM，EXCEL2003

追问

实在抱歉，用手机上的，没法发邮件。这个问题还可以换一种表述：
将判断条件储存至a1单元格，然后在vba中的if语句的if后调用a1单元格的判断条件内容，但是不能被if语句识别。不知这样是否说清楚了？

追答

IF语句的条件表达式必须要得到TRUE或FALSE值，而你的(openterm)得不到这个类型的值，就是出错的原因。按我上面说的方法，可同时把IF判断也去掉，试试

Answer 2

不知 n=100 有啥用？
执行后在“if (openterm) then”提示“类型不匹配”是因为你定义了openterm为variant数据类型，而返回值则不是这个类型。
大概看了下，好像返回值为空时会出现“类型不匹配”的提示。
可以把openterm = ws.Range("B" & open1)改为：
If ws.Range("B" & open1) <> "" Then openterm = ws.Range("B" & open1)

追问

第一个循环是根据复合框内容定位条件位置，即定位复合框显示的条件名称所处的行数，即open1，range（“B”&open1）便不能为空，因为A列B列是同时定义的。第二个是根据此条件进行计算，需要循环100次，所以取n＝100。

追答

-----------------------------------------------------------------------------
追加回答：这几个循环我还能看懂哦。你做如下修改即可：
1、dim openterm as variant 改为 Dim openterm As String
2、if (openterm) then 改为 If VarType(openterm) Then
ok! excel2003中测试通过~~
-----------------------------------------------------------------------------

追问

我试了一下，还是不行。vartype函数返回的是一个代表变量类型的常数，只要非空，返回的就是一个非零值，if语句永远正确，就不能起到判断作用了。