例如，在销售统计，在一个区：用于存储销售的时间和日期，并在B区：G是用来存储销售数据，如果你需要在乙方的销售数据更新：G，让时间日期：在自动更新的地区：RARR；宏碁RARR；Visual Basic编辑器；在弹出的菜单中的命令，微软Visual Basic窗口中，双击需要输入代码表，如sheet1，然后输入下面的代码在代码编辑器窗口的右侧（图1）：

私有子worksheet_change（ByVal目标范围）

如果目标。3排和100排和目标。< = > = _

目标.列和目标.列10，然后< = = 2

application.enableevents = false

细胞（target.row，1）=现在（）

application.enableevents =真

最后如果

端子

最后，点击保存按钮；；。该代码的功能是自动输入当前系统时间在同行的第一个细胞时，B3：J100数据在工作表中的变化，即：一列，它是固定的。

所以当新的输入数据在数据区域内的销售统计，将自动输入当前日期和时间，日期和时间的第一列中的细胞如2009-8-16 10:39:16，内固定，如果一次又一次的修正数据，还与数据的变化自动更新（图2）。




小提示：

为了更准确的数据更新时间、日期和时间格式可以使用2009-8-16 10:39:16风格，使用此格式，选择的时间和日期：一列，格式；RARR；细胞；命令，在弹出的单元格格式对话框中，从数字选项卡的；；；分类列表选择自定义；；；信息，然后从右边的类型列表框；；yyyy-m-d H：mm你可以格式（图3）。