返回列表 上一主題 發帖

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

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享

morris_lth

帖子
27 
主題
11 
精華
0 
積分
56 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
20 
性別
男 
註冊時間
2015-9-15 
最後登錄
2023-10-27 
2#
發表於 2016-2-22 15:18 | 顯示全部帖子
謝謝幫忙~

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題