[求助]如何在单元格中插入当前页码和总页码？

晓月清风

我也来摸鱼兼学钓鱼了,呵呵

晓月清风

以下是引用红池坝在2005-6-9 14:15:00的发言：



下面这个代码可以完成你的任务：

Public Function PageNO(rng As Range)

Application.Volatile

i = 0

For Each hp In ActiveSheet.HPageBreaks

   i = i + 1

   If rng.Row <= hp.Location.Row Then

     PageNO = i

     Exit Function

   End If

Next hp

PageNO = i + 1

End Function

高手，我使用你的代码时，发现了一个问题，就是在第二页的第一行使用该函数，会显示为第一页（如图所示），请问如何解决这个问题？

晓月清风

以下是引用shisgs在2005-6-11 20:38:00的发言：







不用那么复杂,给你个取页码的函数,总页码取最后的页码即可.

可不可以公布一下你getpage代码，谢谢！

[此贴子已经被作者于2005-6-12 13:09:53编辑过]

晓月清风

如何锁定工作表的一至三行，一至三行无法修改即可

1、选取整张工作表，然后按CTRL+1调出“设置单元格格式”，在“保护”中，看一下“锁定”复选框是否有打勾，如果有，点击一下，则放空，按"确定"

2、选取所要保护的行或列，然后按CTRL+1调出“设置单元格格式”，在“保护”中勾选“锁定”后，按"确定"

3、选择“工具”-“保护"-“保护工作表”，设置完之后就不能修改第二步中设置锁定的行或列了

晓月清风

谢谢版主指教[em17]!