- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office2013
- 閱讀權限
- 10
- 註冊時間
- 2018-7-10
- 最後登錄
- 2018-8-13
|
用EXCEL VBA紀錄每秒鐘記錄數值跳動的巨集
本帖最後由 hom770706 於 2018-7-25 20:49 編輯
大家好
我是完全沒有程式背景的新手
最近開始研究股票以及想用Excel紀錄當下的一些數值
方便盤後分析和研究
由於完全沒有背景
所以參考網上找到的程式碼加以修改欄位或格式
但發現都跑不出來
目前希望以秒為單位
分別記錄下當時的幾個數值(如圖所示)
而跳動的數據則是在工作表1中的B4, B10 以及N13
參考的程式碼修改後(只先試著放入一個數據)- Sub Schedule()
- DoEvents
- If Sheet2.Cells("A2") = 1 Then '當這個欄位值為1的時候開始紀錄
- Call record
- Call timer_Start
- End If
- End Sub
- Sub timer_Start()
- Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True
- End Sub
- Sub timer_Stop()
- On Error Resume Next
- Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False
- End Sub
- Sub record()
- Sheet2.Cells("B2") = Sheet2.Cells("B2") + 1
- Sheet2.Cells(Sheet2.Cells("B2"), 3) = Sheet1.Cells("B10")
- End Sub
或請大大指導有哪方面的書籍或網站可以查詢和學習
萬分感謝 |
|
發表於 2018-7-25 20:48
| 
