可能要用到VBA，判断A1>A2时，弹出一个对话框，内容是警告，A1已大于A2，请确定继续？如果按“否”，就关闭这个Excel文件。
如果关闭文件的代码比较复杂也可以不用，只要做一个确定就可以，点确定后什么事也不发生。
PS: A1和A2的数据是别的数据相加后的结果。
å°ä»¥ä¸ä»£ç æ¾å
¥æéè¦çå·¥ä½è¡¨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ï¼å¤å¶è¾å ¥ä¸è¿°ä»£ç ã
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ï¼å¤å¶è¾å ¥ä¸è¿°ä»£ç ã
温馨提示：答案为网友推荐，仅供参考
