excel工作簿工作表页码设置

来源：百度知道 编辑：UC知道 时间：2024/05/28 03:06:19
我的工作簿有n个工作表，我想把每个工作表相对应的单元格内设置上页码，当工作表顺序改变时，单元格内页码数相应更改。
注意是在每个工作表相对应的单元格内设置。
在这先谢谢高人了
你好非常感谢你的回复，之所以我要设置在单元格内，是因为我做的有固定格式的表格，过程中经常出现增减工作表的问题，更改起来非常麻烦，所以提出这格问题。
我还是希望能有人帮我解决这个问题，或有更好的改进意见

这不可能实现.
除非你不要在单元格内设置页码,而是在页眉页脚中设置页码,"第X页,共Y页",然后打印时,同时选择工作表标签,你在打印预览里看,是自动调整的.工作表位置发生变化后也是自动调整的,何必在单元格里设呢. 我也是4个工作表一块打印,就是这样的.

用ALT+F11打开VB编辑器, 输入以下代码. 下面的代码假设每一个工作表的A1上面有页码信息. 唉! 5分, 加点.

Sub UpdateSheetIndex()
I = 1
For Each Sheet In ThisWorkbook.Sheets
Application.ActiveWorkbook.Sheets(I).Cells(1, 1).Value = I
I = I + 1
Next

End Sub

Private Sub Worksheet_Activate()
Call UpdateSheetIndex
End Sub

要解决你的问题，必须要用到VBA宏，运行宏，则按照你当前表的顺序，重新进行页码设置。对于高手来说，并不难。