在Excel工作表的任意单元格中设置页码

★Excel服务器学习和下载园地★

[分享] 在Excel工作表的任意单元格中设置页码 [复制链接] 文章不当之处，请Excel VBA高手指教为谢！

转载于一片白云博客：http://blog.163.com/ycy_sdfc/

问：在Excel中设置第几页共几页，绝大部分人会想道用“页面设置”，但你是否想过将“第N页/总M页”放到任意单元格中？而不仅仅是置于页眉页脚中？ 答：实现方法一般有两种：使用VBA和使用宏表函数 方法一，用VBA

Public Function Page(x As Range, z As Byte)

'特别注意：当Z参数是0时，统计指定单元格所在页的页码（是以列分页符的值是1为前提条件的）

'由自定义函数的Z参数来确定是进行工作表选定单元格所在页数 '或是工作表总页数计算

'当Z参数是0时，统计指定单元格所在页的页码

'当Z参数是1至255任一个数值时，统计工作表总页数 If z = 0 Then ih = 0

For Each yh In ActiveSheet.HPageBreaks ih = ih + 1

If x.Row <= yh.Location.Row Then Page = ih Exit Function End If Next yh

Page = ih + 1 '以上8行代码及本行代码，最终得出指定单元格所在页的页码 Else

Page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) '统计工作表总页数 End If

Application.Volatile '本代码将此自定义函数标识为易失性函数，对自定义函数进行重算 End Function

举例1：我们要A1单元格中得出“当前工作表指定的单元格(A100)所在页数”是多少页？ =page(a100,0)

举例2：我们要A1单元格中得出“当前工作表总页数”是多少页？ =page(a100,1)

这里的公式中，单元格引用（A100）可以是任意单元格引用（公式所在单元格除外，否则会出现循环引用，出现错误）；Z参数可以是1至255之间的任意值。

方法二，用宏表函数与公式

1. 首先：使用快捷键CTRL+F3打开定义名称，再在上面输入“纵当页”，在下面引用位置处输入：=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64))),1,MATCH(ROW(),GET.DOCUMENT(64))+1)

2. 然后再继续添加第二个名称：“横当页”，在下面引用位置处输入：

=IF(ISNA(MATCH(column(),GET.DOCUMENT(65))),1,MATCH(column(),GET.DOCUMENT(65))+1)

3. 再输入“总页”；引用位置处输入：=GET.DOCUMENT(50)+RAND()*0 4. 最后再定义“页眉”，引用位置：=\第\横当页=1,纵当页,横当页+纵当页)&\页/共\总页&\页\

5. 在函数栏使用应用即可得到需要的页码

★关于方法二用到的宏函数知识补充： GET.DOCUMENT(type_num, name_text)

Type_num 指明信息类型的数。下表列出 type_num 的可能值与对应结果。 Type_num 返回

1 如果工作簿中不只一张表，用文字形式以“[Book1]Sheet1”的格式返回工作表的文件名。否则，只返回工作簿的文件名。工作簿文件名不包括驱动器，目录或窗口编号。通常最好使用 GET. DOCUMENT(76) 和 GET. DOCUMENT(88) 来返回活动工作表和活动工作簿的文件名。

2 作为文字，包括name_text的目录的路径。如果工作簿name_text未被保存，返回错误值 #N/A。

3 指明文件类型的数 1 = 工作表 2 = 图表 3 = 宏表

4 = 活动的信息窗口 5 = 保留文件 6 = 模块表

7 = 对话框编辑表

4 如果最后一次存储文件后表发生了变化，返回TRUE；否则，返回FALSE。 5 如果表为只读，返回TRUE；否则，返回FALSE。

6 如果表设置了口令加以保护，返回TRUE；否则，返回FALSE。

7 如果表中的单元格，表中的内容或图表中的系列被保护，返回TRUE；否则，返回FALSE。

8 如果工作簿窗口被保护，返回TRUE；否则，返回FALSE。 下面四个type_num的数值只用于图表。 Type_num 返回

9 指示主图表的类型的数。 1 = 面积图 2 = 条形图 3 = 柱形图 4 = 折线形 5 = 饼形

6 = XY (散点图) 7 = 三维面积图 8 = 三维柱形图 9 = 三维折线图 10 = 三维饼图

11 = 雷达图

12 = 三维等形图 13 = 三维曲面图 14 = 圆环图

10 指示覆盖图表类型的数，同以上主图表的1，2，3，4，5，6,11和14。没有覆盖图表的情况下返回错误值 #N/A 11 主图表系列的数 12 覆盖图表系列的数

下列 Type_num 的值用于工作表，宏表，在适当的时候用于图表。 Type_num 返回

9 第一个使用行的编号。如文件是空的，返回零。 10 最后一个使用行的偏号。如文件是空的，返回零。 11 第一个使用列的编号。如文件是空的，返回零。 12 最后一个使用列的编号。如文件是空的 ，返回零。 13 窗口的编号。

14 指明计算方式的数。 1 = 自动生成 有

2 = 除表格外自动生成 3 = 手动 15 如果在［选项］对话框的［重新计算］标签下选择［迭代计算］选择框，返回TRUE；否则，返回FALSE。

16 最多迭代次数。 17 迭代计算最大误差。

18 如果在［选项］对话框的［重新计算］标签下选择［更新远程引用］选择框，返回TRUE；否则，返回 FALSE。

19 如果在［选项］对话框的［重新计算］标签下选择［以显示精度为准］选择框，返回TRUE；否则，返回 FALSE。

20 如果在［选项］对话框的［重新计算］标签下选择［1904年日期系统］选择框，返回TRUE；否则，返回 FALSE。

Type_num 是21-29之间的数，对应于Microsoft Excel先前版本的四种默认字体。提供这些值是为了宏的兼容性。

下列 Type_num 数值应用于工作表，宏表和指定的图表。 Type_num 返回

30 以文字形式返回当前表合并引用的水平数组。如果列表是空的，返回错误值#N/A。 31 1至11之间的一个数，指明用于当前合并的函数。对应于每个数的函数列于下面CONSOLIDATE函数中，默认函数为SUM。

32 三项水平数组，用于指明Data Consolidate对话框中选择框的状态。如果此项为TRUE，选择选择框；如果此项为FALSE，清除选择框. 第一项指明［顶端行］选择框，第二项指［最左列］选择框,第三项指［与源数据链接］选择框。

33 如果选择了［选项］对话框的［重新计算］标签下的［保存前自动重算］选择框，返回TRUE；否则，返回FALSE。

34 如工作簿定义为只读，返回TRUE；否则，返回FALSE。 35 工作簿为写保护，返回TRUE；否则，返回FALSE。

36 如文件设置了写保护口令，并以可读/可写方式打开，返回最初使用写保护口令存文件的用户的名字。如文件以只读形式打开，或文件未设置口令，返回当前用户的名字。 37 对应于显示在［另存为］对话框中的文档的文件类型。所有Microsoft Excel可识别的文件类型列于 SAVE.AS函数中。 38 如果选择了［分级显示设置］对话框中的［明细数据的下方］选择框，返回TRUE；否则，返回FALSE。 39 如果选择了［分级显示设置］对话框中的［明细数据的右侧］选择框，返回TRUE；否则，返回FALSE。

40 如果选择了［另存为］对话框中的［生成备份文件］选择框，返回TRUE；否则，返回FALSE。

41 1至3中的一个数字，指明是否显示对象： 1 = 显示所有对象

2 = 图和表的位置标志符 3 = 所有对象被隐藏

42 包括表中所有对象的水平数组，如无对象，返回错误值 #N/A。

43 如果在［选项］对话框的［重新计算］标签下选择了［保存外部链接值］选择框，返回TRUE；否则，返回FALSE。

44 如文件中的对象被保护，返回TRUE；否则，返回FALSE。 45 0至3中的一个数，指明窗口同步化方式。 0 = 不同步

1 = 水平方向上同步 2 = 垂直方向上同步

3 = 水平方向，垂直方向上均同步

46 七项水平数组，用于打印设置，可由LINE.PRINT宏函数完成。 - 建立文字 - 左边距 - 右边距 - 顶边距 - 底边距 - 页长

- 用于指明打印时输出是否格式化的逻辑值，格式化为TRUE，非格式化为FALSE。

47 如果在［选项］对话框的［转换］标签中选择了［转换表达式求值］选择框，返回TRUE；否则，返回FALSE。 48 标准栏宽度设置

下列 type_num 值对应于打印与页的设置。 Type_num 返回

49 开始页的页码，如未指明或在［页面设置］对话框的［页面］标签下的［起始页码］文字框输入了“自动”，返回错误值#N/A。

50 当前设置下欲打印的总页数，其中包括注释，如果文件为图表，值为1。 51 如只打印注释时的总页数。如文件为图表类型，返回错误值#N/A。

52 在当前指定的单位中，指明边距设置(左，右，顶，底)的四项水平数组。 53 指明方向的数字: 1 = 纵向 2 = 横向

54 文本串的页眉，包括格式化代码。 55 文本串的脚注，包括格式化代码。

56 包括两个逻辑值的水平数组，对应于水平垂直方向置中。 57 如打印行或列的上标题，返回TRUE；否则，返回FALSE。 58 如打印网格线，返回TRUE；否则，返回FALSE。

59 如表以黑白方式打印，返回TRUE；否则，返回FALSE。 60 1至3中的一个数，指明打印时定义图表大小的方式。 1 = 屏幕大小 2 = 调整到 3 = 使用整页

61 指明重排页命令的数： 1 = 先列后行 2 = 先行后列

如文件为图表类型,返回错误值#N/A 62 扩缩比，未指定时为100%。如当前打印机不支持此项操作或文件为图表类型时，返回错误值#N/A。

63 一个两项水平数组，指明其报表需按比例换算，以适合的页数印出，第一项等于宽度(如未指明宽度按比例缩放，返回#N/A)第二项等于高度(如未指明高度按比例缩放,返回#N/A)。如文件为图表类型，返回#N/A。 64 行数的数组，相应于手动或自动生成页中断下面的行。只有在满一页的时候才有用。且只计算第一页 65 列数的数组。相应于手动或自动生成页中断右边的列。只有在满一页的时候才有用。且只计算第一页

附注 GET.DOCUMENT(62)和GET.DOCUMENT(63)互相排斥，如果其中一个返回一个数值，另外一个返回错误值#N/A。 下列type_num数值对应不同文件设置。 Type_num 返回

66 Microsoft Excel for Windows 中，如果在［选项］对话框的［转换］标签中选择了［转换公式项］选择框，返回TRUE；否则，返回FALSE。 67 Microsoft Excel 5.0版本下,通常返回TRUE。

68 Microsoft Excel 5.0版本下,通常返回簿的文件名。

69 如果在［选项］对话框的［查看］标志中选择了［自动分页线］，返回TRUE；否则，返回FALSE。

70 返回文件中所有数据透视表的文件名。 71 返回表示文件中所有类型的水平数组。

72 返回表示当前表显示的所有图表类型的水平数组。 73 返回表示当前工作表每一个图表中系列数的水平数组。 74 返回控制的对象标识符，控制当前执行中的由用户定义的对话框编辑表中获得焦点的控制(以对话框编辑表为基础)。 75 返回对象的对象标识符，对象正在执行中的由用户定义的对话框编辑表中的默认

按枢(以对话框编辑表为基础)。

76 以[Book1]Sheet1的形式返回活动表或宏表的文件名。 77 以整数的形式返回页的大小: 1=Letter 8.5x11 in

2 = Letter Small 8.5 x 11 in 5 = Legal 8.5 x 14 in 9 = A4 210 x 297 mm

10 = A4 Small 210 x 297 mm 13 = B5 182 x 257 mm 18 = Note 8.5 x 11 in

78 返回打印分辨率，为一个二项水平数组。

79 如在［页面设置］对话框的［工作表］标签中选择［按草稿方式］选择框返回TRUE；否则，返回FALSE。 80 如在［页面设置］对话框的［工作表］标签下选择了［附注］选择框，返回TRUE；否则，返回FALSE。

81 做为一个单元格的引用，从［页面设置］对话框的［工作表］标签返回打印区域。 82 做为一个单元格的引用，从［页面设置］对话框的［工作表］标签返回打印标题。 83 如果工作表为方案而被保护起来，返回TRUE；否则，返回FALSE。 84 返回表中第一个循环引用的值，如无循环引用，返回错误值#N/A。 85 返回表的高级筛选方式状态。这种方式顶部设有向下的箭头，如数据精单通过选择［筛选］，再从［数据］菜单选择［高级筛选］被筛选，返回TRUE；否则，返回FALSE。 86 返回表的自动筛选方式状态。这种方式顶部有向下的箭头，如选择了［筛选］,再从［数据］菜单选择［自动筛选］，筛选向下的箭头被显示出来，返回TRUE；否则，返回FALSE。

87 返回指示表的位置的数字，第一张表位置为1。计算中包含隐藏起来的表。 88 以“book1”的形式返回活动工作簿的文件名。

按枢(以对话框编辑表为基础)。

76 以[Book1]Sheet1的形式返回活动表或宏表的文件名。 77 以整数的形式返回页的大小: 1=Letter 8.5x11 in

2 = Letter Small 8.5 x 11 in 5 = Legal 8.5 x 14 in 9 = A4 210 x 297 mm

10 = A4 Small 210 x 297 mm 13 = B5 182 x 257 mm 18 = Note 8.5 x 11 in

78 返回打印分辨率，为一个二项水平数组。

79 如在［页面设置］对话框的［工作表］标签中选择［按草稿方式］选择框返回TRUE；否则，返回FALSE。 80 如在［页面设置］对话框的［工作表］标签下选择了［附注］选择框，返回TRUE；否则，返回FALSE。

81 做为一个单元格的引用，从［页面设置］对话框的［工作表］标签返回打印区域。 82 做为一个单元格的引用，从［页面设置］对话框的［工作表］标签返回打印标题。 83 如果工作表为方案而被保护起来，返回TRUE；否则，返回FALSE。 84 返回表中第一个循环引用的值，如无循环引用，返回错误值#N/A。 85 返回表的高级筛选方式状态。这种方式顶部设有向下的箭头，如数据精单通过选择［筛选］，再从［数据］菜单选择［高级筛选］被筛选，返回TRUE；否则，返回FALSE。 86 返回表的自动筛选方式状态。这种方式顶部有向下的箭头，如选择了［筛选］,再从［数据］菜单选择［自动筛选］，筛选向下的箭头被显示出来，返回TRUE；否则，返回FALSE。

87 返回指示表的位置的数字，第一张表位置为1。计算中包含隐藏起来的表。 88 以“book1”的形式返回活动工作簿的文件名。

本文来源：https://www.bwwdw.com/article/3i23.html