在单元格中添加工作表计数器

Question

我有一个包含很多工作表的 excel 文件。 我想制作一个表格计数器以放入每张表格“Y 表格 x”的特定单元格中，例如，如果您在 5 张表格中的第 3 张表格上，则在单元格“X5”中必须说“表格 2 ”并且在单元格“X6”中说“5”每张表都有一个添加其他表的按钮，因此每次添加表时必须更新表计数器

我试过这段代码但不起作用，它只在第一张纸上放了“0”

Public Sub CountWorkSheets()
If Application.Sheets.Count = 2 Then
Sheets(1).Range("X5").Value = 1 And Sheets(2).Range("X5").Value = 2
End If
End Sub

Answer 1

我建议 go 到ThisWorkbook并挂钩到NewSheet事件

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Call AddSheetCounters
End Sub

Public Sub AddSheetCounters()
    Dim i As Long, n As Long
    
    n = Me.Sheets.Count
    
    For i = 1 To n
        Me.Sheets(i).Range("X5").Value = "Sheet " & i
        Me.Sheets(i).Range("X6").Value = "of " & n
    Next i

End Sub

根据需要编辑范围X5和X6的文本。 每次添加新工作表时都会运行宏。 不幸的是，当工作表被删除时，它不会被删除，并且事情会变得不同步。