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

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

小工友

帖子
3 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
20 
註冊時間
2014-3-2 
最後登錄
2014-7-28 
81# 跳轉到 »
發表於 2014-3-14 23:55 | 只看該作者
對新手的我受益良多,感謝分享,謝謝

TOP

apao2000

帖子
21 
主題
6 
精華
0 
積分
27 
點名
0  
作業系統
Window 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-3-6 
最後登錄
2020-7-24 
82#
發表於 2014-3-16 12:54 | 只看該作者
VBA的寫作技巧與增進效能

經由錄製產生的巨集，通常程式碼都會含有很多 Select，甚至往後自己寫的程式也 ...
Hsieh 發表於 2010-4-30 23:06



    睇完版主的講解就發覺我做的巨集真的有很多select, selection等字眼，因為一開始時就是利用錄制巨集的方法而不斷増加設備
    如果有 Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$60" 那 Range("A1:C60").Select 是多餘的?

TOP

blue2263

帖子
150 
主題
40 
精華
0 
積分
215 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
註冊時間
2013-7-15 
最後登錄
2024-10-2 
83#
發表於 2014-4-12 04:40 | 只看該作者
本帖最後由 blue2263 於 2014-4-12 04:43 編輯

請教版主
將(a工作表)範圍資料,貼到(a工作表)其它位置,我用下列程式碼,是可行的,但如果要將(a工作表)範圍值,貼到(b工作表)範圍,程式碼應要如何改

Range(Cells(2, y欄 - x欄數), Cells(z列, y欄)) = Range(Cells(2, y欄 - x欄數), Cells(z列, y欄)).Value

TOP

saysorryap

帖子
5 
主題
1 
精華
0 
積分
12 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
10 
性別
男 
來自
s 
註冊時間
2012-11-8 
最後登錄
2017-2-13 
84#
發表於 2014-4-16 14:37 | 只看該作者
看到開頭就知道一定要推了!!
say

TOP

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
85#
發表於 2014-4-22 10:05 | 只看該作者
回復 1# Hsieh
所以樓主的建議是寫VBA時儘量是用敲的，而不是用錄製的嗎？但對像我這種新手而言，有很多語法如果不用錄製就無法寫出

TOP

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
86#
發表於 2014-7-25 11:03 | 只看該作者
除非程式就是要依使用者選取的物件來做動作，否則 Select 和 Selection 都是多餘的.非常同意。
之前只會利用錄製巨集，所以以為都是這樣做，看過論壇理的一些高手大大的例子才知道不需要這樣。除非需要利用當前選定時才需要這樣應用。
人生只有三天，只有活在今天最踏實

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
87#
發表於 2014-8-8 13:21 | 只看該作者
VBA 不會自動收垃圾嗎?

最後兩行沒寫, 不會自動釋放記億體嗎?

TOP

scjiao

帖子
16 
主題
2 
精華
0 
積分
53 
點名
0  
作業系統
WIN7 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2014-3-8 
最後登錄
2015-3-29 
88#
發表於 2014-8-8 21:24 | 只看該作者
謝謝大大，受教了，又學習到一課

TOP

tsmc2330

帖子
10 
主題
3 
精華
0 
積分
58 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2014-11-12 
最後登錄
2021-2-10 
89#
發表於 2014-11-12 13:55 | 只看該作者
感謝版主分享
我剛開始使用VBA的確也是把錄製到的巨集照單全收
不過 現在已經能寫出比較有效率的CODE了

TOP

wjt9093

帖子
14 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office 2003 2007 
閱讀權限
10 
性別
男 
註冊時間
2014-11-7 
最後登錄
2015-8-17 
90#
發表於 2014-11-19 10:21 | 只看該作者
回復 1# Hsieh
請問不同的Sheet及Range,得不到正確結果!?應該入何修正:L
Sheets(a1).Range("A4:B36") = Sheets(a2).Range("B5:B37,E5:E37")

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
1 ...234567891011
返回列表 上一主題