<em>excel</em> 中如何设置清空单元格内数据的按钮-excel 所有控件,excel

Public Sub 清除来未自锁定数知据道()

Dim PDsj As Range

For Each PDsj In ActiveSheet.UsedRange

    If PDsj.Locked = False Then

        PDsj.ClearContents

    End If

Next PDsj

End Sub

不如设个热键清zd不是更好.
操作如下
用宏吧,
按alt+F11
在窗口内添入下面代码

Sub Macro1()
Range("A1:B6").Select
Selection.ClearContents
End Sub

然后保存退出
到工具-宏-宏里,选中Macro1,点选项设定回一个热键.
然后确定后,按热键就可答以
如果你非用按键,先添加一个按钮,然后双击按键在代码段填入
Range("A1:B6").Select
Selection.ClearContents
就可以了.

1.单击  视图→工具栏→控件工具箱，然后选择设计    然后就可以删除了

2.另外一种就是窗体控件,这种直接右键剪切或删除就好了。

 

选择绘图工具栏上的 箭头按钮，选中全部控件按钮，删除