Question

VB中messagebox操作问题

Sub nextone()
Do While ActiveCell <> "" '当选择单元格不为空时
MsgBox ActiveCell, vbOKCancel '执行messagebox并显示该单元格的内容
ActiveCell.Offset(1, 0).Select '向下移动一格
Loop
End Sub

上面一段代码是当我选择的单元格不是空时，就出现信息框，信息框的内容就是此单元格的内容，并一直循环下去，知道下一个单元格是空时才退出程序。现在我想当跳出信息框时，我点“确定/OK”时程序继续执行，点“取消/cancel”时就能退出程序。请各位大侠给予指教。谢谢

Answer 1

Sub nextone()
Do While ActiveCell <> "" '当选择单元格不为空时
if MsgBox( ActiveCell, vbOKCancel)=vbcancel then exit do '执行messagebox并显示该单元格的内容
ActiveCell.Offset(1, 0).Select '向下移动一格
Loop
End Sub