我在EXCEL表中,设计一个清除按钮,总编不好以下程序,请各位老师指点,谢谢!!!

关键字：谢谢 更新时间：2021-07-14 06:29:25 104次访问

Sub 清除() Dim r7 As Range 
With Sheets("考勤表") Set r7 = .Range("e4:e82") End With
 r7.Clear Contents
 End Sub

Private Sub CommandButton1_Click() '假定你插一按钮“CommandButton1”，然后点击按钮就可以实现清除 With Sheets("考勤表") Set r7 = .Range("E4:E82") End With r7.Clear End Sub

相关标签：谢谢