[發問] 如何同時清除多個SHEET的指定位置的資料

morris_lth

假設我有SHEET1~SHEET5
我想請除所有SHEET2~5 位置B2~C20 的資料包含格線,該如何做呢?

另外想問以下程式( CommandButton3 在SHEET1),我想清除SHEET10為何會出現錯誤?

Private Sub CommandButton3_Click()
chose = MsgBox("是否清除儲存格內所有資料", vbYesNo + vbQuestion, "提示")
     Select Case chose
       Case vbYes
         Sheet10.Range(Cells(1, 1), Cells(65536, 256)).ClearContents '清除A1~IV65536儲存格資料
       Case vbNo
     End Select
End Sub

准提部林

工作表程式區的物件(RANGE,CELLS....), 若未標工作表名稱, 自動判為本表, 會有衝突錯誤,
可改為:
Sheet10.Range(Sheet10.Cells(1, 1), Sheet10.Cells(65536, 256)).ClearContents

清除全表, 可如下:
Sheet10.Cells.ClearContents

GBKEE

回復 1# morris_lth

1. Option Explicit
   
2. Private Sub CommandButton3_Click()
   
3.     Dim i As Integer, Chose As Integer
   
4.     Chose = MsgBox("是否清除儲存格內所有資料", vbYesNo + vbQuestion, "提示")
   
5.     Select Case Chose
   
6.         Case vbYes
   
7.             For i = 2 To 5
   
8.                 With Sheets(i)
   
9.                     .[B2:C20].Clear         '指定工作表範圍
   
10.                    '.Range("B2:C20").Clear  '指定工作表範圍
    
11.                    '.UsedRange.Clear        '工作表已使用範圍
    
12.                    '.Cells.Clear            '全部的範圍
    
13.                 End With
    
14.             Next
    
15.         Case vbNo
    
16.      End Select
    
17. End Sub

複製代碼

morris_lth

謝謝幫忙~