標題: [發問] 如何同時清除多個SHEET的指定位置的資料 [打印本頁]

---

作者: morris_lth    時間: 2016-2-18 17:53     標題: 如何同時清除多個SHEET的指定位置的資料

假設我有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

---

作者: 准提部林    時間: 2016-2-18 18:36

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

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

---

作者: GBKEE    時間: 2016-2-19 09:02

回復 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    時間: 2016-2-22 15:18

謝謝幫忙~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)