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

帖子: 522
主題: 55
精華: 0
積分: 599
點名: 41
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-2-17

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

59^# 跳轉到 »

發表於 2015-8-30 14:02 | 只看該作者

回復 57# lcctno

計算不一致的地方是 [Data!D4960] 8550.60，比對 [結果!A1917] 的 8550.60
剛好是在比對的邊界值而造成浮點算數的問題
假如 VBA 程式的比較式做一個處理就可以了
Sub 分析發生次數()
   Dim Arr, Brr, Cunt&, Crr%(), R&, X&, Y&, TM, j%, k&, SU%
   Const Zero = 0.00000001 '這是一個很小而不影響  "實用上的精度"  的數值
..............
..........
  ' If Brr(j, 1) >= Arr(k, 2) Then If Brr(j, 1) <= Arr(k, 1) Then SU = SU + 1
'改為：
   If Brr(j, 1) >= Arr(k, 2) - Zero Then If Brr(j, 1) <= Arr(k, 1) + Zero Then SU = SU + 1

..................
.........
End sub

以上請參考

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

58^#

發表於 2015-8-30 12:35 | 只看該作者

回復 57# lcctno

=ROUND(IF(Data!K$4+Data!L$4*(ROW()-4) > Data!K$2, "", Data!K$4+Data!L$4*(ROW()-3)),2)
這公式到最後會有〔錯誤值#Value〕，是因遇空字符""，又將ROUND放在最外圈，下一式就ＯＫ，
=IF(Data!K$4+Data!L$4*(ROW()-4) > Data!K$2, "", ROUND(Data!K$4+Data!L$4*(ROW()-3),2))

excel公式及vba可能用的〔精準度〕不同，所以有時同一數值產生不同結果，
以A1917為例，公式：=IF(Data!K$4+Data!L$4*(ROW()-4) > Data!K$2, "", Data!K$4+Data!L$4*(ROW()-3))

F1917公式：=A1917=8550.6　→結果　TRUE

Sub test()
　MsgBox [結果!A1917] = 8550.6　　 '→執行結果：FALSE
End Sub

這不是我的專業，恕無法再深入解說～

　

TOP

lcctno

中學生 Rank: 2

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

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

57^#

發表於 2015-8-30 11:16 | 只看該作者

回復 56# 准提部林
看來應該是ok了
我之前有試過 ROUND(原來的內容,2) 結果複製到底端空白處就出問題了
以及 trunc 2位數結束都是一樣底下部分有亂碼
謝謝您的用心幫助我
請問為何同樣的數字函數與vba 怎麼會看起是不一樣的比較值
有勞您了謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

56^#

發表於 2015-8-30 11:03 | 只看該作者

回復 55# lcctno

〔基準值〕有小數點，很容易造成〔浮點數〕，已告知使用ROUND處理，
例如：公式計算後的數據雖然顯示（看起來）為：0.15，
　　　按Ｆ９檢查，實際為0.149999999，
　　　有時按Ｆ９，仍顯示0.15，有浮點數但肉眼看不出來，（結果表A1917的8550.60，就是這樣），
　　　往往造成計算的誤差，這是EXCEL的宿命，
　　　所以，有小數的數據，最好養成習慣加ROUND加工一下～

Ａ３公式改為：
=IF(Data!K$4+Data!L$4*(ROW()-4) > Data!K$2, "", ROUND(Data!K$4+Data!L$4*(ROW()-3),2))　下刷到底

TOP

lcctno

中學生 Rank: 2

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

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

55^#

發表於 2015-8-30 09:56 | 只看該作者

回復 51# 准提部林

抱歉剛剛發現送錯檔了
54樓的不對

大盤vba2011-12-19起.rar (340.28 KB)

TOP

lcctno

中學生 Rank: 2

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

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

54^#

發表於 2015-8-30 08:35 | 只看該作者

回復 51# 准提部林
用您給的檔去試問題更多所以我就用我最後經過數位高手指導後所完成的檔案下去加上您那vba工程碼
執行結果還是無法完全吻合不知道那裏出問題麻煩高手的您幫忙分析一下
謝謝您的照顧

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

TOP

lcctno

中學生 Rank: 2

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

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

53^#

發表於 2015-8-30 02:22 | 只看該作者

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

回復 46# ML089

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

我該睡了晚安

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

TOP

lcctno

中學生 Rank: 2

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

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

52^#

發表於 2015-8-29 23:32 | 只看該作者

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

51^#

發表於 2015-8-29 22:47 | 只看該作者

本帖最後由准提部林於 2015-8-29 22:48 編輯

Brr(j, 1) >= Arr(k, 2) 基準值(比較點) >= 列之最低價
Brr(j, 1) <= Arr(k, 1) 基準值(比較點) <= 列之最高價
　
結果表a欄因有〔浮點數〕問題，請使用=round(??,2)處理！
　
最低價小于７的只有四筆：第８０１～８０４列
2008/10/27 6.68 6.79 6.68
2008/10/28 6.29 6.48 6.23
2008/10/29 6.67 6.67 6.52
2008/10/30 6.50 7.11 6.50
若從2008/11/21（第８２０列）往下統計，則基準值７以下應都為０，
若從第２列至全部統計，總數為：89502

程式碼並不難，多看幾次應可自行修改！

TEST03v2.rar (162.44 KB)
　

TOP

lcctno

中學生 Rank: 2

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

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

50^#

發表於 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)

TOP

[發問] 誰能幫這幾乎重複動作的VBA瘦身謝謝

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 誰能幫這幾乎重複動作的VBA瘦身 謝謝

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 誰能幫這幾乎重複動作的VBA瘦身謝謝