获取警告消息框

Question

我正在做一个项目，需要 VBA 方面的帮助。如所附 table 所示，我需要的是 VBA 代码，如果 B 列 (SBO) 中的任何值是 FALSE，它会提醒我。我尝试了下面的代码，但它没有给我想要的结果，所以如果有人能提供帮助，我将不胜感激。谢谢！

Sub SBO_Lookup()
Sheets("Sheet1").Select
If Sheet1.Range("B:B").Value = "FALSE" Then
MsgBox "False SBO detected"
End If
End Sub

Answer 1

您可以使用 Range.Find() 方法：

If Sheet1.Range("B:B").Find("False") Is Not Nothing Then
    MsgBox "False SBO Detected"
End If

您也可以使用 WorksheetFunction.CountIf() 方法：

If WorksheetFunction.Countif(Sheet1.Range("B:B"), "FALSE") > 0 Then
    MsgBox "False SBO Detected"
End If

Answer 2

只需这样做：

If [match(false,b:b,0)] Then MsgBox "False SBO detected"