標題: 甚麼程序需要在作用工作視窗在才可以進行 [打印本頁]

---

作者: enoch    時間: 2012-3-28 15:04     標題: 甚麼程序需要在作用工作視窗在才可以進行

請問如何分別甚麼程序需要在作用工作視窗在才可以進行動作
例如,  作用視窗是sheet1 , copy sheet2的資料往sheet3 時, 可以加上資料位置,  
Sheets("sheet1").Range("a1:b2").Copy Sheets("sheet3").Range("a1")
但當想做sorting 時, 就要必需是作用視窗先做到
請指教

---

作者: GBKEE    時間: 2012-3-28 16:05

回復 1# enoch
可在作用中的工作表視窗Sheet3 中 做Sheet1的Range("A1:C14") A欄做排序

1. Sub Ex()   
   
2.    Sheet3.Activate   
   
3.    With Sheet1
   
4.         .Range("A1:C14").Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:= _
   
5.         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
   
6.         SortMethod:=xlStroke, DataOption1:=xlSortNormal
   
7.     End With
   
8.     '上下的程式碼是相同的效果
   
9.     '    Sheet1.Range("A1:C14").Sort Key1:=Sheet1.Range("A2"), Order1:=xlAscending, Header:= _
   
10.         xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    
11.         SortMethod:=xlStroke, DataOption1:=xlSortNormal   
    
12. End Sub

複製代碼

---

作者: oobird    時間: 2012-3-28 16:08

除非程序須要中斷等待人工選取儲存格或其他的人工操作，否則不須要在作用視窗執行。
做sorting 時也一樣。

---

作者: enoch    時間: 2012-3-28 16:48

多謝指教,原來一直在Sort Key1: 後面的range前漏了加上sheet1
我又學會了

---

作者: enoch    時間: 2012-3-28 17:47

還有個問題,
COPY 範圍做了篩選動作, 然後想將資料COPY到另一個檔案"exfile"的工作表內,
請問可以點修改而不需要先轉去另一檔案而直接copy呢?

因現時只識用以下方法
Range("a5:aj2500").Copy
Workbooks("exfile.xls").Worksheets("Sheet1").Activate
ActiveSheet.Paste Range("a1")

---

作者: register313    時間: 2012-3-28 19:42

回復 5# enoch

Range("a5:aj2500").Copy Workbooks("日報表-1.xls").Worksheets("Sheet1").Range("a1")
日報表-1.xls 要先開啟

---

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