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

★Excel服务器学习和下载园地★ [分享] 在Excel工作表的任意单元格中设置页码 [复制链接] 文章不当之处，请Excel VBA高手指教为谢！ 转载于一片白云博客：/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