Question

怎么可以让EXCEL表格中的多个工作表日期递增？

我现在要打1到6月份的表格，工作表里面没有日期（都是在以前的SHEET1、SHEET2改名为1,2表示日期），打印的时候要在A1中打出日期XX年XX月XX日。手动输入太麻烦。请教高手如何自动生成日期?

Answer 1

sub aa ()
dim i&,x&
dim rq as date
i=sheets.count '计算工作表数
rq=date '赋值当期日期,这根据你的起始日期自己修改
for x=1 to i '建立每个表循环
with sheets(x)
.range("A1")=rq '给当前表A1单元格赋值日期
.printout '打印当前表
rq=rq+1 '日期加1天
end with
next x
end sub
'运行这个宏就完成你的目的了.代码后面的文字是注解

Answer 2

编辑--填充--序列--选择行或者列--类型--日期--选择年月日
不好意思看错了，不过你这个我还真不会