Excel的一个清除按钮，想在清除前弹出一个确认是否清除的窗口，是的话清除，否的话就退出

显示全部楼层 · 2010-8-18 21:02:55

我想要做一个清除按钮，想在清除前弹出一个确认是否清除的窗口，是的话清除，否的话就退出
我写的如下：
Sub Macro1()

Range("E3:E20000").Select

MsgBox ("是否要清空！")

Selection.ClearContents

End Sub
可是这个写出来是不正确的，哪位大侠告诉我如何写吧

千问 · 2010-8-18 21:02:55

Sub aa()If MsgBox("是否要清空?",4)=6 Then Range("E3:E20000").ClearContentsEnd Sub

千问 · 2010-8-18 21:02:55

Sub Macro1()
Range("E3:E20000").Select
if MsgBox ("是否要清空?", vbYesNo) = vbYes then
Selection.ClearContents
endifEnd Sub