根据订单为每张表编号

Question

我希望在每张纸的标题中加上一个数字，具体取决于它的顺序。

我有一个用户表单（数字框），其中该人员输入起始编号。

因此，如果起始编号是3，并且有5张...从左到右，标题应为3,4,5,6,7,8。

谢谢！

Answer 1

工作表对象的索引与工作表的顺序相匹配，因此您只需遍历工作表：

For i = 1 to Worksheets.Count
    Worksheets(i).PageSetup.CenterHeader = frmUserForm.NumberBox.Value + i - 1
Next i