伊莉討論區

標題: Excel VBA 撰寫即時股票看盤系統 (一) 數字小時鐘 [打印本頁]

作者: MarryHenry 時間: 2019-6-6 08:55 AM 標題: Excel VBA 撰寫即時股票看盤系統 (一) 數字小時鐘

近日完成在 Excel 上用 VBA 撰寫一個簡單的即時股票看盤系統 ,
與大家分享 ,
首先要做一個 Timer 計時器功能 , 也就先做了個數字小時鐘 :
先定義了個公共變數作為告訴時鐘 on/off 之用
Public Toff_N As Boolean

設了兩個 on/off 按鈕
Sub 按鈕_Click_on()
   Toff_N = False
   Ton_StartTime
End Sub
Sub 按鈕_Click_off()
   Toff_N = True
End Sub

每間隔一秒抓取系統時間呈現
Sub Ton_StartTime()
   Cells(3, 1) = Format(Time, "h:mm:ss")
   If Toff_N = True Then End
   dTime = Now + TimeValue("00:00:01")
   Application.OnTime dTime, "Ton_StartTime"
End Sub

重點一 :
用 Application.OnTime 執行定時自我迴圈 ( 相當 Timer 功能 )
重點二 :
用公共變數來判斷 , 用 End 來終止迴圈

不好意思一 :
分幾個部分分次分享 , 以免落落長
不好意思二 :
不會貼圖 , 無法呈現結果樣貌

作者: MarryHenry 時間: 2019-6-6 09:04 AM

結果樣貌 :

[attach]127557722[/attach]

作者: jsc0518 時間: 2019-6-11 04:01 PM

Dear MarryHenry,
可以分享您設計的 Excel 檔案嗎?
Thanks！

作者: ymgking 時間: 2019-9-26 07:57 AM

可以分享您設計的 Excel 檔案嗎? 3Q

作者: 禹傑2 時間: 2019-9-26 10:29 PM

可以分享您設計的 Excel 檔案嗎? 我套上程式碼還是編譯不出，沒反應啊!

作者: MarryHenry 時間: 2019-9-27 05:08 AM

不好意思啊 ,
我不習慣直接從網路下載 Excel 檔案 ,
因為有安全顧慮 ,
同樣我也不太想把 Excel 檔案直接上傳網路分享 ,
我習慣找 Google 大神尋找我需要的指令 , 某個動作的解決方案 ,
截取部分指令在自己的巨集中測試使用 ,
我不介意分享我的程式碼 ,
當然也不能直接套上就用啊 !
不好意思啊 !

歡迎光臨伊莉討論區 (http://a04.eyny.com/)