[已解决][求助]清除区域内容时，能否弹出确认对话框，防止误点

双飞叶

清除区域内容时，能否弹出确认对话框，防止误点 UnNoy99H.rar (5.73 KB, 下载次数: 12)

2009-9-10 14:04 上传

点击文件名下载附件
[求助]清除区域内容时，能否弹出确认对话框，防止误点

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-10 14:18

Sub 清除() '宏名
    If MsgBox("确定删除?", vbYesNo) = vbYes Then
        Range("b2:b5").ClearContents '要清除的区域
    End If
End Sub

跳转到最佳答案楼层

amulee

Sub 清除() '宏名
    If MsgBox("确定删除?", vbYesNo) = vbYes Then
        Range("b2:b5").ClearContents '要清除的区域
    End If
End Sub

双飞叶

好久没来了，发现很好地解决了问题，谢了

原来只要If MsgBox("确定删除?", vbYesNo) = vbYes Then 这么一句语句，很简单啊

可惜我不懂VBA，只会照抄

zsd5237

学习[em02][em02]