VBA常用技巧代码解析

toughwolf · 发表于 2009-2-19 13:19

终于发现宝贝了！！！

nowarmy · 发表于 2009-2-19 14:45

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

yuanzhuping · 发表于 2009-2-19 15:34

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

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

yuanzhuping · 发表于 2009-2-19 16:34

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

#001 Sub PrintOddPage()
#002 Dim TotalPg As Integer
#003 TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
#004 For i = 1 To TotalPg Step 2
#005 ActiveSheet.PrintOut From:=i, To:=i
#006 Next
#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 · 发表于 2009-2-19 16:37

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

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

Hoer · 发表于 2009-2-19 18:20

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

yuanzhuping · 发表于 2009-2-19 20:07

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

我试了下,一切正常啊。

一_一 · 发表于 2009-2-19 21:03

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

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

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

liechun1983 · 发表于 2009-2-19 21:25

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

Hoer · 发表于 2009-2-19 21:36

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

我试了下,一切正常啊。

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

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

		自动登录	找回密码
密码			免费注册