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

请查收附页

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

我希望名为“sheet1，sheet2…sheet7”的工作簿根据c1，E1…O1中的日期相应地更改名称

即。 c1生效日期将为sheet1工作簿名称，sheet1将重命名为2015年6月14日 E1生效日期将为sheet1工作簿名称，sheet1将重命名为2015年6月15日 G1生效日期将为sheet1工作簿名称，sheet1将重命名为2015年6月16日，以此类推

---

其他事项-将同一文件/excel工作表重命名为“ABC June 14-June 20”，其中ABC为固定值，June 14来自C1，June 20来自O1。

循环检查工作表并重命名，此代码将进入命令按钮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

Private子命令按钮2\u单击（）
将sh设置为工作表
将ws设置为工作表
变暗rng作为范围，x
设置ws=工作表（“abc”）
设置rng=ws.范围（“A1”）
x=2
净距（0，x）=净距（0，x）+7
对于每一张图纸
如果sh.名称为“Main”，则
如果sh.名称为“abc”，则
sh.名称=格式（rng.偏移量（0，x），“日-月-年”）
x=x+2
如果结束
如果结束
下一个sh
端接头

确保你回复了这两篇文章。