EXCEL单元格自动填入当前日期,并不随
用宏是可以完成，不过没这个必要吧。
既然每个月都相同，你何不一下把12个月的表都生成呢？
至于一定要设不随时间变化而变化的宏，可把如下代码放入ThisWorkbook:（添加方法可参照我的共享资料，在EXCEL中使用VB编辑器。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
y = InputBox("你确定要更改当前日期吗?", "警告", "y")
If y = "y" Then
x = Month(Now())
Range("a1")。 Value = "《" & x ...全部
用宏是可以完成，不过没这个必要吧。
既然每个月都相同，你何不一下把12个月的表都生成呢？
至于一定要设不随时间变化而变化的宏，可把如下代码放入ThisWorkbook:（添加方法可参照我的共享资料，在EXCEL中使用VB编辑器。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
y = InputBox("你确定要更改当前日期吗?", "警告", "y")
If y = "y" Then
x = Month(Now())
Range("a1")。
Value = "《" & x & "月营收报表》" 'A1为表头
Range("b2")。Value = Date 'A2为填表日期
ActiveSheet。
Name = x & "月"
End If
End Sub
原理，在保存之前更改 当前工作表 的日期，不能选中其他工作表保存。
(已加入确认代码，如果你修改了内容不想更改日期则输入y这外的任意值)
如现在3月，选中2月的表保存时，只要输入不为y的值再确定就不会更改日期，默认值为y，直接敲回车将更改填表日期（注意：宏操作具有不可恢复性）
现在的人好象真跟自己过不去一样，弄这么复杂？？？。收起
