获取警告消息框

Question

我正在做一个项目，需要VBA的帮助。如所附表格所示，我需要的是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"