作者：韩小良
出版社：中国铁道出版社
格式: AZW3, DOCX, EPUB, MOBI, PDF, TXT
Excel VBA活用范例实用手册(畅销升级版)试读：
前言
Foreword
对于大多数人来说，Excel VBA似乎很神秘，学习Excel VBA似乎是一件很困难的事情。那么，如何学习Excel VBA，怎样才能尽快掌握并灵活运用Excel VBA？本书通过大量的示例，介绍Excel VBA的各种实用技巧以及源代码，读者通过阅读分析这些示例的程序代码，并进行实际操作演练，就能够逐步地将本书提供的各种方法和技巧转换为自己的技能。本书不阐述晦涩难懂的术语，也不讲解各种对象、属性、方法和事件的概念，而是将各种Excel VBA知识及其使用方法和技巧融合在示例之中，从而便于读者理解、分析乃至应用于实际工作中。
本书特色
◆以大量的示例为基础，内容涉及Excel VBA几乎全部的知识、使用方法和技巧。
◆每个示例就是一个技巧，同时还介绍了该技巧的相关内容，使读者通过一个个示例学习到尽可能多的方法和技巧。
◆提供了详细的源代码，并尽可能采用变量的方法，读者只需改变变量的值就可以将示例提供的程序应用于其他方面。
◆可先从目录中查找自己感兴趣的技巧，然后打开该工作簿，并实际操作和查看分析程序，从而尽快掌握该方法和技巧。
◆采用速查手册结构，可通过目录快速查找所需的技巧示例。
本书安排及内容简介
本书分为18章，内容涉及了Excel VBA的几乎全部知识。
第1章至第6章以主要的篇幅详细介绍了Excel VBA常见对象（诸如Application对象、Workbook对象、Worksheet对象、Range对象、Chart对象、窗体控件对象）以及对象事件的一些实用技巧。因为了解Excel VBA对象的属性方法和事件是非常重要的，所以可以说，掌握了这些对象的使用方法也就基本掌握了Excel VBA。
第7章介绍了创建自定义工具栏和命令的一些实用操作技巧，利用这些方法和技巧，可以帮助我们创建自动化运行命令。
第8章介绍了条件格式实用操作技巧，这些技巧为我们灵活使用Excel 2007特有的条件格式来分析数据提供了方便。
第9章介绍了Excel数据清单实用操作技巧，这些技巧主要包括如何实现自动排序、筛选、查找数据等常见的操作。
第10章至第13章主要介绍了如何利用Excel VBA来操作数据库（包括Excel工作簿、Access数据库、SQL Server数据库和文本文件），尤其是将Excel VBA与ADO和SQL结合起来，充分发挥利用数据库保存数据和利用Excel计算分析处理数据的特长，使得数据管理更加有效，为开发各种应用系统提供了方法和参考依据。
第14章和第15章主要介绍了在程序设计中的一些常规性的方法和技巧，以及使用工作簿函数和VBA函数的方法和技巧。
第16章介绍了在打印工作表时的一些方法和技巧，使用这些技巧，可以完成各种打印风格下的打印任务。
第17章介绍了有关操作文件和文件夹的方法和技巧，为我们在运行程序时操作文件和文件夹提供了丰富的方法和技巧。
第18章主要介绍了如何利用Excel VBA操作其他Office应用程序的一些基本方法和技巧，例如，操作Word和PowerPoint文档、利用Outlook发送邮件等。
我们真切希望本书提供的各种技巧能够成为您日常工作中的好帮手，使您能够尽快掌握Excel VBA，并将Excel VBA应用于实际工作中。
本书读者对象
本书适合具有Excel基础知识和Excel VBA基础知识的各类人员阅读，特别适合想要学习Excel VBA但无从下手，想尽快掌握Excel VBA基本知识的各类人员阅读。本书也适合从事公司信息管理应用系统开发的各类人员阅读，也可作为大中专院校相关专业的教材或参考书。
关于Excel版本
本书的内容是以2007以上版本为基础，也兼顾Excel 2003等较早期的版本。
编者2016年7月Chapter1Application对象实用操作技巧
Application对象代表整个Microsoft Excel应用程序，它处于Excel对象的最高层次。用户对Application对象的属性进行任何修改、调用任何方法或触发任何事件，都将影响整个Excel。本章将介绍Application对象的一些实用操作范例，这些操作范例对于Excel应用而言是非常有用的。
如无特别说明，本章介绍的Application对象实用操作范例，既可以用于Excel 2003，也可以用于Excel 2007。某些操作范例只能用于Excel 2003，不能用于Excel 2007，这将在相关范例中予以说明。1-1获取Excel系统信息
利用Application对象的某些属性，可以很方便地获取Excel应用程序的某些信息，例如，Excel版本、安装路径、标题、工作簿默认保存位置、Excel窗口状态、打印机名称等。利用Application对象的属性获取Excel应用程序信息的方法是使用语句“Application.属性名”。001 获取Excel的安装路径
Path属性
利用Path属性可以获得Excel的安装路径，应使用的语句为Application.Path。
第1章\范例1-001.xlsm002 获取Excel的当前用户名
UserName属性
利用UserName属性可以获得Excel的当前用户名，应使用的语句为Application.UserName。
第1章\范例-002.xlsm003 获取启动Excel的路径
StartupPath属性
利用StartupPath属性可以获得Excel的启动路径（但不包括尾部的分隔符“\”），应使用的语句为Application.StartupPath。
第1章\范例1-003.xlsm004 获取打开Excel文件时的默认路径
DefaultFilePath属性
利用DefaultFilePath属性可以获得打开Excel文件时使用的默认路径，应使用的语句为Application.DefaultFilePath。
第1章\范例1-004.xlsm005 获取模板保存的默认路径
TemplatesPath属性
利用TemplatesPath属性可以获得模板保存时系统指定的默认路径，应使用的语句为Application.TemplatesPath。
第1章\范例1-005.xlsm006 获取Excel主窗口标题栏的名称
Caption属性
利用Caption属性可以获取Excel主窗口标题栏的名称，应使用的语句为Application.Caption。
第1章\范例1-006.xlsm
此程序的运行结果如图1-1所示。
图1-1 Excel主窗口标题栏的名称信息007 获取Excel窗口的状态（大小）
WindowState属性
利用WindowState属性可以获得Excel窗口的“最大化”、“最小化”或“还原”等显示状态，应使用的语句为Application.WindowState。
WindowState属性可以是下述的值，分别表示不同的窗口状态：
xlMaximized：窗口最大化
xlMinimized：窗口最小化
xlNormal：窗口还原
第1章\范例1-007.xlsm008 获取Excel主窗口的高度和宽度
Height属性，Width属性
利用Height属性和Width属性可以获得Excel主应用程序窗口的高度和宽度，应使用的语句为Application.Height和Application.Width。
第1章\范例1-008.xlsm009 获取Excel主窗口的左边界位置和顶端位置
Left属性，Top属性
利用Left属性和Top属性可以获取Excel主窗口的左边界位置和顶端位置，应使用语句Application.Left和Application.Top。左边界位置以从屏幕左边界至Microsoft Excel主窗口左边界的距离表示；顶端位置以从屏幕顶端到Microsoft Excel主窗口顶端的距离表示。
第1章\范例1-009.xlsm010 获取在Excel主窗口中一个窗口所能占有的最大高度和宽度
UsableHeight属性，UsableWidth属性
利用UsableHeight属性和UsableWidth属性可以获取在Excel主窗口中一个窗口所能占有的最大高度和宽度，应使用的语句为UsableHeight和UsableWidth。
第1章\范例1-010.xlsm011 获取当前打印机名称
ActivePrinter属性
利用ActivePrinter属性可以获取当前打印机的名称，应使用的语句为Application.ActivePrinter。
第1章\范例1-011.xlsm1-2自定义Excel窗口
我们也可以很方便地通过设置Application对象的某些属性，从而将Excel窗口设置为所需的样式，例如，改变Excel窗口的大小、隐藏或显示Excel窗口、设置标题栏文字等。本节将介绍一些自定义Excel窗口的方法和范例。012 改变Excel窗口大小
Height属性，Width属性
利用Height属性和Width属性可以改变Excel窗口的大小。通过下面的程序将Excel窗口的宽度和高度分别设置为500和300。在弹出的对话框中单击【是】按钮后，会恢复Excel窗口的原来状态。
第1章\范例1-012.xlsm013 改变Excel的显示位置
Left属性，Top属性
利用Left属性和Top属性可以改变Excel窗口的显示位置。通过下面的程序将Excel窗口距屏幕顶部的位置和距屏幕左边的位置分别设置为50和100。在弹出的对话框中单击【是】按钮后，将恢复Excel窗口的原来状态。
第1章\范例1-013.xlsm014 将Excel移动到屏幕以外
Left属性，Top属性
将Excel移动到屏幕以外，实际上就是将Left属性和Top属性设置为负数，或是设置为比屏幕尺寸更大的数。通过下面的程序将Excel窗口移到屏幕外边。在弹出的对话框中单击【是】按钮后，会恢复Excel窗口的原来状态。
第1章\范例1-014.xlsm
注意： 如果在弹出的对话框中不小心单击了【否】按钮，而使Excel窗口无法恢复为原来状态，可以单击任务栏中的Excel图标，再按【Alt+F11】组合键，打开VBE编辑器窗口，再打开立即窗口，然后在立即窗口中输入“Application.WindowState=xlMaximized”，按【Enter】键即可。015 隐藏Excel
Visible属性
隐藏Excel，就是将Application对象的Visible属性设置为False，从而使Excel本身不显示出来。如果要显示Excel，就需要将Visible属性设置为True。
通过下面的程序将Excel窗口隐藏起来不显示。在弹出的对话框中单击【是】按钮后，会重新显示Excel。
第1章\范例1-015.xlsm
注意： 如果隐藏了Excel，那么在屏幕下面的任务栏中也不会显示Excel图标。这时如果要重新显示Excel，就需要重新启动Microsoft Excel了。016 改变Excel的标题文字
Caption属性
在默认情况下，Excel的标题文字是Microsoft Excel加文件名，例如“Microsoft Excel -范例1-016.xlsm”。可以利用Caption属性将标题文字Microsoft Excel改为所需的文字。下面的程序用于将Excel的标题文字改为“标题修改试验”。在弹出的对话框中单击【是】按钮后，会重新将Excel的标题文字设置为默认的Microsoft Excel。
第1章\范例1-016.xlsm
此程序的第一句用于将Excel的标题文字改为“范例1-016.xlsm -标题修改试验”，如图1-2所示。最后一句用于将Excel的标题文字恢复为“范例1-016.xlsm - Microsoft Excel”。
图1-2 改变Excel的标题文字017 删除Excel的标题文字
Caption属性
将Caption属性设置为vbNullChar，可以将Excel的默认标题文字Microsoft Excel删除，而仅在Excel标题栏中留下文件名。下面的程序用于将Excel的默认标题文字删除。在弹出的对话框中单击【是】按钮后，会重新将Excel的标题文字设置为默认的Microsoft Excel。
第1章\范例1-017.xlsm
此程序的第一句用于将Excel的标题文字设置为“范例1-017.xlsm”，如图1-3所示。最后一句用于将Excel的标题文字恢复为“范例1-017.xlsm -Microsoft Excel”。
图1-3 删除Excel的标题文字018 将Excel设置为全屏显示
DisplayFullScreen属性
将Excel设置为全屏显示后，屏幕上仅显示Excel的菜单栏，其他的工具栏以及标题文字等信息都将被隐藏。但会弹出一个【全屏显示】工具栏，单击此工具栏上的【关闭全屏显示】按钮，就会恢复Excel的默认显示状态。
将Excel设置为全屏显示的一般操作方法是选择【视图】→【全屏显示】命令。
我们也可以通过VBA控制Excel是否全屏显示。将Application对象的DisplayFullScreen属性设置为True，即可将Excel设置为全屏显示；将DisplayFullScreen属性设置为False，即可恢复Excel的默认显示状态。
下面的程序可将Excel设置为全屏显示。在弹出的信息框中单击【是】按钮后，会恢复Excel的默认显示状态。
第1章\范例1-018.xlsm
1-4所示为将Excel设置为全屏显示的情况。
图1-4 将Excel设置为全屏显示019 在状态栏中显示信息
StatusBar属性
为了观察应用程序的运行过程，可以将程序的中间运行结果显示在状态栏中。在状态栏中显示信息的功能是通过设置StatusBar属性来实现的。需要注意的是，一旦对StatusBar属性进行了自定义设置，那么在将Application.StatusBar设置为False之前将一直保持用户的最后设置状态。因此，在完成用户自定义显示任务后，一定要将Application.StatusBar设置为False。
下面的程序用于在状态栏中显示正在对哪个单元格数据进行计算的信息。
第1章\范例1-019.xlsm
图1-5所示为在状态栏中显示正在对哪个单元格数据进行计算的信息。
图1-5 在状态栏中显示信息020 显示/隐藏状态栏
DisplayStatusBar属性
如果要隐藏状态栏，可以将Application对象的DisplayStatusBar属性设置为False。若将DisplayStatusBar属性设置为True，则会显示状态栏。
第1章\范例1-020.xlsm021 显示/隐藏编辑栏
试读结束[说明：试读内容隐藏了图片]