如何按指定单元格在每张表按序生成日期

dagal

1. Sub aa()
   
2.          Dim i&, x&
   
3.          Dim rq As Date
   
4.          i = Sheets.Count '计算工作表数
   
5.      rq = " 2018 - 5 - 31" '赋值当期日期,这根据你的起始日期自己修改
   
6.      For x = 1 To i '建立每个表循环
   
7.                With Sheets(x)
   
8.                       .Range("f4") = rq '给当前表A1单元格赋值日期
   
9.             ' .PrintOut '打印当前表
   
10.              rq = rq + 1 '日期加1天
    
11.         End With
    
12.          Next x
    
13. End Sub

复制代码

能否帮我看看以上代码改为汇总表的B1单元格输入日期6-1，则在工作簿剩下的1-31张工作表中指定的F4单元格按序生成日期，即表1的F4为6-1，表2的F4为6-2...以此类推。谢谢~

sanacy

Sub aa()
Dim i&, x&
Dim rq As Date
    i = Sheets.Count
    rq = Worksheets(1).Range("b1") '当汇总表在同一个工作簿当中时，且设sheet（1）为汇总表
    For x = 2 To i
           With Sheets(x)
                  .Range("f4") = Format(rq, "yyyy-mm-dd")
         rq = rq + 1  
    End With
    Next x
End Sub
Sub creat


如果汇总表是其他的工作簿，可以用openwork的方法，将其他工作簿中的B1赋值到rq

dagal

sanacy 发表于 2018-7-23 13:35
Sub aa()
Dim i&, x&
Dim rq As Date

可以了，谢谢。。。