[問題] vba被f(x)卡住的問題

看板Office作者 (給開司一罐蘇格登)時間9年前 (2016/10/04 05:07), 編輯推噓1(104)
留言5則, 2人參與, 最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: 版本: 小弟的excel報表目前在慢慢鍛煉中 總檔案41mb多 因為之前不會vba 所以很多都用f(x)來寫 目前已經開始慢慢重寫轉由vba來運算,減輕壓力 評估未來可少掉10-20多mb 不過小弟遇到一個問題 我目前蠻多的引數都是靠f(x)的排序或者索引來代入 當我將15000-20000筆的網頁原始碼以純文字匯入後 竟然發現某行程式碼出問題 Sheets("員工分析").Range("a:k").ClearContents Sheets("原始碼").Range("a:k").Copy Sheets("員工分析").Range("a:k").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 在這樣的情況下,他說發現錯誤,幾乎都是第三行跟第四行出錯 然後我改成以下這樣 Sheets("員工分析").Select Sheets("員工分析").Range("a:k").ClearContents Sheets("原始碼").Select Sheets("原始碼").Range("a:k").Copy Sheets("員工分析").Select Sheets("員工分析").Range("a:k").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 用select來當作緩衝的時間巴Q.Q (自以為啦) 但確實程式碼就不再出問題了 懷疑有時後vba會被來不及運算的excel工作表,或者被f(x)還來不及運算完 導致excel工作表,來不及運作 不曉得小弟的猜測是否有錯 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.158.244 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1475528828.A.21B.html

10/04 14:01, , 1F
最扯的一頁有15*3萬多個f(x)運算
10/04 14:01, 1F

10/04 16:21, , 2F
2010 版本? 轉成二進位 壓縮 檔案
10/04 16:21, 2F

10/04 16:21, , 3F
可砍一半 size
10/04 16:21, 3F

10/04 17:12, , 4F
謝謝 慢慢來 我昨天已經靠vba刪掉大概30多萬個f(x)
10/04 17:12, 4F

10/04 17:13, , 5F
就原先是靠f(x) 改成用vba傳純文字這樣
10/04 17:13, 5F
文章代碼(AID): #1NyiXy8R (Office)
文章代碼(AID): #1NyiXy8R (Office)