Question

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

Answer 1

 for i=2 to [b65536].end(3).row
   if cells(i,"B")<500 then
     If MsgBox("是否要继续", vbOKCancel, "温馨提示") = vbOK Then
    '这里放继续  的代码
     Else
    exit sub
    End If
  end if
 next

Answer 2

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