在单元格中输入特定值时弹出消息框

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 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

这意味着：如果选择 AND 并更改了此工作表中的任何单元格，则宏将检查If（“ A2”）。Value =“ OH”）如果为true，则将出现消息框如果为假，什么也没发生。