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

《在excel工作表的任意单元格中设置页码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、★Excel服务器学习和下载园地★[分享]在Excel工作表的任意单元格中设置页码[复制链接]文章不当之处，请ExcelVBA高手指教为谢！转载于一片白云博客：http://blog.163.com/ycy_sdfc/　　问：在Excel中设置第几页共几页，绝大部分人会想道用“页面设置”，但你是否想过将“第N页/总M页”放到任意单元格中？而不仅仅是置于页眉页脚中？　　答：实现方法一般有两种：使用VBA和使用宏表函数方法一，用VBAPublicFunctionPage(xAsRange,zAsByte)'特别注意：当Z参数是0

2、时，统计指定单元格所在页的页码（是以列分页符的值是1为前提条件的）'由自定义函数的Z参数来确定是进行工作表选定单元格所在页数'或是工作表总页数计算'当Z参数是0时，统计指定单元格所在页的页码'当Z参数是1至255任一个数值时，统计工作表总页数Ifz=0Thenih=0ForEachyhInActiveSheet.HPageBreaksih=ih+1Ifx.Row<=yh.Location.RowThenPage=ihExitFunctionEndIfNextyhPage=ih+1'以上8行代码及本行代码，最终得出指定单元格所

3、在页的页码ElsePage=(ActiveSheet.HPageBreaks.Count+1)*(ActiveSheet.VPageBreaks.Count+1)'统计工作表总页数EndIfApplication.Volatile'本代码将此自定义函数标识为易失性函数，对自定义函数进行重算EndFunction举例1：我们要A1单元格中得出“当前工作表指定的单元格(A100)所在页数”是多少页？=page(a100,0)举例2：我们要A1单元格中得出“当前工作表总页数”是多少页？=page(a100,1)这里的公式中，单元格

4、引用（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(

5、65))),1,MATCH(column(),GET.DOCUMENT(65))+1)3.再输入“总页”；引用位置处输入：=GET.DOCUMENT(50)+RAND()*04.最后再定义“页眉”，引用位置：="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"5.在函数栏使用应用即可得到需要的页码★关于方法二用到的宏函数知识补充：GET.DOCUMENT(type_num,name_text)Type_num指明信息类型的数。下表列出type_num的可能值与对应结果。Type_num返回1如果工作

6、簿中不只一张表，用文字形式以“[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；否

7、则，返回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=三维

8、曲面图14=圆环图10指示覆盖图表类型的数，同以上主图表的1，2，3，4，5，6,11和14。没有覆盖图表的情况下返回错误值#N/A11主图表系列的数12覆盖图表系列的数下列Type_num的值用于工作表，宏表，在适当的时候用于图表。Type_num返回9第一个使用行的编号。如文件是空的，