股票超連結

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

2^#

發表於 2016-3-20 13:30 | 只看該作者

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

chairles59

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

3^#

發表於 2016-4-2 01:48 | 只看該作者

回復 2# 准提部林

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

michael

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

4^#

發表於 2016-4-2 09:13 | 只看該作者

回復 3# chairles59

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

chairles59

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

5^#

發表於 2016-4-2 13:37 | 只看該作者

回復 4# 准提部林

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

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

King1000_金千里股票監看系統.rar (27.52 KB)

michael

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

6^#

發表於 2016-4-2 15:41 | 只看該作者

回復 5# chairles59

If uMode = 1 Then Call 逐筆記錄

把藍色部份去掉即可

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

7^#

發表於 2016-4-2 15:48 | 只看該作者

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

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

8^#

發表於 2016-4-3 23:51 | 只看該作者

回復 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

是不是這樣改手動更新全部也能把股票資料轉到另一個工作表
我試了按手動更新全部按鈕好像沒有反應

請大大在看哪裡有問題

michael