使用布尔变量在VBA中键入Mismatch错误

Question

我正在尝试通过一个范围并检查单元格的名称对着一个字符串“QUERIED”，如果这个比较为false则将该单元格的值放在其他地方。 Excel在下面的If语句中给我一个类型不匹配的错误。我不能为我的生活看到原因。 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运算符用于比较对象引用，而=用于比较值类型（布尔值，整数等）。