股票超連結

chairles59

各位大大好:
想做一個股票超連結程式
但是還是做不起來
請大大有空幫我修改一下
謝謝

准提部林

實在看不懂要做何種連結, 也許這個可以參考,
EXCEL．金千里．奇摩股票自動更新監看系統 >>> (以前的草做檔, 自己寫的自己用不到, 恕無法個別修改程式)
http://blog.xuite.net/smile1000mile/blog/95104599

chairles59

回復 2# 准提部林

請教大大:
您的網站如何申請成為會員
我有一些金千里．奇摩股票自動更新監看系統 問題想請教您

准提部林

回復 3# chairles59


我不收會員，也不收費為人寫程式，
有問題可在此論壇發帖，但需求必須說詳細，
況且對網頁的處理，這裡有更高超的人，應可以得到更好的方案！！！

chairles59

回復 4# 准提部林


    金千里．奇摩股票自動更新監看系統
自動更新才能把股票資料轉到另一個工作表

如何更改手動更新全部也能把股票資料轉到另一個工作表
我想把每天監看的股票成交資料自動做到另一個工作表當成紀錄
如果在交易時間結束,用自動更新後的有時會有相同資料兩三筆
謝謝大大的這個程式

准提部林

回復 5# chairles59


If uMode = 1 Then Call 逐筆記錄

把藍色部份去掉即可

准提部林

Sub 逐筆記錄()
Dim DSht As Worksheet, dEnd As Range
On Error GoTo 999
Set DSht = ThisWorkbook.Sheets(uRng.Text)
With DSht
　　.[B1] = uRng: .[D1] = uRng(1, 2): .[E1] = ""
　　Set dEnd = DSht.[A65536].End(xlUp)(2)
　　If dEnd.Row < 3 Then Set dEnd = DSht.[A3]
　　If dEnd(0, 5) = uRng(1, 7) Then Exit Sub　　'加入這一行，當成交量未變動，不記錄！！！　
　　dEnd.Resize(1, 5) = uRng(1, 3).Resize(1, 5).Value
　　If dEnd.Row > 3 Then dEnd(1, 6) = dEnd(1, 5) - dEnd(0, 5)
　　dEnd(1, 7).Value = CDate(Date + uTime)
End With
999: End Sub

chairles59

回復 7# 准提部林

準大大:
不好意思
可能我vba不是很強
如何更改手動更新全部也能把股票資料轉到另一個工作表
If uMode = 1 Then Call 逐筆記錄

把藍色部份去掉即可


Sub 更新全部()
Call 共用參照: If uRow <= 0 Then Exit Sub
uHead(0, 0) = "※更新中.............."
uHead(2, 12).Resize(uRow).ClearContents
For Each uRng In uClmnNo
    uRng(1, 3).Resize(1, 10).ClearContents
    If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
    Call 擷取資料
   
    If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
    'If uMode = 1 Then Call 逐筆記錄 '只在〔自動更新〕模式下才記錄
   Beep
101: Next
uHead(0, 0) = "※更新時間：" & Format(Now, "yyyy/mm/dd hh:mm:ss")
ThisWorkbook.Save
End Sub
   
是不是這樣改手動更新全部也能把股票資料轉到另一個工作表
我試了按手動更新全部按鈕好像沒有反應

請大大在看哪裡有問題

准提部林

1. Sub 更新全部()
   
2. Call 共用參照: If uRow <= 0 Then Exit Sub
   
3. uHead(0, 0) = "※更新中.............."
   
4. uHead(2, 12).Resize(uRow).ClearContents
   
5. For Each uRng In uClmnNo
   
6.     uRng(1, 3).Resize(1, 10).ClearContents
   
7.     If uRng = "" Then uRng(1, 2).ClearContents: GoTo 101
   
8.     Call 擷取資料
   
9.     If GetStr = "" Then uRng(1, 2).ClearContents: GoTo 101
   
10.     Call 逐筆記錄
    
11.     Beep
    
12. 101: Next
    
13. uHead(0, 0) = "※更新時間：" & Format(Now, "yyyy/mm/dd hh:mm:ss")
    
14. ThisWorkbook.Save
    
15. End Sub

複製代碼

chairles59

回復 9# 准提部林
准提大大:
這兩天測試好像還是一樣
可能我的功力還不夠
不過還是謝謝大大耐心的講解
等我程度高些再請教