[已解决]excel表格中的控件按钮

zhgghw

因为需要，做了一个清空数据的按钮，但有时候会误操作，请论坛里的老师们帮忙设计一个警示功能。现传上附件，在表格里有详细说明，敬请帮助，谢谢！ 清空数据的按钮.rar (12.6 KB, 下载次数: 16)

2012-6-19 21:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-19 21:32

1. Private Sub CommandButton1_Click()
   
2.     Dim x
   
3.     x = MsgBox("确实要清空数据吗？", vbYesNo + vbQuestion)
   
4.     If x = vbYes Then
   
5.         Range("A2:B30").ClearContents
   
6.         Range("A2").Select
   
7.     End If
   
8. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Private Sub CommandButton1_Click()
   
2.     Dim x
   
3.     x = MsgBox("确实要清空数据吗？", vbYesNo + vbQuestion)
   
4.     If x = vbYes Then
   
5.         Range("A2:B30").ClearContents
   
6.         Range("A2").Select
   
7.     End If
   
8. End Sub

复制代码

zhgghw

hrpotter 发表于 2012-6-19 21:32

完美！太完美了！谢谢！