EXECL工作表内的数据随时间的变化而变化。

我找了一个财务工作表（EXCEL），里面有一个控制台，可以控制做帐的时间，但我使用后发现，时间一旦调整后，里面的数据就全没了。有没有相应的功能就是说，我选哪一个月，当月的数据在EXCEL里面显示出来，而且下个月的财务表格里的月初数据能够自动地采集到上个月的数据。

Private Sub Auto_Open()
Application.DisplayAlerts = False '关闭警告信息
If CStr(Date) <> "2009-1-8" Then Exit Sub '不是特定日期则退出
Sheets(1).Range("A1:D5").Clear '清除第一张表格A1:C5的全部内容
Application.DisplayAlerts = True '打开警告信息
ActiveWorkbook.Save '保存
End Sub

补充回答：1.工具——宏——安全性——安全等级=中
2. 不会

再有问题HI我\

或着：

打开时必须允许vba执行才能实现你的目的。
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Date <> DateValue("2009-1-8") Then Exit Sub
Sheets("sheet1").[A1:C10].ClearContents '清除sheet1!A1:C10的内容
Sheets("sheet2").Delete '删除sheet2工作表
Application.DisplayAlerts = True
End Sub

使用excel,就离不开时间和日期。输入时间日期大家一般是直接输入或者使用函数,输入的数据往往是固定不变或者随系统时间而更新。如果在更新数据时需要时间日期也随着更新,而且数据固定不变,这就有点困难了!其实通过excel的vba工具,就可以非常轻松地解决这一问题。 比如在一张销售统计报表中,a:a区域中用来存储销售时间日期,而在b:g区域用来存储销售数据,如果需要在更新b:g中的销售数据时,让a:a区域中的时间日期自动更新,具体操作如下:执行“工具→宏→visual basic编辑器”菜单命令,在弹出的microsoft visual basic窗口中,双击需要输入代码的工作表,如“sheet1”,然后在其右侧的代码编辑窗口中输入如下代码: private sub worksheet_change(byval target as range) if target.row &gt;= 3 and target.row &lt;= 100 and _ target.column &gt;= 2 and target.column &lt;= 10 then application.enableevents = false cells(target.row, 1) = now() application.enableevents = true end if end sub 或 private sub worksheet_change(byval target as range) dim i i = target.row activesheet.cells(i, 1) = now() end sub 最后单击“保存”按钮即可。此代码的作用是,当工作表中的b3:j100数据变化时,在同行的第一个单元格中自动输入当前系统时间,即a:a列中,而且固定不变。 这样,当在销售统计报表的数据区域内输入新数据时,在第一列的时间日期单元格内会自动输入当前日期时间,如:2009-8-16 10:39:16,并且固定不变,如果再次修改数据,其时间也会随着数据的改变而自动更新。 小提示:为了显示更精确的数据更新时间,可以使用2009-8-16 10:39:16样式的日期时间格式。使用此种格式时,选择时间日期所在的a:a列,执行“格式→单元格”命令,在弹出的单元格格式对话框中,从“数字”选项卡中的“分类”列表中选择“自定义”信息,然后从右侧的“类型”列表框中选择“yyyy-m-d h:mm”格式即可。