查看: 6466|回复: 3
如何知道一个工作薄中有多少个工作表
如何知道一个工作薄中有多少个工作表方法一：
点&工具&-&&宏&-&&VB编辑器&-&&插入&-&&模块&,输入如下内容:
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
Sheets(1).Select
Cells(1, 1) = num
运行该宏，在第一个(排在最左边的)工作表的A1单元格中的数字就是sheet的个数。
按Ctrl+F3(或者点&插入&-&&名称&-&&定义&),打开&定义名称&对话框
&引用位置&输入:=get.workbook(4)
点&确定&。
然后你在任意单元格输入=X
出来的结果就是sheet的个数。
两种方法都不错也
路过的，学习一下了！
get workbook(4)里的4是什么意思？
|||Excel精英培训
Powered by查看: 2223|回复: 12
如何对指定页数添加页脚
阅读权限20
在线时间 小时
本帖最后由 王南帅 于
20:09 编辑
这样吧，不如把问题改一改：就是在一个工作表中，比如sheet1中，分了4页，要求前3页的页脚内容为空，最后一页的页脚内容不为空，请问应该如何实现，小弟参考别人的代码，但还是没能达到效果，望各位大神能指点一下，代码如下
Sub 在最后一页中添加页脚内容()
Dim i As Integer
i = ActiveSheet.HPageBreaks.Count
ActiveSheet.PrintOut from:=1, to:=i - 1
ActiveSheet.PageSetup.LeftFooter = &&
ActiveSheet.PageSetup.CenterFooter = &&
ActiveSheet.PageSetup.RightFooter = &&
ActiveSheet.PrintOut from:=i, to:=i
ActiveSheet.PageSetup.LeftFooter = &aaa&
ActiveSheet.PageSetup.CenterFooter = &bbbbb&
ActiveSheet.PageSetup.RightFooter = &cccccc&
阅读权限100
在线时间 小时
能对指定页进行页脚设置吗？
阅读权限20
在线时间 小时
jsxjd 发表于
能对指定页进行页脚设置吗？
如果能对最后一页进行页脚设置也行；如果只有1页，那么打印的时候，就要将页脚的内容打印出来；如果有5页，那么就对最后的第5页进行页脚设置，前面4页打印出来就没有页脚（或者页脚隐藏，或者页脚内容字体显白也行），谢谢这位大神了，小弟跪下谢谢了
阅读权限20
在线时间 小时
已经问题改过了
阅读权限20
在线时间 小时
难道大神们都不肯相助啊，小弟痛哭无泪啊
阅读权限100
在线时间 小时
Excel 没有节的概念，不能单独设置某页的页脚
分两次打印，通过视图管理器试试
阅读权限20
在线时间 小时
jsxjd 发表于
Excel 没有节的概念，不能单独设置某页的页脚
分两次打印，通过视图管理器试试
哦，好的，谢谢这位大神
阅读权限95
在线时间 小时
Sub 按钮1_单击()
i = ActiveSheet.HPageBreaks.Count
ActiveSheet.PrintOut from:=1, to:=i
ActiveSheet.PageSetup.CenterFooter = &bbb&
ActiveSheet.PrintOut from:=i + 1, to:=i + 1
ActiveSheet.PageSetup.CenterFooter = &&
End Sub复制代码
阅读权限20
在线时间 小时
wj2368 发表于
谢谢这位大神的相助，但小弟我打印出来后，发现并没有实现那样的效果啊：即丛from:=1, to:=i 的页脚中心位置 为&bbb& ；ActiveSheet.PrintOut from:=i + 1, to:=i + 1 最后一页的页脚中心位置为空 并不是那样的啊，请大神再帮一下小弟，小弟感激万分
阅读权限20
在线时间 小时
如果按照这位大神的写法：
i = ActiveSheet.HPageBreaks.Count
ActiveSheet.PrintOut from:=1, to:=i
ActiveSheet.PageSetup.CenterFooter = &bbb&
ActiveSheet.PrintOut from:=i + 1, to:=i + 1
ActiveSheet.PageSetup.CenterFooter = &&
假如现在工作表共有5页，丛第1页到第4页打印出来以后，页脚位置有内容，最后一页的页脚位置也有内容，这就奇怪了哈
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 5510|回复: 49
[VBA特抢10]取得当前工作表打印总页数
请用一句代码返回当前打印区域的总页数。提示：可以借用application对象的某个方法来实现
游客，如果您要查看本帖隐藏内容请
游客，如果您要查看本帖隐藏内容请
Sub test()&&& MsgBox& (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)End Sub
试着找了一下，我感觉兰版说的可能是这个方法。游客，如果您要查看本帖隐藏内容请
游客，如果您要查看本帖隐藏内容请
[此贴子已经被作者于 21:18:41编辑过]
游客，如果您要查看本帖隐藏内容请
游客，如果您要查看本帖隐藏内容请
节约时间，直接看
|||Excel精英培训
Powered by查看: 2756|回复: 6
[已解决]怎样根据内容确定打印页数
本帖最后由 liwenhong 于
17:21 编辑
& && &&&求根据内容实现打印页数的代码。
& && &&&想要达到的效果：当A46单元格为空时，点击菜单栏上的打印机图标，只打印第一页，否则就打印第一、二页。
& && & 具体见附件：
(12.86 KB, 下载次数: 31)
12:38 上传
点击文件名下载附件
hwc2ycy发布于
& & If Len(Range(&a46&).Value) Then
& && &&&ActiveSheet.PrintOut from:=1, to:=2
& & Else
& && &&&ActiveSheet.PrintOut from:=1, to:=1
& & End If复制代码
判断单元格是否为空，打印的页码范围是可以通过printout方法指定的。
PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
From 可选 Variant 打印的开始页号。如果省略此参数，则从起始位置开始打印。
To 可选 Variant 打印的终止页号。如果省略此参数，则打印至最后一页。
&&&本楼为最佳答案&&&
& & If Len(Range(&a46&).Value) Then
& && &&&ActiveSheet.PrintOut from:=1, to:=2
& & Else
& && &&&ActiveSheet.PrintOut from:=1, to:=1
& & End If复制代码
试试这个，因为我没有打印机，所以没有测试：
(13.31 KB, 下载次数: 21)
13:00 上传
点击文件名下载附件
<font color="#0126769 发表于
试试这个，因为我没有打印机，所以没有测试：
使用安装有打印机测试情况汇报：（1）文件→打印& & 不起作用。（2）点击打印机图标，也不起作用。即使这样也很感谢您！
本帖最后由 liwenhong 于
15:05 编辑
hwc2ycy 发表于
我设置了一个打印按钮，使用您的代码，实现了盼望的结果，谢谢您了版主！
|||Excel精英培训
Powered by}