返回列表 上一主題 發帖

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

enoch

帖子
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 時, 就要必需是作用視窗先做到
請指教
收藏 分享

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

enoch

帖子
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

enoch

帖子
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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2012-3-28 16:08 | 只看該作者
除非程序須要中斷等待人工選取儲存格或其他的人工操作，否則不須要在作用視窗執行。
做sorting 時也一樣。

TOP

GBKEE

帖子
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欄做排序
  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
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題