您的位置：首页 → 办公软件 → Excel → 如何在Excel工作表的任意单元格中设页码

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

时间：2009/5/22 0:01:00来源：本站整理作者：我要评论(0)

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

 

在Excel中设置第几页共几页，绝大部分人会想道用“页面设置”，但你是否想过将“第N页/总M页”放到任意单元格中？而不仅仅是置于页眉页脚中？

方法一，用VBA

Function page()
page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
Application.Volatile
End Function

用VBA本人只知道总页码的方法，当前页码就难倒我了，还请VBA高手指教

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

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.最后再定义“页眉”，引用位置：
="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"

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

 

相关阅读 LOL云顶之弈各英雄如何搭配装备 云顶之弈全英雄装备搭配推荐dnfhello特权专区活动地址 dnfhello特权专区黑钻礼包领取地址dnfhello语音打团开黑领福利活动地址 dnfhello语音黑钻礼包领取地ELDEN RING什么时候出 ELDEN RING发售时间一览怪物猎人世界冰原iceborne多少钱 怪物猎人世界冰原iceborne收费价瘟疫传说无罪配置要求如何 瘟疫传说无罪配置要求推荐进击的巨人2最终之战配置要求如何 进击的巨人2最终之战配置推荐如龙极2配置要求如何 如龙极2配置要求推荐

文章评论

第 1 楼 江苏南通紫琅学院 客人 发表于: 2014/8/22 16:35:10

为什么页码不跟着变呢

支持( 0 ) 盖楼(回复)

查看所有0条评论>>

发表评论

我来说两句...

提交评论