录入数据时怎样才能让Excel自动插入当前时间

一、在excle2007中插入当前时间快捷方式-静止
速输入当前日期和时间，方法如下：如要插入当前日期，选取一个单元格，并按“Ctrl+;”    如要插入当前时间 ，选取一个单元格，并按“Ctrl+Shift+;”    如要插入当前日期和时间， 选取一个单元格，并按“Ctrl+;”，然后按空格键，最后按“Ctrl+Shift+;”
二、考勤表的制作
1. 按ALT+F11进入vba,双击thisworkbook,把下列代码粘贴进去，保存就可以了（代码打开编辑快捷方式）
2.用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
excel自动生成排名  End Sub
  以后我们只要在C列(Target.Column = 3)或者E列(Target.Column = 5)单元格中输入字符，系统即刻在对应的D列或者F列单元格中输入系统时间(如图2)。
注意:在VBA代码中，Date、Now、Time分别表示系统日期、日期及时间、时间。
3.插入当前活动时间
下面代码放在模块里,运行一下,即可在Sheet1的"A1"单元格显示当前时间并随时更新.
Sub ShowTime()
    Sheet1.Range("A1") = Now()
    Application.OnTime Now + TimeValue("00:00:01"), "ShowTime"
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。