標題: [發問] WITH 無法用於指定工作表 ?? [打印本頁]

---

作者: t8899    時間: 2013-11-5 18:36     標題: WITH 無法用於指定工作表 ??

sheet2 為工作視窗，巨集裡指定為sheet1 [attach]16583[/attach]
所得的結果會在sheet2 上??[attach]16583[/attach]
有無其他方法解決?
除了 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    時間: 2013-11-5 20:02

1. Sub ACLEAR()
   
2. With Sheets("sheet1") '非sheet2
   
3. 
   
4. .Range("B65536").End(xlUp).ClearContents
   
5. .Range("C65536").End(xlUp).ClearContents
   
6. 
   
7. End With
   
8. 
   
9. End Sub

複製代碼

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

---

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