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

投資組合監測系統

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

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

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

回復 1# hkcarnby


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

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

感覺有點像DDE，不過這要高級多了{:4_121:}

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
頁: [1]
查看完整版本: 投資組合監測系統