在单元格中输入某个值时弹出消息框

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

如果我手动运行，这可行，但我怎样才能让它在 State = OH 时自动运行？

Answer 1

1. 在您的 Excel 文件中打开 Microsoft Visual Basic for Appllications。
2. 在 Pojekt 视图中右键单击 Worksheet（左侧）。
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，则消息框会出现如果 false 什么都没有发生。