Question

Excel中用VBA写一个判断并弹出对话框

可能要用到VBA，判断A1>A2时，弹出一个对话框，内容是警告，A1已大于A2，请确定继续？如果按“否”，就关闭这个Excel文件。

如果关闭文件的代码比较复杂也可以不用，只要做一个确定就可以，点确定后什么事也不发生。

PS: A1和A2的数据是别的数据相加后的结果。

Answer 1

将以下代码放入所需要的工作表VB代码中：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A1 As Long
Dim B1 As Long
Dim Rsp As String
'定义A1、B1的取值代码，省略
A1 = Range("A1") '假设A1内容，实际当中自行编写
B1 = Range("B1") '假设B1内容，实际当中自行编写
If A1 > B1 Then
Rsp = MsgBox("A1已大于A2，请确定继续?", vbYesNo)
If Rsp = vbNo Then
ThisWorkbook.Close
End If
End If
End Sub实际输入上述代码，可采用vba编辑器，选择对应的工作表，再选择相应事件SelectionChange，复制输入上述代码。