可能要用到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ï¼å¤å¶è¾å ¥ä¸è¿°ä»£ç ã
温馨提示:答案为网友推荐,仅供参考