如果工作表上的單元格值為false，則VBA Msgbox

Question

我有此代碼，它工作正常，但我只有1個問題。

它不起作用我想要的方式。

我希望每次更改更改時都彈出msgbox。

如果單元格E45值不是"True"那么當我更改為其他工作表時，我希望它提示我味精說"Records DO NOT Match, would you still like to continue?"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("E45") <> "TRUE" Then
        MsgBox "Records Do Not Match"
    End If
End Sub

Answer 1

您需要更改兩件事：

首先，當您選擇其他工作表時，需要使用Workbook_SheetActivate事件進行捕獲。 接下來，您應該將其與文字True值進行比較，而不是字符串"TRUE" ：

以下代碼應放在ThisWorkbook模塊中：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Range("E45") <> True Then
        MsgBox "Records do not match"
    End If
End Sub

Answer 2

將“ TRUE”修改為TRUE，以便檢查布爾值，而不是字符串“ true”