股票超連結

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

論壇贊助勳章

2^#

發表於 2016-4-2 01:48 | 顯示全部帖子

回復 2# 准提部林

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

michael

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

論壇贊助勳章

3^#

發表於 2016-4-2 13:37 | 顯示全部帖子

回復 4# 准提部林

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

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

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

michael

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

論壇贊助勳章

4^#

發表於 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

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

論壇贊助勳章

5^#

發表於 2016-4-5 22:33 | 顯示全部帖子

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

michael