使用布尔变量在 VBA 中键入不匹配错误

Question

我正在尝试遍历一个范围并根据字符串“QUERIED”检查单元格的名称，如果此比较为假，则将单元格的值放在其他位置。 Excel 在下面的 If 语句中给了我一个关于 False 的类型不匹配错误。我无法终生明白为什么。 nameCheck 是一个布尔变量。

Do
    namecheckCell = Sheets("Sheet1").Cells(namecheckRow, 6)
    nameCheck = True
    nameCheck = namecheckCell.Name Like "QUERIED"
    MsgBox (nameCheck)
    If nameCheck Is False Then
        Sheets("List Results").Cells(namefoundCount, 1).Value = namecheckCell.Value
        namefoundCount = namefoundCount + 1
    End If
    namecheckRow = namecheckRow + 1
Loop While Not namecheckCell.Value Is Nothing

Answer 1

您需要使用= 而不是Is，或者更好：

If Not nameCheck Then

Is 运算符用于比较对象引用，而= 用于比较值类型（布尔值、整数等）。