Question

VBA清除按钮提示对话框

我用VBA做了个数据清除按钮，现在想实现点击此按钮后，弹出一个对话框，界面有确定及取消二个选项按钮，点击确定及可清除数据，取消则返回不执行清除命令！代码如下，请老师帮忙修改下，谢谢！
Sub Clear()
Range("a3:m500").ClearContents
MsgBox "数据清除完毕！"
End Sub

Answer 1

因为你没有对返回值进行判断：

If MsgBox("删除表格中的全部内容，是否执行？", vbYesNo, "刷新！")= vbYes Then
Range("A5:N204").ClearContents ' 清除单元格里的内容
……
End If