Question

请找附件表。

我有一个演示表。在其中我有＆＃34; Main＆＃34;包含按钮的工作簿＆＃34;下周＆＃34;单击时将更改＆＃34; abc＆＃34;单元格C1到下周日期（即从2015年6月14日到选定日期。）

我希望工作簿名为＆＃34; sheet1，sheet2 ... sheet7＆＃34;相应地更改名称c1，E1 ... O1

中的日期

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

附加内容 - 将相同的文件/ Excel工作表重命名为＆＃34; ABC 6月14日 - 6月20日＆＃34; 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

单击按钮

1 个答案: