[發問] 1比46

版主 Rank: 7 Rank: 7 Rank: 7

kimbal

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2011-2-19 19:00 | 只看該作者

在oobird大大上再加小許
看看這些有沒有運用上
application.calculation = xlmanual
application.screenupdate=false

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

4^#

發表於 2011-2-19 22:16 | 只看該作者

回復 2# oobird
版主~
不知道是不是我又試玩了什麼功能...
家裡電腦的F8似乎被別的功能所取代，
按F8螢幕畫面會變成灰階狀，中間隱約有一對大小齒輪圖形，

不知道公司的電腦會不會也有這種狀況0.0
剛試玩了一下逐行偵錯，用滑鼠點......點的好辛苦XD
星期一上班，再測試公司的逐行偵錯~~

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

5^#

發表於 2011-2-19 22:26 | 只看該作者

回復 3# kimbal
嗯~
我會先關閉那幾行程序，先觀察看看它的執行狀況是不是和家裡的電腦一樣，
再來試試逐行偵錯~

版主 Rank: 7 Rank: 7 Rank: 7

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

6^#

發表於 2011-2-19 22:51 | 只看該作者

這部份我想建議一下
在每個模組與THISWORKBOOK與Sheet 中
程式最上方
單獨加上這個Option Explicit
確保定義
再執行程式看看
----------------------------------------
以前要跑成本計算上萬比，多製程成本差不多要半小時。
多測幾台電腦，看看，如果是沒安裝，應該會有錯誤訊息，而不是20分鐘跑出來

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

7^#

發表於 2011-2-20 21:58 | 只看該作者

回復 6# HUNGCHILIN
我已把Option Explicit加入，並未發現異樣，
我想，可能是之前不當的引用項目，
變量未聲明的部份都已被我修正過了...
明天到公司再試看看有什麼異常現象~

ps.大師的大頭貼換了XD

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

8^#

發表於 2011-2-21 20:53 | 只看該作者

今天到公司，做了以下的測試...
我先以加入Option Explicit的程式碼執行，除了慢以外並無異常現象。
再來就是，關閉Application.ScreenUpdating = False觀察它的執行狀況，
它以10幾秒的速度在做切換.....人事管理.xls和出勤績效.xls
(家裡的電腦是以半秒的速度做切換)
後來，我做逐行偵錯....按著F8不放~
很明顯的程序卡在..開啟檔案和關閉檔案這兩行(各約10幾秒)
Workbooks.Open Filename:="D:\人事管理\出勤績效.xls
Windows("出勤績效.xls").Close
請問各位大大，在什麼狀況下，會導致開啟、關閉檔案速度變慢??