excel能否替換多個活頁簿名稱與多個活頁簿內容

wei9133 wrote:
偵錯顯示原因為
Sheets(i).Name = Application.Text(MonthNumber, "00") & Application.Text(i, "00")
好像是因為直接從第16個頁籤開始做修改，後面頁籤數量不夠，所以發生錯誤

Sub macro2()
    Dim i As Integer
    Dim SheetName As String
    YearNumber = InputBox("請輸入年度")
    MonthNumber = InputBox("請輸入月份")
    StartPage = InputBox("請輸入開始日期")
    EndPage = InputBox("請輸入結束日期")
    SheetName = YearNumber & "年" & MonthNumber & "月"
    If EndPage - StartPage < ActiveWorkbook.Sheets.Count Then
        For i = 1 To EndPage - StartPage + 1
            Sheets(i).Name = Application.Text(MonthNumber, "00") & Application.Text(i + StartPage - 1, "00")
            Sheets(i).[A1] = SheetName & i + StartPage - 1 & "日"
        Next i
    Else
        MsgBox ("欲改名工作表數大於目前現有工作表數，無法更名")
    End If
End Sub

wei9133 wrote:
有參照到這些格子的公式會變成顯示#VALUE!而不是原本的0
這個有解嗎?