Excel表格上面做動態時鐘顯示
在Excel表格的單位格上面插入時候函數公式=NOW()時，顯示出來的時候是不會動態更新的。我們可以經由過程Excel表格上面的VBA進行編寫一個動態時鐘的法式，使得表格上面的時鐘閃現出動態更新。
東西/原料
- Excel 2010
方式/步調
- 1
桌面上新建一個Excel表格文件，之后進行打開。
- 2
點擊【文件】，【另存為】。
- 3
文件定名為《動態時鐘VBA》，在文件保留類型里面選擇“啟用宏的工作薄”。
- 4
打開《動態時鐘VBA》，點擊【文件】，【選項】。
- 5
在“Excel選項”對話框里面點擊【自界說功能區】，在右側將【開辟東西】選上，然后點擊【確定】。（若是東西欄上面已經有【開辟東西】，第四、五步就忽略失落）
- 6
在“Excel選項”對話框里面點擊【信賴中間】，【信賴中間設置】，在“信賴中間”對話框里面點擊【宏設置】，選擇“啟用所有宏”。（若是已經啟用宏功能，此步忽略）
- 7
點擊東西欄上面的【開辟東西】，【Visual Basic】。
- 8
在“VBAProject （動態時鐘VBA.xlsm）”上面單擊右鍵，選擇“插入”，“模塊”。
- 9
在“屬性-模塊1”里面將“模塊1”重定名為“AotoTime”。（對于2007及之前的版本，模塊的定名最好是不要利用中文，以免再次打開時犯錯）
- 10
在代碼窗口輸入以下法式代碼：
Sub AotoTime1()
Dim NewTime As Date '界說NewTime的數據類型
Set myDocument = ThisWorkbook.Worksheets("Sheet1") '界說工作表
NewTime = Now + TimeValue("00:00:01") '更新時候是1秒
myDocument.Range("A2").Value = Time 'Sheet1 A2單位格顯示動態時候
Application.OnTime NewTime, "AotoTime2" '放置一個過程在未來的特按時間（Newtime）運行，挪用Aoto2
End Sub
Sub AotoTime2()
Call AotoTime1 '挪用Aoto1
End Sub
- 11
將光標放置于法式內，點擊“運行”圖標即可。（若是光標位于法式外，點擊“運行”圖標時，將會呈現選擇”AotoTime1“或”AotoTime“的宏對話框，選擇其一即可。）
- 12
Excel表格上面可以看到動態的時候顯示。
注重事項
- Excel表格的VBA法式貴在多利用，多操練，熟能生巧。
- 發表于 2018-08-05 00:00
- 閱讀 ( 2061 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章