誰能幫這幾乎重複動作的VBA瘦身謝謝 - Excel程式區

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

22^#

發表於 2015-8-29 11:58 | 顯示全部帖子

回復 40# azrael19

看起來很妥當了
我看您要求改的部分是4捨5入看起來那些格內值並沒有改變但為何比對結果就正確了???
另外為何我只要開啟您的檔案我未做任何動作便關上它就會提示資料已更改問我要不要存檔???
為何您的檔案超級小且執行起來也很快(跟我寫的比) ?
您真的是高手中的高手

謝謝您了

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

23^#

發表於 2015-8-29 14:52 | 顯示全部帖子

回復 42# azrael19
感謝您的用心我從沒正式的上過PC相關的課只為了安心的投資股票
所以才土法煉鋼用最簡單基本的函數寫了數個"大巨蛋"
那些我寫的"大巨蛋" 居然有單一檔就超過700mb 執行起來還真慢所以也是為了將檔案瘦身才來麻辣家族求救
來到麻辣家族還算真的很受益謝謝您大力的幫助我真心的感謝您
您說用VBA會更快? 您完成的已經很快了我還真想看看vba能快到什麼程度
您說如果我再用您幫我完成的檔案再發一次帖會不會被人當成灌水發帖?

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

24^#

發表於 2015-8-29 19:13 | 顯示全部帖子

回復 47# 准提部林
希望您有辦法幫我若可以的話附上說明我也很想學

附上貴人們的指導後完成的檔案希望能多提供改善的地方謝謝您

大盤2011-12-19起.rar (135.89 KB)

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

25^#

發表於 2015-8-29 21:45 | 顯示全部帖子

本帖最後由 lcctno 於 2015-8-29 21:47 編輯

回復 49# 准提部林

[attach]21867[/attach]

可能是判讀的程式碼不同所至請看附件內紫色的部分由於這執行檔是能要讓股票及指數來使用還請費心了

謝謝您的辛勞

如果基準值(比較點) >= 列之最低價同時 <= 列之最高價就給 1
也就是說只要基準值(比較點)有在區間內就給1
=IF(AND(基準值>=Data!D3,基準值<=Data!C3),1,"")

TEST03.rar (170.23 KB)

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

26^#

發表於 2015-8-29 23:32 | 顯示全部帖子

回復 51# 准提部林
您這次的結果是正確的我很奇怪不知道我這邊那裏出問題這次執行的結果又跟您修改過的一樣我從早上幾乎(只有短暫的離開) 一直坐在電腦前可能頭腦不清醒了我頭真的大了 ...
看來還有得忙了
謝謝您的幫助我說一下我的內心話有一些東西對於會的人來說認為是很淺顯的但對初接觸者真的是比登天還難請原諒我的無知因而造成您的困擾謝謝您了

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 123
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2024-5-8

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

27^#

發表於 2015-8-30 02:22 | 顯示全部帖子

本帖最後由 lcctno 於 2015-8-30 02:24 編輯

回復 46# ML089

感謝版大再次的提醒
我可能因為從昨天6點多弄到現在
已超過20小時未休息
應該老人家精神無法負荷
10幾個檔案在瘦身
應該是忙中有錯
麻煩您看這檔案是否如您告知及是否已正確的修改了
謝謝您的關愛

我該睡了晚安

大盤2011-12-19起.rar (120.93 KB)