首页 Office&WPS正文

录入数据时让Excel自动插入当前时间

mydiannao Office&WPS 09-12 3408 0

一位网友问我,用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分别表示系统日期、日期及时间、时间。




本站公告

【企业、公司、工作室、出租屋、家庭】
远程解决:网络异常,路由器配置,打印机设置,驱动安装,局域网文件共享,监控调试,电脑故障等电脑周边问题解决,欢迎咨询!
微信:1633694989