盤中即時趨勢研判 EXCEL檔

s95105148

分享一個程式碼，不知道有沒有幫助，我不會寫程式

Private Sub Workbook_Open()
　　If Time >= TimeValue("09:00:00") And Time <= TimeValue("13:30:00") Then
　　　　Sheet1.[B12:E281] = "" '每天第一次開啟檔案時清除昨日資料
　　　　download
　　Else
　　　　Application.OnTime "09:01:00", "ThisWorkbook.download"
　　End If
End Sub
Private Sub download() '此程序與 Workbook_Open 同在 ThisWorkbook裡
　　Dim TimeRange As Range, Rng As Range, R As Range, i%
　　With Sheet1　'[A12:A281] 間必須已輸入 09:01 - 13:30 的時間
　　　　Set TimeRange = [A:A].Find(TimeSerial(Hour(Time), Minute(Time), "00"))
　　　　Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
　　　　For Each R In .Range("D1,D3,F2,D5")
　　　　　　i = i + 1
　　　　　　Rng(i) = R
　　　　Next
　　End With
　　If Time > TimeValue("13:30:00") Then Exit Sub
　　Application.OnTime Now + TimeValue("00:01"), "ThisWorkbook.download"
End Sub

mead

s95105148 發表於 12-5-14 11:26
分享一個程式碼，不知道有沒有幫助，我不會寫程式

Private Sub Workbook_Open()

謝謝您的熱心分享!
甘溫

s95105148

版大可以問一下有程式碼是否可以改成

mead

s95105148 發表於 12-5-14 12:04
版大可以問一下有程式碼是否可以改成

抱歉!我不會寫程式
我是用公式的方式去實現  但很繁瑣和麻煩  搞了近一個月才有小成

s95105148

自動記錄每分鐘委買賣均值-範例.rar (11.08 KB, 下載次數: 84)

12-5-14 13:31 上傳

點擊文件名下載附件

版大我有抓到一個檔案你研究看看

mead

s95105148 發表於 12-5-14 13:30
版大我有抓到一個檔案你研究看看

檔案不能下載ㄋㄟ  說要付費  但點下去跳到此討論首頁
麻煩CHECK一下!

s95105148

mead 發表於 12-5-14 14:42
檔案不能下載ㄋㄟ  說要付費  但點下去跳到此討論首頁
麻煩CHECK一下!

好阿寄給你 給我資料吧

mead

s95105148 發表於 12-5-14 19:26
好阿寄給你 給我資料吧

謝謝  感恩  
因一直沒回覆  已上網搜到了  且也改好準備明天測一下可不可行

s95105148

不好意思內大大下午有事在忙

mead

s95105148 發表於 12-5-14 19:52
不好意思內大大下午有事在忙

沒關係啦  有測好再提供給您參考

s95105148

mead 發表於 12-5-14 20:13
沒關係啦  有測好再提供給您參考

大大我有寄信到你的信箱囉 謝謝大大

mead

s95105148 發表於 12-5-15 10:38
大大我有寄信到你的信箱囉 謝謝大大

已傳  請注意查收!

kevin815

感謝大大分享~~~~ 買了

Oliver

先聲明, 沒有要替人打廣告,,,,,,

16:30  陳X宇 在 CH90 "趨勢大X家" 有開節目, 內容大略提到這個工具.  
不過, 我看了二天還是看不出個所以然.  有興趣的期友不妨參考看看.
(今天晚上好像有免費講座)

KKGUN168

感謝分享 來研究看看...