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

Blue_Aries

麻烦诸位路过的朋友：

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

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

淼漫

无法修改可使用单元格保护功能，

单元格里输入页码本人还无法答复，请高人指点

红池坝

下面这个代码可以完成你的任务：Public Function PageNO(rng As Range)Application.Volatile

i = 0For Each hp In ActiveSheet.HPageBreaks

   i = i + 1

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

     PageNO = i

     Exit Function

   End If

Next hpPageNO = i + 1

End Function

Blue_Aries

感谢版主的，只是上面的代码在哪录入，在哪运行，我如何在单元格中调用，麻烦版主的了，我对EXCEL不熟悉，感谢

红池坝

呵呵：一、录入：1、“工具”－“宏”－“Visul Basic 编辑器”：将打开VBA编辑环境。2、在VBA编辑器里：“插入”－“模块”，然后在代码编辑窗口（最大的空白框）中粘贴我上面提供的代码即可。二、使用：返回工作表，在单元格里输入公式：=PageNo(A1)     就会返回A1单元格所在的页码。这个函数还可以引用单元格自身，从而返回这个单元格所在的页码，比如在B5单元格里输入“=PageNo(B5)”就返回了B5单元格所在页码

shisgs

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

[此贴子已经被作者于2005-6-11 22:25:07编辑过]

红池坝

你给的是结果，是授人以鱼；我说的是办法，是授仁以渔。

淼漫

哈哈，鱼渔兼得，谢谢啦

晓月清风

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

晓月清风

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

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