通过Excel的VBA工具日期时间随数据自动更新

想去远方

　输入时间日期是Excel数据处理过程中经常做的工作之一，大家一般是直接输入或者使用函数，输入的数据往往是固定不变或者随系统时间而更新。如果在更新数据时需要时间日期也随着更新，而且数据固定不变，这就有点难了！其实通过Excel的VBA工具，就可以非常轻松地解决这一问题。
　　比如在一张销售统计报表中，A:A区域中用来存储销售时间日期，而在B:G区域用来存储销售数据，如果需要在更新B:G中的销售数据时，让A:A区域中的时间日期自动更新，具体操作如下：执行“工具→宏→Visual Basic编辑器”菜单命令，在弹出的Microsoft Visual Basic窗口中，双击需要输入代码的工作表，如“sheet1”，然后在其右侧的代码编辑窗口中输入如下代码(图1)：
　　Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Row >= 3 And Target.Row <= 100 And _
　　Target.Column >= 2 And Target.Column <= 10 Then
　　Application.EnableEvents = False
　　Cells(Target.Row， 1) = Now()
　　Application.EnableEvents = True
　　End If
　　End Sub




　　最后单击“保存”按钮即可。此代码的作用是，当工作表中的B3:J100数据变化时，在同行的第一个单元格中自动输入当前系统时间，即A:A列中，而且固定不变。
　　这样，当在销售统计报表的数据区域内输入新数据时，在第一列的时间日期单元格内会自动输入当前日期时间，如：2009-8-16 10:39:16，并且固定不变，如果再次修改数据，其时间也会随着数据的改变而自动更新(图2)。　　



　　小提示：为了显示更精确的数据更新时间，可以使用2009-8-16 10:39:16样式的日期时间格式。使用此种格式时，选择时间日期所在的A:A列，执行“格式→单元格”命令，在弹出的单元格格式对话框中，从“数字”选项卡中的“分类”列表中选择“自定义”信息，然后从右侧的“类型”列表框中选择“yyyy-m-d h:mm”格式即可(图3)。　　

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

yxhchl

学习，正好需要，谢谢楼主。

zsb_11101

学习，谢谢楼主。:

betteer

楼主 我按照你的表述 学着做个表 但是没有成功，不知道问题出在哪里 ？请赐教！