步驟

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

2、使用alt+f11進入vbe編輯器，插入一個新的模塊，并在模塊編輯框中輸入以下代碼：

ption Explicit

Sub MyMacro()

Dim dTime As Variant

dTime = Now + TimeValue("00:00:01")

Application.OnTime dTime, "Sheet3.MyMacro", , True

With Range("A1")

.Value = Now

.NumberFormat = "hh:mm:ss"

End With

End Sub

3、這里我們將變量聲明為不特定類型變量，然后對變量dTime賦值為當前時間返回值，并設定一個延時1秒的定義。

4、接著我們用ontime函數來做一個定時處理，以dtime變量定義的時間來執行MyMacro這個宏過程。

5、這里使用with函數來簡寫RANGE（"a1")這段代碼，使用方法很簡單，在with后的屬性代碼都是表示的range（“a1”）這個對象的屬性。

6、將其值賦值為now當前時間，并以日期格式進行輸出，如果不加固定格式的輸出，那么輸出的值會以當前工作表單元格的格式設置輸出形式。

以上就是excel vba制作一個數字時鐘方法介紹，操作很簡單，大家按照上面步驟進行操作即可，希望能對大家有所幫助！