如何找出網站原始檔網址 - Excel程式區

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

21^# 跳轉到 »

發表於 2014-1-4 13:20 | 只看該作者

本帖最後由 blue2263 於 2014-1-4 13:22 編輯

我發現G大程式碼,執行上快很多,不好意恩,我是VBA幼稚園生,
執行速度要快,重點是什麼,要改什麼地方?
謝謝G大熱心幫忙

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

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

回復 21# blue2263
20# 按下組鍵CTRL+ESC+PAUSE,停止巨集後,->然後再次執行巨集會變成無法自動執行巨集,,你的Excel有問題.

迴圈的程式少用 Copy(佔用資源,減緩速度),Select(切換位置,佔用時間),多參考範例,多練習,會進步的.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

23^#

發表於 2014-1-4 20:09 | 只看該作者

本帖最後由 blue2263 於 2014-1-4 20:11 編輯

請教G大
關於G大程式碼
此句Set Rng(1) = .Range("b2")
我如要將 .Range("b2"),改為,所選儲存格
程式碼要如何寫

PS:所選儲存格=ActiveCell.Offset(0, 0).Range("A1").Select

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2014-1-5 07:05 | 只看該作者

本帖最後由 GBKEE 於 2014-1-5 07:10 編輯

回復 23# blue2263
你要多了解VBA的方法.屬性.函數

ActiveCell.Offset(0, 0).Range("A1").Select
分解: .Offset(0, 0) :原位置
.Offset(0, 0).Range("A1") :原位置的A1
那不就一樣是 ActiveCell

10# 39行程式碼: 原位置下移一列位置