根据顺序为每个 sheet 编号

Question

我想在每个 sheet 的 header 中添加一个数字，具体取决于它的顺序。

我有一个用户表单 (Numberbox)，用户可以在其中输入起始号码。

所以如果起始数字是 3，并且有 5 个 sheets...从左到右 headers 应该是 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

Number each sheet based on its order