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

Question

请查找附件sheet.

我有一个演示 sheet。在其中我有 "Main" 工作簿，其中包含一个按钮 "Next Week"，单击该按钮会将 "abc" sheet 单元格 C1 中的日期更改为下周日期（即从 14 日至 6 月） -2015 年至选定日期。)

我希望名为 "sheet1,sheet2... sheet7" 的工作簿根据相应的 c1、E1...O1

中的日期更改名称

即。 c1 值日期将是 sheet1 工作簿名称，即 sheet1 将重命名为 14-Jun-15 E1 起息日将为 sheet1 工作簿名称，即 sheet1 将重命名为 15-Jun-15 G1 值日期将是 sheet1 工作簿名称，即 sheet1 将重命名为 16-Jun-15，等等。

其他事项 - 将相同的 File/excel sheet 重命名为 "ABC June 14 - June 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

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

Renaming a workbook and worksheet on clicking a button

excel

vba

renaming