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

更新时间2021-07-14 06:29:25

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

相关标签:谢谢