帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-5-24 21:35 | 只看該作者

[發問] (已解決)股市買賣點可以用字典做嗎

本帖最後由 freeffly 於 2012-5-25 16:29 編輯

S欄市收盤價>10均且>20均得出的結果
T欄則是上面的相反
我本來是想直接抓出U欄的資料(第一個符合的資料及最後一個)
但是我不知道在VBA中是否有方法直接抓出來
做出U欄的資料我想做出W2:Y2這樣的資料
就是算出每一次符合的情況下的差異
不知道這個有辦法寫出來嗎
最近在學字典不過還在接觸當中還沒一個想法
請高手協助

100000.rar (473.87 KB)

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

15^#

發表於 2012-5-28 08:59 | 只看該作者

回復 14# jsleee

免費交易軟體裡面的資料

字典兩各字還真難理解

TOP

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

14^#

發表於 2012-5-26 17:53 | 只看該作者

回復 1# freeffly

請教大大，你檔案中的大盤資料是如何取得的？
是透過擷取網頁資料的方式嗎？有無相關的程式碼可以分享
謝謝

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

13^#

發表於 2012-5-25 16:18 | 只看該作者

回復 12# Hsieh

版主講的好詳細
讓我有些理解
我想我可能要透過很多例子才能自己運用

雖然字典不是唯一方法
但是字典很炫
而且速度很快
讓我想要學習

再來爬文...
路途還真遙遠

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

12^#

發表於 2012-5-25 16:09 | 只看該作者

回復 11# freeffly

字典顧名思義，每個索引值(key)會對應一個內容(item)
就如同國語字典，若以部首查詢，同部首的字會很多
部首就是索引值，而這些不同的字就是內容
如果索引值對應的內容是單一項目，那就比較容易理解
dictionary(key)=item
當對應內容不只一個的時候，你就要看你的內容要的是甚麼?
在此範例中，key是日期
當條件成立的時候要把這日期的收盤價紀錄下來
當然這是單一內容，不過，當你要寫入工作表時
是要有3欄的資料:1.日期，2.收盤價，3.價差
這個價差是2個日期的差額，若要在字典內取得前一個的價格，會增加許多困難
所以，將第3欄用公式帶入，在該有公式的時候讓陣列的第3個元素寫入公式
這樣跑完全部資料後，字典就會有若干個key
字典的count屬性就是key的數量
keys則表示所有的索引值，所形成的陣列
items則表示所有的內容
因為此範例中每個item都是一個一維陣列
所以items就等於是二維陣列
這邊要注意一點，如果二維陣列，原本只要直接寫入儲存格即可
在這邊items這個二維陣列，實際上他是一維陣列，只不過這個一維陣列的每個元素都包含著一個一維陣列
所以必須使用兩次的轉置(Transpose)動作，才會變成真正的二維陣列，才可直接寫入工作表

學海無涯_不恥下問

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

11^#

發表於 2012-5-25 15:24 | 只看該作者

回復 10# Hsieh

版主
這是我要的
而且不用經過S欄
字典果然很快
不過下面對我而言有點玄
f = IIf(d.Count > 0 And d.Count Mod 2 > 0, "=RC[-1]-R[-1]C[-1]", "")
d(Ar(i, 1)) = Array(Ar(i, 1), Ar(i, 5), f)
.[W2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))

看暸幾天的字典我以為有點理解字典現在又感覺離我更遙遠
我以為d.count 是去計算專案數應該要先有東西讓他算吧?
d.items在這裡是什麼項目?
可以從哪裡看到嗎?

字典兩各字還真難理解

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2012-5-25 14:48 | 只看該作者

回復 9# freeffly

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
Dim f$
With Sheet1
ar = .UsedRange.Offset(1).Value
For i = 2 To UBound(ar, 1) - 1
If ar(i, 5) > ar(i, 8) And ar(i, 8) > ar(i, 9) And ar(i, 8) > 0 And ar(i, 9) > 0 Then
If ar(i - 1, 9) = 0 Or ar(i - 1, 8) = 0 Or _
Not (ar(i - 1, 5) > ar(i - 1, 8) And ar(i - 1, 8) > ar(i - 1, 9)) Or _
Not (ar(i + 1, 5) > ar(i + 1, 8) And ar(i + 1, 8) > ar(i + 1, 9)) Then
f = IIf(d.Count > 0 And d.Count Mod 2 > 0, "=RC[-1]-R[-1]C[-1]", "")
d(ar(i, 1)) = Array(ar(i, 1), ar(i, 5), f)
End If
End If
Next
.[W2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.items))
End With
End Sub