實(shí)例18-多個(gè)工作表清除區(qū)域

Private Sub CommandButton清除_Click()

'判斷工作簿名，工作表名不為空

With ThisWorkbook.Worksheets("操作界面")

? ? ?If Trim(.Cells(2, "C").Value) = "" Or Trim(.Cells(6, "C").Value) = "" Then

? ? ?MsgBox "參數(shù)不能為空"

? ? ?Exit Sub

? ? ?End If

'On Error GoTo 處理出錯(cuò)

'定義變量

Dim wbname As String

wbname = Trim(.Cells(2, "C").Value)

Dim clearrange As String

clearrange = Trim(.Cells(6, "C").Value)

End With

'處理表格

With Workbooks(wbname)

'循環(huán)判斷

Dim i

For i = 1 To .Worksheets.Count

? ? .Worksheets(i).Range(clearrange).ClearFormats '清除格式

? ? .Worksheets(i).Range(clearrange).ClearContents? '清除內(nèi)容

Next i

End With

Workbooks(wbname).Save

MsgBox "處理完成"

Workbooks(wbname).Activate

ActiveWindow.WindowState = xlMaximized

Exit Sub

處理出錯(cuò):

MsgBox Err.Description

End Sub