1 ...234567891011
返回列表 上一主題 發帖

[轉貼] VBA的寫作技巧與增進效能

hsien33

帖子
35 
主題
18 
精華
0 
積分
60 
點名
0  
作業系統
Windows7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-9-21 
最後登錄
2022-10-2 
71# 跳轉到 »
發表於 2013-1-29 01:22 | 只看該作者
請教版大
像我的程式想簡化
但裡面有要變的欄位
必須要用 ActiveSheet.Paste
才能動作
請問這樣要如何簡化
我用您的方式
修改我的程式為
    Sheets("北區IC表").Range("B2").Copy Sheets("統計").Range("B2")
    Sheets("統計").Range("E3:E22").Copy Sheets("北一美富").Range("B3")
但原本該變動的"E3:E22"數值就不變動了
請版大幫我看看問題所在
感謝您

我原本的巨集如下

Sub 北一美富()
' 北一美富 Macro
在 2012/7/5 錄製的巨集

    Sheets("北區IC表").Select
    Range("B2").Select
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   

    Sheets("北區IC表").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

TOP

lin

帖子
172 
主題
2 
精華
0 
積分
230 
點名
0  
作業系統
winXP 
軟體版本
office 2007& office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-23 
最後登錄
2017-10-28 
72#
發表於 2013-1-29 13:33 | 只看該作者
引用主文
其實可以這麼寫 --
　Sheets(2).Range("B1") = Sheets(1).Range("A1")
如果內容與格式都要複製，可以這麼寫 --
　Sheets(1).Range("A1").Copy Sheets(2).Range("B1")
Lin

TOP

hsien33

帖子
35 
主題
18 
精華
0 
積分
60 
點名
0  
作業系統
Windows7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-9-21 
最後登錄
2022-10-2 
73#
發表於 2013-1-29 21:54 | 只看該作者
回復 1# Hsieh


請教版大
像我的程式想簡化
但裡面有要變的欄位
必須要用 ActiveSheet.Paste
才能動作
請問這樣要如何簡化
我用您的方式
修改我的程式為
    Sheets("北區IC表").Range("B2").Copy Sheets("統計").Range("B2")
    Sheets("統計").Range("E3:E22").Copy Sheets("北一美富").Range("B3")
但原本該變動的"E3:E22"數值就不變動了
請版大幫我看看問題所在
感謝您

我原本的巨集如下

Sub 北一美富()
' 北一美富 Macro
在 2012/7/5 錄製的巨集

    Sheets("北區IC表").Select
    Range("B2").Select
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   

    Sheets("北區IC表").Select
    Range("B3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("北區IC表").Select
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("統計").Select
    Range("B2").Select
    ActiveSheet.Paste
    Range("E3:E22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("北一美富").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

TOP

alolen

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2012-6-8 
最後登錄
2013-6-10 
74#
發表於 2013-2-3 21:28 | 只看該作者
很棒的內容
要好好學習一下

TOP

moci1231

帖子
3 
主題
0 
精華
0 
積分
10 
點名
0  
作業系統
windows 7 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
註冊時間
2013-8-15 
最後登錄
2020-2-22 
75#
發表於 2013-11-4 04:41 | 只看該作者
感謝分享 感謝分享
Good

TOP

ldneye

帖子
13 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2013-10-25 
最後登錄
2013-12-2 
76#
發表於 2013-11-4 09:48 | 只看該作者
exapmle.rar (117.34 KB) 回復 1# Hsieh


     超級版主您好

有一點問題想跟您請教

我想用您這篇題到的 " 在不同sheet間複製貼上" 的技巧 來對照兩個不同sheets之間的公司的名稱  如果相符  就將該公司2005年的return複製貼上到sheet1

不知道為何沒辦法使用 ( 總是只有三個名字有抓到資料)

附上我的檔案 請您過目

謝謝

TOP

takya

帖子
8 
主題
4 
精華
0 
積分
19 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2013-4-1 
最後登錄
2022-11-5 
77#
發表於 2014-1-15 10:12 | 只看該作者
謝謝教學.值得加以思考一下.

TOP

a12723954

帖子
2 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
win7 
軟體版本
exce l2003 
閱讀權限
10 
註冊時間
2014-1-15 
最後登錄
2019-1-16 
78#
發表於 2014-1-15 14:18 | 只看該作者
感謝版主分享

讓我受益匪淺

TOP

bulletin

帖子
27 
主題
7 
精華
0 
積分
38 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2012-9-19 
最後登錄
2014-2-18 
79#
發表於 2014-1-18 00:18 | 只看該作者
多謝分享
我才剛進到VBA的世界
真的都是透過巨集學習

雖然看了似懂非懂  但是我會時時放在心上的...

TOP

wl02353427

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-11-30 
最後登錄
2023-1-12 
80#
發表於 2014-1-18 19:24 | 只看該作者
小弟我是新手，因為需要時才會寫一下VBA，所以技巧還不純熟，在此想請教一下各位前輩。

  最後兩行"釋放物件變數"是甚麼意思? 都是在寫在sub的最後嗎? 因為執行迴圈或其他動作時記憶下來的那些資料暫存要讓它消失嗎?! 可是當執行完一輪後都已經輸出到指定的地方了欸。

                                                                                                                                                           感謝前輩指導
初新者~指教囉~

TOP

        靜思自在 : 人要知福、惜福、再造福。
1 ...234567891011
返回列表 上一主題