VBA的寫作技巧與增進效能 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA的寫作技巧與增進效能

1 ... 2 3 4 5 6 7 8910 11 下一頁

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 3
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: Win7
軟體版本: Office2013
閱讀權限: 20
註冊時間: 2014-3-2
最後登錄: 2014-7-28

81^# 跳轉到 »

發表於 2014-3-14 23:55 | 只看該作者

對新手的我受益良多,感謝分享,謝謝

小學生 Rank: 1

帖子: 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 是多餘的?

中學生 Rank: 2

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

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
性別: 男
來自: s
註冊時間: 2012-11-8
最後登錄: 2017-2-13

84^#

發表於 2014-4-16 14:37 | 只看該作者

看到開頭就知道一定要推了!!

say

中學生 Rank: 2

帖子: 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時儘量是用敲的，而不是用錄製的嗎？但對像我這種新手而言，有很多語法如果不用錄製就無法寫出

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

86^#

發表於 2014-7-25 11:03 | 只看該作者

除非程式就是要依使用者選取的物件來做動作，否則 Select 和 Selection 都是多餘的.非常同意。
之前只會利用錄製巨集，所以以為都是這樣做，看過論壇理的一些高手大大的例子才知道不需要這樣。除非需要利用當前選定時才需要這樣應用。

人生只有三天，只有活在今天最踏實

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 64
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2011-11-10
最後登錄: 2019-2-27

87^#

發表於 2014-8-8 13:21 | 只看該作者

VBA 不會自動收垃圾嗎?

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

中學生 Rank: 2

帖子: 16
主題: 2
精華: 0
積分: 53
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-3-8
最後登錄: 2015-3-29

88^#

發表於 2014-8-8 21:24 | 只看該作者

謝謝大大，受教了，又學習到一課

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 58
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2014-11-12
最後登錄: 2021-2-10

89^#

發表於 2014-11-12 13:55 | 只看該作者

感謝版主分享
我剛開始使用VBA的確也是把錄製到的巨集照單全收
不過現在已經能寫出比較有效率的CODE了

小學生 Rank: 1

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

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

1 ... 2 3 4 5 6 7 8910 11 下一頁

返回列表下一主題上一主題