[已解决][求助]请各位帮助解决一个对话框的问题

zzh49

各位老师，请帮忙解决对话框的设置问题。说明在附件中。
谢谢！
附件; 附件.rar (10.34 KB, 下载次数: 3)

2011-7-26 08:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

wayy

2011-7-26 08:55

Sub 清零()
  kk = MsgBox("清零将使部分单元格数据彻底消失，不可恢复！", 4, "提示")
If kk = 7 Then Exit Sub
  Sheets("Sheet1").Select
     Range("A1:D50").Select
     Selection.ClearContents
     Range("A2").Select
  Sheets("sheet2").Select
    Range("A3:D65536").Select
    Selection.ClearContents
    Range("A2").Select
End Sub

跳转到最佳答案楼层

wayy

Sub 清零()
  kk = MsgBox("清零将使部分单元格数据彻底消失，不可恢复！", 4, "提示")
If kk = 7 Then Exit Sub
  Sheets("Sheet1").Select
     Range("A1:D50").Select
     Selection.ClearContents
     Range("A2").Select
  Sheets("sheet2").Select
    Range("A3:D65536").Select
    Selection.ClearContents
    Range("A2").Select
End Sub

zzh49

回复 wayy 的帖子

谢谢老师的帮助！

kakaco

哇。我也想要。。。
VBA的学习。