返回列表 上一主題 發帖

[發問] 如何找出網站原始檔網址

g大你好,
是將'Sheets("巨集工作表").Select
改為Sheets("代碼").Select 嗎?
我巨集開始執行,是由(巨集工作表)開始的,
改為由代碼開始執行一樣會有,當掉無回應的問題
不好意思還請再幫我看一下謝謝

TOP

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

感謝G大的熱心幫忙
G大我發現有個奇怪現象,
當我在執行巨集當中如果想要,暫停巨集,按下組鍵CTRL+ESC+PAUSE,停止巨集後,->然後再次執行巨集會變成無法自動執行巨集,
都會執行一下後中斷,然後出現,(程式碼的執行己被中斷),必須重開電腦,這現象才會消除
以上測試用G大的程式碼或自己的都會是相同情況,

TOP

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

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

TOP

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

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


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

TOP

了解了,感謝G大,幫忙及指教

TOP

G大你好,之前程式,為了需求,做了一些修改,有些問題,想請G大麻煩幫我看一下
1.程式會無法自動執行,會中斷?
2.按F8逐行執行沒有問題,但發現執行下載後的資料與原始資料不同?

檔A.rar (74.39 KB)

TOP

G大,不好意思我指的問題程序是,報表整合1-new
程式會中斷及按F8執行,下載資料拿錯誤,都是此程序
謝謝G大

TOP

感謝G大熱心幫忙,問題1,己可正常執行了
另請教G大,因我這個檔案,內有很多函數,所以造成資料更新會變的很慢
所以執行巨集時會造成資料錯誤,如下圖
請教G大是否有程式碼,可解決此問題,還是只能將檔案分開為兩個(下載資料用,及分析用)

TOP

謝謝G大幫忙
回覆G大,我的設定是自動的沒錯,
用#39程式碼下載資料內容就正確了
我提供的檔案,有刪掉一些有函數工作表,所以跑起來會很慢
我做了一些測試
在有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了6秒,資料正確
在沒有刪工作表的檔案,用#39程式碼, 下載10個代碼,花了3分9秒,資料正確
在沒有刪工作表的檔案,用#36程式碼,下載10個代碼,花了1分30秒,資料左天測試,是錯誤的(#38情形),今天又測試一次,資料又變回正確了??不知道是什麼問題?
請教G大,理論上是否用#39方法,資料上較不會有問題,
為了下載資料的速度,盡量檔案內也不要太多函數

TOP

了解!感謝G大幫忙解答

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言,就如鑽石般珍貴;但對愚人來說,卻像是一把泥土,一點價值也沒有。
返回列表 上一主題