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

123 4 5 6 7 8 9 10 ... 11 下一頁

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

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

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

100^# 跳轉到 »

發表於 2016-1-28 10:24 | 只看該作者

版主,我是一名新手學VBA 的人,
我想問有好多時寫程式都會用到"APPLICATION.XXXXXX" 其實在什麼時候才會用到"APPLICATION"呢?
請賜教

TOP

EGBT

中學生 Rank: 2

帖子: 127
主題: 38
精華: 0
積分: 166
點名: 0
作業系統: Microsoft
軟體版本: Windows 7
閱讀權限: 20
性別: 男
註冊時間: 2015-7-31
最後登錄: 2018-8-3

99^#

發表於 2015-9-3 16:03 | 只看該作者

此篇非常實用~

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

98^#

發表於 2015-7-2 13:16 | 只看該作者

回復 1# Hsieh

版主~請問以下兩段程式碼,的doc是指word嗎?
那app是指當前程式碼嗎?
Set wrdDoc = Nothing '釋放物件變數
Set wrdApp = Nothing

TOP

viggen93

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: win7 x64
軟體版本: Build 7601
閱讀權限: 10
註冊時間: 2011-6-27
最後登錄: 2015-5-27

97^#

發表於 2015-5-28 00:35 | 只看該作者

用心看完感謝板主
值得好好地學習

TOP

gn001038600

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2024-5-2

96^#

發表於 2015-4-29 11:05 | 只看該作者

一開始學習的時候完全不會顧慮到處理時間,跑出來就謝天謝地了
但是越學到後面,處理的資料越來越多時,才發現能省則省的重要性
感謝大大分享優良觀念^^

TOP

sghsgh1111

中學生 Rank: 2

帖子: 29
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: WinXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-3-2
最後登錄: 2015-6-1

95^#

發表於 2015-4-27 00:40 | 只看該作者

嗯, 又學到一些東西
看了自己寫的, 還要多多改進

TOP

w445296265

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: W7
軟體版本: Office 2007
閱讀權限: 10
性別: 女
註冊時間: 2012-8-28
最後登錄: 2015-4-22

94^#

發表於 2015-4-22 14:58 | 只看該作者

回復 1# Hsieh

看完整個覺得「超讚」對於新手來說很實用!!!!!!!

TOP

prince120101

中學生 Rank: 2

帖子: 25
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-12-4
最後登錄: 2018-6-6

93^#

發表於 2014-12-9 09:46 | 只看該作者

回復 1# Hsieh

剛進入 EXCEL VBA 世界
看到這篇文章
多謝分享~~

TOP

wjt9093

小學生 Rank: 1

帖子: 14
主題: 1
精華: 0
積分: 15
點名: 0
作業系統: win10
軟體版本: office 2003 2007
閱讀權限: 10
性別: 男
註冊時間: 2014-11-7
最後登錄: 2015-8-17

92^#

發表於 2014-11-19 18:05 | 只看該作者

回復 94# Hsieh
感謝您的指導,不過發現執行後仍有問題,最後試很久,須加.value才成功!再次感謝您,讓程式更精簡!
Sheets(a1).Range("A4:A36").Value = Sheets(a2).Range("B5:B37").Value
Sheets(a1).Range("B4:B36").Value = Sheets(a2).Range("E5:E37").Value

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章