EXCEL中如何用VBA实现判断并弹出对话框？ 要求如图片：

Sub 宏1()
'
' 宏1 宏
'代码测试过，应该符合你的要求

'

vMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 to vMax
If Range("B" & i) < 500 Then
   If vbCancel = (MsgBox("低于门限，是否继续执行", vbOKCancel, "提示")) Then
     Exit Sub
   End If

End If
Next i

End Sub

追问

当满足以下任意一个条件时，弹出对话框
1）当A列包含北京时且B列<500
2）当A列包含上海时且B列<1000
这种又要怎么写，能不能顺便说明下？谢谢

追答If ((Range("A" & i) = "北京") And (Range("B" & i) < 500)) Or ((Range("A" & i) = "上海") And (Range("B" & i) <1000)) Then

本回答被提问者采纳