錄入數據時讓Excel自動插入當前時間讓您無可匹敵

一位網友問我 , 用Excel制作了一份考勤表 , 員工上班時 , 門衛在相應的單元格中輸入數值1 , 能否讓系統自動在其右邊的單元格中輸入相應的時間呢?

對于這個問題 , 只有用VBA來實現了:右擊考勤表所在的工作表標簽(Sheet1) , 在隨后出現的快捷菜單中 , 選擇“查看代碼”選項 , 打開Visual Basic窗口(如圖1) 。 并將下述代碼輸入到右側的窗口區域中:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Or Target.Column = 5 Then

Target.Offset(0, 1) = Time

End If

End Sub

以后我們只要在C列(Target.Column = 3)或者E列(Target.Column = 5)單元格中輸入字符 , 系統即刻在對應的D列或者F列單元格中輸入系統時間(如圖2) 。

注意:在VBA代碼中 , Date、Now、Time分別表示系統日期、日期及時間、時間 。

錄入數據時讓Excel自動插入當前時間讓您無可匹敵

文章插圖


錄入數據時讓Excel自動插入當前時間讓您無可匹敵

文章插圖

    推薦閱讀