在單元格中輸入特定值時彈出消息框

Question

我有一個電子表格，如果某個特定的單元格是“OH”，我希望彈出一個消息框。 彈出消息后，我希望能夠單擊“確定”並繼續前進。

目前我有：

Private Sub OH_MSG_Click()

If ThisWorkbook.Worksheets("Zip Code Entry").Range("State").Value = "OH" Then
  MsgBox "Please review OH Underwriting Guidelines."
End If

End Sub

如果我手動運行，這是有效的，但是如果狀態= OH，我怎么能讓它自動運行？

Answer 1

1. 在excel文件中打開Microsoft Visual Basic for Apllications。
2. 在Pojekt視圖中右鍵單擊工作表（左側）。
3. 選擇代碼視圖。 現在將出現代碼窗口。
4. 從代碼窗口的左上角下拉列表中選擇“工作表”。
5. 從右下拉菜單中選擇“更改”。 然后放置代碼（類似這樣）示例：

 Private Sub Worksheet_Change(ByVal Target As Range) If (Target.Address = "$A$2") Then If (Range("A2").Value = "OH") Then MsgBox "Some message" End If End If End Sub 

這意味着：如果A2被選中並且此工作表中的任何單元格已更改，則宏將檢查If（“A2”）。Value =“OH”）如果為true，則Msg框出現，如果false則沒有發生任何事情。