『壹』 Excel中用VBA写一个判断并弹出对话框
将以下代码放入所需要的工作表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，复制输入上述代码。