單擊按鈕時重命名工作簿和工作表

Question

請查找附加工作表。

Demo.xlsm

我有一個演示片。在其中，我有一個「Main」工作簿，其中包含一個按鈕作爲「下一週」，點擊時會將「abc」表格單元格C1中的日期更改爲下週日期（即從2015年6月14日至選定日期）。

我希望命名爲「sheet1，sheet2 ... sheet7」的工作簿根據相應的c1，E1 ... O1中的日期更改名稱。 c1值日期將sheet1工作簿名稱ie即將sheet1將重命名爲15年6月14日 E1價值日期將sheet1工作簿名稱ie即sheet1將重命名爲15 15年6月15日 G1價值日期將sheet1工作簿名稱即sheet1將重命名爲16君-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