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

Blue_Aries

麻烦诸位路过的朋友：

如何在单元格中插入当前页码和总页码？就是页脚上的，只不过改放在单格中？

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

MorningQueen

找了好久了，今天终于见着了，让我看看行不行。

bbsbat

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



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

请问这个函数怎么用？菜鸟啊，不要笑话我

sundaozhi

以下是引用红池坝在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

这里有两个问题, 一个是<=改成<, 象是已经发出帖了,另一个是只比较了ROW,没有考虑COL,如果表很宽就出错了.

bfwz

非常好，但是页码多时，速度慢。如何快些？

晓月清风

谢谢版主指教[em17]!

红池坝

回10楼明月兄：果然是这样，请把 If rng.Row <= hp.Location.Row Then 中的“小于等于”（ <= ）改为“小于”（<）即可。谢谢你的指点

晓月清风

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

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

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

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

晓月清风

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







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

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

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

晓月清风

以下是引用红池坝在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

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