步驟

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

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

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、這里我們將變量聲明為不特定類型變量，然后對(duì)變量dTime賦值為當(dāng)前時(shí)間返回值，并設(shè)定一個(gè)延時(shí)1秒的定義。

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

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

6、將其值賦值為now當(dāng)前時(shí)間，并以日期格式進(jìn)行輸出，如果不加固定格式的輸出，那么輸出的值會(huì)以當(dāng)前工作表單元格的格式設(shè)置輸出形式。

以上就是excel vba制作一個(gè)數(shù)字時(shí)鐘方法介紹，操作很簡(jiǎn)單，大家按照上面步驟進(jìn)行操作即可，希望能對(duì)大家有所幫助！