查看完整版本: Excel VBA 撰寫 即時股票看盤系統 (一) 數字小時鐘

論壇 › Visual Basic 語言 › 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 來終止迴圈

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


...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

MarryHenry 發表於 2019-6-6 09:04 AM

結果樣貌 :

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 檔案嗎?   我套上程式碼 還是編譯不出，沒反應啊!<br><br><br><br><br><div></div>

MarryHenry 發表於 2019-9-27 05:08 AM

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