【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《通过Excel的VBA工具日期时间随数据变化自动更新》,欢迎阅读!
通过Excel的VBA工具日期时间随数据变化自动更新
[日期:2009-10-10] 作者: 来源:电脑报 [字体:大 中 小]
输入时间日期是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)。
本文来源:https://www.wddqxz.cn/897c9ee40975f46527d3e1f7.html