2014-09-24 70 views

回答

0

也許用戶輸入數據:

=IF(A1<>"",TEXT(NOW(),"dd/mm/yyyy hh:mm:ss"),"") 
0

B1輸入:

=IF(A1="","",NOW()) 

和格式B1作爲日期時間。然後

B1將顯示當前日期/時間。要捕獲輸入日期/時間,您可以使用事件宏。

編輯#1

捕捉項的日期/時間,插入工作表中的代碼區以下事件宏:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rng As Range, r As Range 
    Set rng = Intersect(Target, Range("A:A")) 
    If rng Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
    For Each r In rng 
     With r.Offset(0, 1) 
      .Value = Now 
      .NumberFormat = "dd mmmm yyyy hh:mm:ss" 
     End With 
    Next r 
    Application.EnableEvents = True 
End Sub 

因爲它是工作表的代碼,這是很容易安裝和自動使用:

  1. 右鍵單擊靠近Excel窗口底部的標籤名稱
  2. 選擇查看代碼 - 這帶來了一個VBE窗口
  3. 粘貼的東西在,並關閉VBE窗口

如果您有任何問題,首先嚐試在一個審判工作。

如果保存工作簿,宏將與其一起保存。 如果您在2003年後使用的是Excel版本,則必須將文件 保存爲.xlsm而不是。XLSX

要刪除宏:

  1. 彈出VBE窗口如上
  2. 清晰的代碼進行
  3. 關閉VBE窗口

要了解更多關於宏的一般,請參閱:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解更多有關事件宏(工作表的代碼),請參閱:

http://www.mvps.org/dmcritchie/excel/event.htm

宏必須爲此工作啓用!

+0

你的配方工作正常。 – 2014-09-24 13:18:22

+0

現在我想知道爲什麼.. 當我在其他列輸入數據時,列會自動刷新? 如何修復它,如果我想保留「當前時間」的記錄 – 2014-09-24 13:22:14

+0

請參閱我的**編輯#1 ** – 2014-09-24 13:30:29

相關問題