返回列表 上一主題 發帖

用EXCEL VBA紀錄每秒鐘記錄數值跳動的巨集

hom770706

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2018-7-10 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-7-25 20:48 | 顯示全部帖子

用EXCEL VBA紀錄每秒鐘記錄數值跳動的巨集

本帖最後由 hom770706 於 2018-7-25 20:49 編輯

大家好

我是完全沒有程式背景的新手
最近開始研究股票以及想用Excel紀錄當下的一些數值
方便盤後分析和研究

由於完全沒有背景
所以參考網上找到的程式碼加以修改欄位或格式
但發現都跑不出來

目前希望以秒為單位
分別記錄下當時的幾個數值(如圖所示)


而跳動的數據則是在工作表1中的B4, B10 以及N13
參考的程式碼修改後(只先試著放入一個數據)
  1. Sub Schedule()
  2. DoEvents
  3. If Sheet2.Cells("A2") = 1 Then '當這個欄位值為1的時候開始紀錄
  4.     Call record               
  5.     Call timer_Start         
  6. End If
  7. End Sub

  9. Sub timer_Start()
  10. Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True
  11. End Sub

  13. Sub timer_Stop()
  14. On Error Resume Next
  15. Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False
  16. End Sub

  18. Sub record()
  19. Sheet2.Cells("B2") = Sheet2.Cells("B2") + 1
  20. Sheet2.Cells(Sheet2.Cells("B2"), 3) = Sheet1.Cells("B10")
  21. End Sub
複製代碼
還請各位大大不吝指教
或請大大指導有哪方面的書籍或網站可以查詢和學習
萬分感謝
收藏 分享

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題