VBA的寫作技巧與增進效能 - Excel程式區

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-11-30
最後登錄: 2023-1-12

80^# 跳轉到 »

發表於 2014-1-18 19:24 | 只看該作者

小弟我是新手，因為需要時才會寫一下VBA，所以技巧還不純熟，在此想請教一下各位前輩。

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

感謝前輩指導

初新者~指教囉~

TOP

bulletin

小學生 Rank: 1

帖子: 27
主題: 7
精華: 0
積分: 38
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-19
最後登錄: 2014-2-18

79^#

發表於 2014-1-18 00:18 | 只看該作者

多謝分享
我才剛進到VBA的世界
真的都是透過巨集學習

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

TOP

a12723954

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: win7
軟體版本: exce l2003
閱讀權限: 10
註冊時間: 2014-1-15
最後登錄: 2019-1-16

78^#

發表於 2014-1-15 14:18 | 只看該作者

感謝版主分享

讓我受益匪淺

TOP

takya

小學生 Rank: 1

帖子: 8
主題: 4
精華: 0
積分: 19
點名: 0
作業系統: Window
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-4-1
最後登錄: 2022-11-5

77^#

發表於 2014-1-15 10:12 | 只看該作者

謝謝教學.值得加以思考一下.

TOP

ldneye

小學生 Rank: 1

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

moci1231

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 10
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2013-8-15
最後登錄: 2020-2-22

75^#

發表於 2013-11-4 04:41 | 只看該作者

感謝分享感謝分享

Good

TOP

alolen

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2012-6-8
最後登錄: 2013-6-10

74^#

發表於 2013-2-3 21:28 | 只看該作者

很棒的內容
要好好學習一下

TOP

hsien33

中學生 Rank: 2

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

lin

中學生 Rank: 2

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

中學生 Rank: 2

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]