投資組合監測系統

hkcarnby · 發表於 10-7-5 01:37

本帖最後由 hkcarnby 於 10-7-5 01:48 AM 編輯

投資組合監測系統，用了ＶＢＡ寫的ＥＸＣＥＬ
按ＲＥＦＲＥＳＨ　ＰＲＩＣＥＳ時會自動更新投資組合中的股票最新價格
當其中一隻股票的市價比你預先設定的價格低１５％時
相關位置會變成紅色以作提示（低１０％時變成黃色）

Stock_Watch_List.rar (14.15 KB, 下載次數: 368)

Evil · 發表於 10-7-5 02:03

回復 1# hkcarnby

HK大的VBA功力好強哦,
我還在剛學習VBA階段,
剛看了EXCEL裡的巨集,請問怎麼寫,可以讓它去WEB更新價格啊?

清茶無糖 · 發表於 10-7-5 06:41

感覺有點像DDE，不過這要高級多了

hkcarnby · 發表於 10-7-5 13:38

Sub Update_Price()

nEnd = Sheets.Count

For i = 2 To nEnd
Worksheets(i).Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Next

Worksheets(1).Select
End Sub

Evil · 發表於 10-7-5 16:16

回復 4# hkcarnby

你的原始巨集碼,我有進去看,
但還是搞不懂,為什麼它會去網站上更新,
看不出連結在哪裡....
我太笨了..

hkcarnby · 發表於 10-7-5 18:54

本帖最後由 hkcarnby 於 10-7-5 07:08 PM 編輯

我把連結放在工作表(sheet)上
並沒有寫進巨集中
好處是修改或加入新連結時不用每次修改巨集
關於如何連結去網站上更新可以看這兒
http://www.coco-in.net/viewthread.php?tid=4046&extra=page%3D1
有圖可以參考
http://www.dotblogs.com.tw/dotjason/archive/2010/04/13/14546.aspx

		自動登錄	找回密碼
密碼			註冊

投資組合監測系統

相關帖子