返回列表 上一主題 發帖

[發問] WITH 無法用於指定工作表 ??

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-5 18:36 | 只看該作者

[發問] WITH 無法用於指定工作表 ??

sheet2 為工作視窗，巨集裡指定為sheet1 1.rar (7.54 KB)
所得的結果會在sheet2 上??
有無其他方法解決?
除了 Sheets("sheet1").select 或  Sheets("sheet1").Activate  之外?
Sub ACLEAR()
'With Workbooks("1.xls").Sheets("sheet1")
With Sheets("sheet1") '非sheet2
Range("B65536").End(xlUp).Offset(0).Select
Selection.ClearContents
Range("C65536").End(xlUp).Offset(0).Select
Selection.ClearContents
End With

End Sub
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2013-11-5 20:02 | 只看該作者
  1. Sub ACLEAR()
  2. With Sheets("sheet1") '非sheet2

  4. .Range("B65536").End(xlUp).ClearContents
  5. .Range("C65536").End(xlUp).ClearContents

  7. End With

  9. End Sub
複製代碼
1.被with的物件前面要加"."
2.非當前所在工作表的儲存格無法select, 若你不想轉到該工作表可直接.ClearContents而不須要select.

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題