日期累加

1643688477

如何在工作表底部的sheets(9.26)自动添加工作表到10.31，同时第一行的堪9.26也跟着变化到堪10.31，有难度，求解。

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    Set sht = wb.Sheets(1)
    For i = 2 To wb.Sheets.Count
        wb.Sheets(i).Delete
    Next
    s = CDate("2024-" & Replace(sht.Name, ".", "-"))
    For i = s + 1 To CDate("2024-10-31")
        sht.Copy after:=wb.Sheets(wb.Sheets.Count)
        With ActiveSheet
            .Name = Month(i) & "." & Day(i)
            .[a1].Value = Replace(.[a1].Value, "9.26", .Name)
        End With
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Beep
End Sub

quqiyuan

删除工作表的那三行代码看自己需要

Qs18

1. Private Sub Workbook_Open()
   
2. k = 0
   
3. For Each sht In Sheets
   
4. If sht.Name = "10.31" Then k = k + 1
   
5. Next
   
6. If k = 0 Then
   
7.     Sheet12.Copy , Sheets(Sheets.Count)
   
8.     ActiveSheet.Range("a1") = "勘10.31单"
   
9.     ActiveSheet.Name = "10.31"
   
10. End If
    
11. End Sub

复制代码