董市一中:excel 自动填时间日期

来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 03:08:30
excel 自动填时间日期  Excel制作了一份考勤表,员工上班时,门卫在相应的单元格中输入数值1,能否让系统自动在其右边的单元格中输入相应的时间呢?

  对于这个问题,只有用VBA来实现了:右击考勤表所在的工作表标签(Sheet1),在随后出现的快捷菜单中,选择查看代码选项,打开Visual Basic窗口。并将下述代码输入到右侧的窗口区域中:

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列单元格中输入系统时间。

  注意:VBA代码中,DateNowTime分别表示系统日期、日期及时间、时间。