跳到主要內容

如何通過Excel中的“命令”按鈕更新或插入(當前)日期和時間?

通常,許多Excel用戶傾向於使用公式= NOW()插入時間戳。 使用此公式,每次打開工作簿時插入的時間戳將自動更新。 要隨時手動更新工作表中的日期和時間,如何實現? 本文將向您展示通過單擊Excel中的“命令按鈕”來更新當前日期和時間的方法。

通過帶有VBA代碼的命令按鈕更新日期和時間


通過帶有VBA代碼的命令按鈕更新日期和時間

請執行以下操作以通過Excel中的“命令”按鈕更新日期和時間。

1.單擊以插入命令按鈕 開發者 > 插入 > 命令按鈕(ActiveX控件)。 看截圖:

2.右鍵單擊插入的命令按鈕,然後單擊 查看代碼 從右鍵單擊菜單中。

3.在彈出 Microsoft Visual Basic for Applications 窗口,請用下面的VBA代碼替換原始代碼。

VBA代碼:通過Excel中的命令按鈕更新日期和時間

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

備註:在代碼中,CommandButton1是插入的命令按鈕的名稱。 A2是將顯示更新日期和時間的單元格。 請根據需要更改它們。

4.在“開發人員”選項卡下關閉“設計模式”。 單擊命令按鈕,然後將當前日期和時間插入到單元格A2中。

每次單擊命令按鈕時,單元格A2中的日期和時間都會立即更新。


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do i update the code to put the time/date stamp in the cell NEXT to the button so it applies to each row thereon
This comment was minimized by the moderator on the site
I have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
This comment was minimized by the moderator on the site
Hi Michelle,
After saving the workbook as an Macro-Enabled Excel workbook, the code still works fine.
This comment was minimized by the moderator on the site
Awesome! Thanks for this tutorial.


However, how do i insert ONLY the date in DD/MM/YYYY format?
This comment was minimized by the moderator on the site
Hi,
You can format the output cell as Short Date formatting to solve the problem.
This comment was minimized by the moderator on the site
Hi there.. this is really good basic info..


One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)


Thank you so much!
This comment was minimized by the moderator on the site
Hi,
The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.

Private Sub CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Set xRg = Selection
xRg.Value = Now()
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations