excel vba 怎么查看当前工作表可打印的总页数，和某一页的所在的页数，
发布网友
发布时间：2022-04-30 15:35
我来回答
共1个回答
热心网友
时间：2023-10-08 18:50
Sub 定义页码及总页数名称()
'
' 定义页码及总页数名称 Macro
' 宏由 cbtaja 录制，时间: 2010-5-12
'
'
ActiveWorkbook.Names.Add Name:="ColFirst", RefersToR1C1:= _
"=GET.DOCUMENT(61)" '判断打印顺序的设置类型
ActiveWorkbook.Names.Add Name:="lstRow", RefersToR1C1:= _
"=GET.DOCUMENT(10)" '本工作表已用到的最大行数
ActiveWorkbook.Names.Add Name:="lstColumn", RefersToR1C1:= _
"=GET.DOCUMENT(12)" '本工作表已用到的最大列数
ActiveWorkbook.Names.Add Name:="hNum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row()))" 'hNum为本单元格上方的水平分页符个数
ActiveWorkbook.Names.Add Name:="vNum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column()))" ''本单元格左边的垂直分页个数
ActiveWorkbook.Names.Add Name:="hSum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64),lstRow))" ''本工作表最后一个单元格上方的水平分页符个数
ActiveWorkbook.Names.Add Name:="vSum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT(65),lstColumn))" ''本工作表最后一个单元格左边的垂直分页个数
ActiveWorkbook.Names.Add Name:="ThisPageNo", RefersToR1C1:= _
"=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW())" '单元格所在页码
ActiveWorkbook.Names.Add Name:="PagesCount", RefersToR1C1:= _
"=GET.DOCUMENT(50)*ISNUMBER(NOW())" '本工作表的总页数
End Sub
EXCEL如何在单元格中获取打印分页的当前页数和总页数
只能用VBA解决，下面的代码由 cbtaja 录制，将下面代码粘贴进 工具--宏--VB编辑器后，用公式 =ThisPageNo 显示当前页数，=PagesCount显示总页数；=TEXT(ThisPageNo,"第0页 ")&TEXT(PagesCount,"共0页") 在同一单元格显示当前页数和总页数 Sub 定义页码及总页数名称()'' 定义页码及总页数名称...
用vba打印excel工作簿中所有工作表的首尾页,需要怎么编程?
If Application.CountA(.UsedRange.Cells) Then '若工作表非空白则执行 .PageSetup.PrintArea = .UsedRange.Address '设置打印范围为已使用的区域 .PrintOut from:=1, To:=1, Collate:=True, Copies:=1, IgnorePrintAreas:=False '打印第一页，份数为1份 n = .PageSetup.Pages.Count '获取页码数...
excel表格如何查看每页内容
1. 使用筛选功能：在工作表标签下方的工作表选项卡中，单击筛选器图标，然后输入要查找的工作表名称。2. 使用快速导航功能：在工作表标签下方的工作表选项卡中，单击快速导航图标，然后输入要查找的工作表名称。3. 使用VBA宏：使用VBA编写一个宏，可以通过输入工作表名称来查找并激活该工作表。4. 使用...
excel怎么计算整个工作簿中的所有工作表某一特定单元格的和?
将公式中的Sheet1改为你第一个工作表的名称，Sheet5改为最后一个工作表的名称，A5改为你要求和的单元格按回车就行了。
EXCEL中怎么设置一个单元格等于当前的页数在打印的时候也能显示_百度...
定义好名称后就可以在任意单元格中输入=纵当前页 ***得出纵向当前页=横当前页 ***不解释了="第" & 纵当前页 & "页,共" & 总页数 & "页" ***应该知道这是显示 第*页,共*页 了。 =页眉抄袭别人的,呵呵,目前适用,就是在设置打印标题后再标题中插入预览总是显示第一页,其他正常。 小蛋蛋 | 萌物...
excel的VBA中,查找当前单元格C3的内容,在另一个工作表中的位置,代码怎...
答：f2 = Sheets("Sheet10").Range("B:B").Find(what:=Sheets("Sheet4").Cells(3, "C"), lookat:=xlPart).Row
在excel中,怎样设置可以在打印过程中有依次的排列序号?比如打印第一...
1、编辑好你的表格，在名称框输入一个较下面的单元格名称，如：A5000——按Enter定位；2、在A5000输入任一数据，如：5000——按Ctrl+Home回到页首；3、菜单栏——文件——页面设置——页眉/页脚——自定义页眉——出现“页眉”对话框——选“右”框——点“插入页码”——出现：&[页码]——修改...
Excelvba给所有的工作表自动批量加页码会计的有福啦
我们按快捷键alt+F11，进入vba的编辑器里。点插入模块。然后在这输入以下代码 Sub 加页码() Dim i For i = 1 To Sheets.Count ‘表示工作表数量 Sheets(i).Range("d1") = i ‘固定在i1添加页码，i1代表你要的单元格位置。Next End Sub 效果就是 Excel vba给所有的工作表自动批量加页码，...
求教,如何使用vba将excel的插入对象进行另
15:奇偶页分别打印 16:自动打印多工作表第一页 17:查找A列文本循环插入分页符 18:将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19:返回光标所在行数 20:在A1返回当前选中单元格数量 21:返回当前工作簿中工作表数量 22:返回光标选择区域的行数和列数 23:工作表中包含数据的最大行数 24:返回A列...
Excel VBA窗体中设置一个按钮能在一个页面打印预览sheet1 sheet2打印...
你可以使用如下方式 进行打印预览……按住 ctrl 键 然后 用鼠标 选择工作表 标签上 的sheet1 和sheet2 然后 打印预览……这样 就可以 在一个预览界面 预览两个表的内容了 （当然 你需要翻页）excel 打印预览是 单页显示的……如果 你一定 要用 按钮 那么 你就顺着这个思路 来设置 你的代码 同时...
