帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-3-28 15:04 | 只看該作者

甚麼程序需要在作用工作視窗在才可以進行

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-3-28 16:05 | 只看該作者

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

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

複製代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

3^#

發表於 2012-3-28 16:08 | 只看該作者

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

TOP

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

4^#

發表於 2012-3-28 16:48 | 只看該作者

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

TOP

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

5^#

發表於 2012-3-28 17:47 | 只看該作者

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

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-3-28 19:42 | 只看該作者

回復 5# enoch

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

TOP