excel中vba里的ontime函數的使用方法

小編致力於為大家奉獻最有效的經驗，讓大家能夠解決掉問題，但是大家也都知道，每個人遇到的情況都是不一樣的，大家在看小編經驗的同時，除了跟隨操作，也需要自己的思考，舉一反三的解決問題，這樣才會變得更加有內涵，成為和小編一樣的經驗達人。excel中vba里的ontime函數的使用方法，這里，讓小編給大家介紹一下。

 

工具/原料

 

• excel2016
• 此經驗本人原創首發，未經本人許可請勿轉載。

方法/步驟

 

1. 1

   首先我們打開一個工作樣表作為例子。

   
2. 2

   我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，並在模塊中輸入以下代碼：

   Sub proce()

   Range("a1") = Format(Time(), "h:mm:ss")

   End Sub

   
3. 3

   這段代碼是在a1單元格內輸入時間，並且格式是小時：分鍾：秒的形式。運行這段代碼。會在a1單元格內現實當前的時間。如果我們需要時鍾運行起來，我們可以使用一個循環語句，並設置無限循環。

   
4. 4

   寫了一個go循環，可以實現計時，但是效率低，無實用性，這時候我們就需要使用ontime函數來定時觸發proce過程，同樣實現時鍾運行的目的，但是代碼效率高的多。

   Option Explicit

   Dim i As Integer

    

   Sub proce()

   i = 0

   1 If i = 0 Then

    

   Range("a1") = Format(Time(), "h:mm:ss")

   End If

   GoTo 1

   End Sub

   
5. 5

   我們輸入以下代碼

   Sub runtimer()

   Application.OnTime Now() + TimeValue("00:00:01"), procedure:="proce"

   End Sub

   
6. 6

   可以看到我們設置了當前時間加1秒時重復運行proce過程，然后在proce過程中添加runmimer（）過程，那么兩個過程交互調用，每隔1秒就運行一次，這就是ontime函數的定時運行功能。這種方式下代碼運行的效率提高，就可以同時並行處理其他的工作。而不是時刻占用處理線程。

   
7. 7

   先寫到這里了，謝謝大家的觀看。

   祝大家生活愉快。

   小編還有許多其他的經驗可以觀看，如果無法解決問題可以聯系小編進行咨詢。

   看不清楚圖片的可以點擊放大再看哦。