一位网友问我，用
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 分别表示系统日期、日期及时间、时间。
上一篇：点出新天地—Word中双击鼠标的妙用
下一篇：让PowerPoint文档中的数据图表动起来
【本站声明】本站刊载的部分内容全部来源互联网,对于此类文章本站仅提供交流平台，不为其版权负责。如涉及侵犯您的知识产权的文章，请联系我们，我们将尽快做出更正。并向您表示感谢！同时特别感谢对本站所有支持的网友。
