Sub 清除() Dim r7 As RangeWith Sheets("考勤表") Set r7 = .Range("e4:e82") End Withr7.Clear ContentsEnd Sub
Private Sub CommandButton1_Click() '假定你插一按鈕“CommandButton1”,,然后點(diǎn)擊按鈕就可以實(shí)現(xiàn)清除With Sheets("考勤表")Set r7 = .Range("E4:E82")End Withr7.ClearEnd Sub
Tags:我在總編請各位
文章版權(quán)聲明:除非注明,,否則均為便查問答網(wǎng)原創(chuàng)文章,,轉(zhuǎn)載或復(fù)制請以超鏈接形式并注明出處。