vba 累加問題

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 45
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-10-24 22:43 | 只看該作者

本帖最後由 Hsieh 於 2011-10-24 23:10 編輯

Sub ex()
Set d = CreateObject("Scripting.Dictionary") '紀錄B、C欄的值
Set d1 = CreateObject("Scripting.Dictionary") '記錄每秒第一個出現的的價格
For Each a In Range([A2], [A2].End(xlDown)) '在A欄位做迴圈
If d.exists(a.Value) = False Then '如果A的值沒被記錄在d字典內
d(a.Value) = Array(a.Offset(, 1).Value, a.Offset(, 2).Value) '將B、C欄的值記錄到d字典內
d1(a.Value) = a.Offset(, 1).Value '記住每秒第一個出現的的價格
Else
ar = d(a.Value) '取出d字典對應的內容
ar(0) = a.Offset(, 1).Value - d1(a.Value) '把B欄的值減掉對應A欄的值(第一次出現的值)
ar(1) = ar(1) + a.Offset(, 2).Value 'C欄位加上前加總的值
d(a.Value) = ar '把陣列回存到字典中
End If
Next
[F2].Resize(d.Count, 1) = Application.Transpose(d.keys) '把每秒的字串(字典索引值)寫入
[G2].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items)) '把字典內容寫入
End Sub

複製代碼

回復 1# color790

學海無涯_不恥下問

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

3^#

發表於 2011-10-24 22:59 | 只看該作者

本帖最後由 color790 於 2011-10-24 23:03 編輯

感謝超級版主的協助, 感恩再感恩.....
中間價格的計算好像有點錯誤, 如時間在8450300, 8451500, 8452700....
但小弟只會比較基本的語法, 這個比較不懂, 可否麻煩版主幫我註解一下, 讓我多學一點, 謝謝~

初學者color

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 45
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-10-24 23:36 | 只看該作者

回復 3# color790

你A欄的資料沒有完全群組到
重新排序過你就會發現

學海無涯_不恥下問

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

5^#

發表於 2011-10-24 23:53 | 只看該作者

回復 color790

你A欄的資料沒有完全群組到
重新排序過你就會發現
Hsieh 發表於 2011-10-24 23:36

版主,我不太懂群組到的意思? 重新排序後, 結果好像是一樣......

初學者color

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 45
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-10-25 00:08 | 只看該作者

回復 5# color790

原本A26:A44是8450300共19筆資料
排序後變成A30:A50是8450300共21筆資料

學海無涯_不恥下問

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

7^#

發表於 2011-10-25 14:46 | 只看該作者

回復 color790

原本A26:A44是8450300共19筆資料
排序後變成A30:A50是8450300共21筆資料
Hsieh 發表於 2011-10-25 00:08

嗯........我懂了, 原來是資料我有整理, 所以有這個問題
另外再問一下, 例如8451500 這個時間, 由於它只有一筆資料, 所以它只會顯示相對的價格, 這個有解嗎?

初學者color

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 45
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-10-25 15:11 | 只看該作者

回復 7# color790

只有一筆資料, 所以它只會顯示相對的價格, 這個有解嗎?

要解甚麼?

學海無涯_不恥下問

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

9^#

發表於 2011-10-25 15:37 | 只看該作者

就是讓它自己減自己或是直接顯示為0, 謝謝版主的回答

初學者color

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 45
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-21

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-10-25 16:11 | 只看該作者

回復 9# color790

Sub ex()
Set d = CreateObject("Scripting.Dictionary") '紀錄B、C欄的值
Set d1 = CreateObject("Scripting.Dictionary") '記錄每秒第一個出現的的價格
For Each a In Range([A2], [A2].End(xlDown)) '在A欄位做迴圈
If d.exists(a.Value) = False Then '如果A的值沒被記錄在d字典內
d1(a.Value) = a.Offset(, 1).Value '記住每秒第一個出現的的價格
d(a.Value) = Array(d1(a.Value) - a.Offset(, 1).Value, a.Offset(, 2).Value) '將B、C欄的值記錄到d字典內
Else
ar = d(a.Value) '取出d字典對應的內容
ar(0) = a.Offset(, 1).Value - d1(a.Value) '把B欄的值減掉對應A欄的值(第一次出現的值)
ar(1) = ar(1) + a.Offset(, 2).Value 'C欄位加上前加總的值
d(a.Value) = ar '把陣列回存到字典中
End If
Next
[F2].Resize(d.Count, 1) = Application.Transpose(d.keys) '把每秒的字串(字典索引值)寫入
[G2].Resize(d.Count, 2) = Application.Transpose(Application.Transpose(d.items)) '把字典內容寫入
End Sub

複製代碼

學海無涯_不恥下問