单击按钮重命名工作簿和工作表

Question

请找附页。

Demo.xlsm

我有一张演示表。在它中，我有“主”工作簿，其中包含一个按钮为“下周”，单击该按钮将"abc“工作板单元格C1中的日期更改为下一周日期(即从14-2015年6月-2015年改为选定的日期)。

我希望名为"sheet1，sheet2. sheet7“的工作簿相应地将名称更改为相应的c1，E1...O1中的日期

即。c1值日期将是sheet1工作簿名称( sheet1将重命名为14-6月-15 E1值日期将是sheet1工作簿名称，即sheet1将重命名为15-6月-15 G1值日期将是sheet1工作簿名称，即sheet1将重命名为16-6月-15，等等)。

另外--将相同的文件/excel工作表重命名为"ABC 6月14日-6月20日“，其中ABC是固定值，6月14日来自C1，6月20日来自O1。

Answer 1

循环遍历工作表并重命名，这段代码将进入命令按钮2

Private Sub CommandButton2_Click()
    Dim sh As Worksheet
    Dim ws As Worksheet
    Dim rng As Range, x
    Set ws = Sheets("abc")
    Set rng = ws.Range("A1")

    x = 2
    rng.Offset(0, x) = rng.Offset(0, x) + 7

    For Each sh In Sheets
        If sh.Name <> "Main" Then
            If sh.Name <> "abc" Then
                sh.Name = Format(rng.Offset(0, x), "dd-mmm-yy")
                x = x + 2
            End If
        End If
    Next sh

End Sub