VBA常用技巧代码解析

toughwolf

终于发现宝贝了！！！

nowarmy

谢谢版主的回答，太感谢了。

yuanzhuping

原帖由 wisdom100 于 2009-2-19 11:31 发表
这样一点也不方便看,编辑好打包给大家下载才是王道~~~

因为是边整理边更新的，所以没法一下子打包给大家下载，每一部分完成后都有这部分内容的附件和已完成的Word文档供大家下载，具体请看二楼往下的链接内容。

yuanzhuping

技巧39         奇偶页打印
       在Excel中却没有提供打印奇数页和偶数页的功能，用户可以使用VBA在Excel中实现该功能，如下面的代码所示。

1. #001  Sub PrintOddPage()
   
2. #002      Dim TotalPg As Integer
   
3. #003      TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
   
4. #004      For i = 1 To TotalPg Step 2
   
5. #005          ActiveSheet.PrintOut From:=i, To:=i
   
6. #006      Next
   
7. #007  End Sub

复制代码

代码解析：
       PrintOddPage过程打印活动工作表的奇数页内容，其中第3行代码使用ExecuteExcel4Macro方法执行Excel 4.0宏表函数获取总页数，通过该函数获取总页数而无需判断分页符。
       第4行到第6行代码使用For...Next 语句和PrintOut方法逐页打印所有的奇数页，PrintOut方法打印指定对象，语法如下：
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
       参数expression是必需的，一个有效的对象。
       其他参数都是可选的，其中参数From指定打印的开始页号，如果省略该参数，将从起始位置开始打印；参数To指定打印的终止页号，如果省略该参数，将打印至最后一页。
       如果需要对活动工作表的偶数页进行打印，只需将第4行代码中的For...Next循环计数器的初值由1改为2即可。

[ 本帖最后由 yuanzhuping 于 2009-2-19 20:16 编辑 ]

yuanzhuping

第2部分Worksheet（工作表）对象的附件和第1、2部分的Word文档。

[ 本帖最后由 yuanzhuping 于 2009-2-20 09:16 编辑 ]

Hoer

袁版，第2部分WORD文档的目录有点问题，出现了很多“错误！未定义书签”，是不是你把所有目录都做好了，但没有对应的文档。
还有，WORD第2部分的技巧32开始，目录与网页上有点出入。

yuanzhuping

原帖由 Hoer 于 2009-2-19 18:20 发表
袁版，第2部分WORD文档的目录有点问题，出现了很多“错误！未定义书签”，是不是你把所有目录都做好了，但没有对应的文档。
还有，WORD第2部分的技巧32开始，目录与网页上有点出入。

我试了下,一切正常啊。

一_一

原帖由 yuanzhuping 于 2009-2-19 15:34 发表

因为是边整理边更新的，所以没法一下子打包给大家下载，每一部分完成后都有这部分内容的附件和已完成的Word文档供大家下载，具体请看二楼往下的链接内容。

我就喜欢每天都有更新,这样才好,每天学一点,每天都可以巩固
很有积极性

liechun1983

版主辛苦了!真的捡到宝了.

Hoer

原帖由 yuanzhuping 于 2009-2-19 20:07 发表

我试了下,一切正常啊。

你转到页面视图看看~
1、技巧33和技巧35出现“错误！未定义书签。”
2、技巧40 保护所有工作表 网页上没有

[ 本帖最后由 Hoer 于 2009-2-19 21:40 编辑 ]