上一章介绍了Excel的对象模型，从Excel对象模型可以看出，Excel　2007提供了200多种对象。其实Excel最常用的对象只有几个，如Application对象、Workbook工作簿对象、Worksheet工作表对象、Range单元格区域对象，以及Chart图表对象等。本章介绍这些对象的使用方法。

　　　　　ｊ＝　ｊ+1

　　执行以上代码之前，先在第一个工作表中插入几个批注。程序执行结果如图13-14所示。在Excel显示的提示对话框中单击“确定”按钮，可显示下一个批注。

　　13.3.3　设置工作表滚动区域

　　与以往版本相比，Excel　2007工作表非常庞大，为1 048 576行乘以16 384列，在屏幕上一次显示不完所有单元格，可由用户托动水平和垂直滚动条来显示屏幕以外的单元格。在程序中，可通过对工作表或窗口的相关属性进行设置来控制显示的单元格位置

　　使用工作表的ScrollArea属性可设置工作表中允许滚动的区域，用户不能选定滚动区域之外的单元格。例如，以下代码设置用户操作的区域“A1：C20”：

　　Sub 设置滚动区域（）

　　执行以上代码后，用户将不能再选择“A1：C20”区域以外的单元格了。可将ScrollArea属性设置为空字符串（""）,以允许选定整张工作表内所有单元格。

　　13.3.4　在工作表中绘制图形

　　在Excel环境中，可在工作表中插入各种剪贴画、形状及SmartArt图形。通过VBA可更精确地在工作表中绘制图形，也可控制工作表中的每一个图形。

　　Shape对象代表工作表绘图层中的对象，例如自选图形、任意多边形、OLE对象或图片等。工作表中的多个Shape对象构成Shapes集合对象。通过Shapes集合对象中的方法可向工作表中添加线形标注、图表、连接符、图片、艺术字及各种图形等形状。例如，使用AddPolyline方法可创建一个不封闭的连续线段或一个封闭的多边形。使用该方法之前，需首先定义一个包含多边形各点坐标的二维数组，然后使用该方法即可绘制出需要的多边形。

　　对于工作表中的图形，还可对其进行编辑。例如，以下代码对前面生成的多边形进行编辑，首先修改其填充色为红色，再将多边形进行垂直翻转，结果如图13-16所示。

　　Sub 修改图形（）

　　13.3.5　隐藏工作表

　　在很多情况下，使用Excel构台应用程序都需要授权才能使用。对用户的授权一般采用用户名加密码的方式来进行验证。在用户还没有进行登录验证时，打开的系统界面将只显示一个工作表，其他工作表都处于隐藏状态。这样可保护第三数据使其不被外泄。

　　当授权用户操作结束后，在退出系统之前，应该将工作表隐藏起来。在Workbook对象的BeforClose事件中编写如下代码即可完成该功能：

　　　For　ｉ＝1　To　Sheets.Count　　　　　　　　　　　　　　　　＇循环隐藏各工作表

　　13.3.6　在工作表中校验数据

　　在Excel工作表中输入数据时，有时希望将某些列的值限定在一定的范围内，这时可通过Worksheet对象的Change事件对单元格中录入的数据进行校验。例如，以下代码将检查工作表的第3列，如果输入的内容不是“男”或“女”，则将显示错误伯信息。

　　13.3.7　自动生成下拉数据

　　在Excel工作表中录入数据，可以使用上面介绍的方法对录入的数据进行校验，如果不符合要求就显示错误提示信息，让用户重新录入。

　　如果某列数据有多个选项，那么使用这种方法时，其判断代码将会变得很长。另外，用户录入数据时也不知道是否正确。这时可以使用下拉列表的方式，将多个选项列出来，让用户直接选择，这样可提高数据录入的效率，也不会产生错误的数据。

　　下面用一个实例来介绍这种方法的使用步骤。该例制作一个员工花名册录入表，对于表中的职务一项，则显示一个列表来让用户选择。具体制作步骤如下。

　　步骤1　启动Excel，将新工作簿保存为“员工花名册．xlsm”。

　　步骤2　在第一个表中制作表头，并设置名称为“员工花名册”，如图13-17所示。

　　步骤3　将另一个工作表名为“职务”，并输入如图13-18所示的数据。

　　步骤4　按快捷键“Alt+F11”进入VBE环境，在“工程资源管理器”中双击“Sheets（员工花名册）”，打开代码窗口，输入以下代码，如图13-19所示。

　　本段程序的功能是当选定区域发生改变时，对新选定的区域进行格式的设置。该程序的关键之处在于当工作表上的选定区域发生改变时（用鼠标单击某个单元格或移动光标键改变选择的单元格），将产生SelectionChange事件（即执行本段程序）。

　　程序首先从“职务”表中逐行读取数据，并将其串在一起放在一个字符串中，代后面的代码使用。

　　该程序中的Target表示新选定的区域，Target.Column为选定区域的列序号。

　　当选定区域为第1列（“花名册”工作表第1列为“编号”）时，通过语句：

　　将该列设为文本格式。如果不设置为文本格式，在输入长度大于11位的数据时，系统默认为常规格式，将用科学计数法表示为数值。

　　当选定区域为第3列（“性别”）时，通过语句：

设置该单元格为一个校验列表，列表的选项为“男”或“女”。当每次将录入焦点移到该列时，都将增加这个校验列表，这将引起程序出错，所以在增加校验列表之前，先执行一个删除校验列表的语句：

　　当选定区域为第4列（“职务”）时，设置该单元格的校验列表，列表的选项为一个字符串Zw。字符串Zw的值在本段程序开始处已准备好。

　　通过以下属性可以获取一个Range对象，然后使用Range对象的属性和方法对单元格内容、格式等进行控制。

　　工作表（Worksheet）对象或Range对象的Range属性返回一个Range对象，它代表一个单元格或单元格区域。常见的表示方法有：

　　Worksheet对象或Range对象的Cells属性也可返回一个Range对象。常见的表示方法有：

　　使用Cells属性可以方便地使用变量来指定行列，下列代码用于在Sheet1工作表上创建行号和列标：

　　程序运行结果如图13-20所示。

　　该属性返回Range对象，它代表位于指定单元格区域的一定的偏移量位置上的区域。使用格式为：

其中RowOffset为行偏移量，而ColumnOffset为列偏移量。例如，下列代码将激活Sheet1工作表活动单元格向右偏移三列、向下偏移三行处的单元格。

　　返回一个Range对象，它代表指定区域的列。此属性在应用于一个多重选定区域的Range对象时，只会从该区域的第一个子区域中返回列。例如，如果Range对象有两个子区域A1:B2和C3:D4，那么Selection.Columns.Count的返回值是2，而不是4。

　　返回一个Range对象，它代表指定单元格区域中的行。例如，以下代码将删除表格中的第5行：

　　返回一个Range对象，该对象表示当前区域。当前区域是以空行与空列的组合为边界的区域。例如，以下代码将选定工作表Sheet1上的当前区域：

　　返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按组合键＜End+↑＞，＜End+↓＞,<End+←>或<End

+→>。其格式为：

　　下面列举部分示例代码：

　　返回一个Range对象，该对象包含指定区域的整列（或多列）。

　　返回一个Range对象，该对象包含指定区域的整行（或多行）。

　　使用Union（range1,range2……）可返回多块区域，即该区域由两个或多个连续的单元格区域组成。下面的代码创建由单元格区域A1:B2和C3:D4组合定义的对象，然后选定该定义区域。

　　ActiveCell属性返回一个Range对象，代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。若窗口中没有显示工作表，此属性无效。

　　活动单元格为选定区域内部的一个单元格。而选定区域可以包含多个单元格，但只有一个单元格为活动单元格。

　　下列表达式都返回活动单元格，并且都是等效的。

　　13.4.2　设置边框线

　　Excel单元格区域具有4个分立的边框：左边框、右边框、顶部边框和底部边框。VBA通过Border对象来控制边框，各边框组成Borders集合。这4个边框既可单独返回，也可作为一个组同时返回。以下代码将第一个工作表上单元格区域“A1:C3”添加双边框。

　　以上代码同时设置了区域内每个单元格上下左右4个边框线，如图13-21所示。

　　如果要分别控制边框线，可使用Borders(index)的方式来设置，index为以下常量之一：

　　▲xlDiagonalDown,区域中每个单元格的左上角至右下角的边框；

　　▲xlDiagonalUp，区域中每个单元格的左下角至右上角的边框；

　　▲xlEdgeLeft，区域左边的边框；

　　▲xlEdgeRight，区域右边的边框；

　　▲xlEdgeTop，区域顶部的边框；

　　▲xlInsideHorizontal，区域中所有单元格的水平边框（区域以外的边框除外）；

　　▲xlInsideVertical，区域中所有单元格的垂直边框（区域以外的边框除外）。

　　以下代码设置单元格区域“A1:C3”的底部边框的颜色为“红色”。

　　边框线的线型（LineStyle）可以设置为以下几种之一：

　　●xlDash，虚线；

　　●xlDashDot，点划相间线；

　　●xlDot，点式线；

　　13.4.3　设置单元格部分字符格式

　　如果要设置单元格中部分字符的格式，可以使用Range对象的Characters属性，该属性返回Characters对象。使用Characters对象可修改包含在全文本字符串中的任意字符序列。

　　仅当需要更改对象中文本的一部分而不影响其余部分时，才有必要使用Characters对象。要同时更改所有文本，通常可以对该对象直接应用某一适当的方法或属性。例如，以下代码将单元格A5的内容设置为斜体：

　　使用Characters对象可为文本字符串内的字符设置格式。其格式如下：

　　★Start，设置要返回的第一个字符的位置。如果此参数是1或被省略，则此属性返回一个以第一个字符为开头的字符区域。

　　★Length，设置要返回的字符数。如果省略此参数，则此属性返回字符串的后半部分（Start字符之后的所有字符）。

　　下面的代码向单元格B1中添加文本，并将第二个单词设置为加粗：

　　13.4.4　操作当前区域

　　当前区域是指以空行与空列的组合为边界的区域。使用CurrentRegion属性可返回指定单元格所在的当前区域。该属性对于很多操作来说是很有用的，能自动将选定区域扩展到包含整个当前区域，例如以下代码：

将获得与活动单元格连续的单元格区域的行数和列数。

　　假设在Sheet1中有一个包含标题行的表，那么以下代码仅选定该表，但不选定标题行。执行代码之前，活动单元格必须处于该表中。

　　13.4.5　修改列宽

　　在Excel中，通过拖动列标即可方便直观地调整列的宽度。在VBA中通过ColumnWidth属性也可获取或设置指定区域中所有列的列宽。

　　一个列宽单位等于“常规”样式中一个字符的宽度。对于比例字体，则使用字符0（零）的宽度。例如，以下代码使工作表Sheet1上B列的列宽加倍。

　　13.4.6　定义条件格式

　　Excel中定义的条件格式为FormatCondition对象，多个条件格式组成FormatConditions集合。通过Range对象的FormatConditions属性可获取FormatConditions集合的引用。例如，以下代码为“E1:E10”单元格区域添加条件格式，其条件是在单元格区域“E1:E10”中，如果某个单元格的值大于“A1”单元格的值，则该单元格的边框线为黄色的细实线，且字体为红色的粗体字。

　　使用FormatConditions集合的Add方法添加新的条件格式的语法格式如下。

其中，参数Type指定条件格式是基于单元格值还是基于表达式的，可为以下值之一：

　　参数Operator是条件格式运算符，可为以下常量之一：

　　◎xlBetween,介于。只在提供了两个公式的情况下才能使用。

　　◎xlLess，小于。

　　◎xlNotBetween，不介于。只在提供了两个公式的情况下才能使用。

　　13.4.7　设置单元格

　　使用NumberFormat属性可为单元格区域设置格式代码。格式代码与如图13-22所示的“设置单元格格式”对话框中的“格式代码”选项是同一个字符串。

　　在Excel中进行数据分析时，使用图表可为用户提供直观的分析结果。Excel提供上百各图表类型，用户几乎可以控制图表的各个方面。

　　13.5.1　图表分类

　　根据在工作簿中位置的不同，图表可分为图表工作表和嵌入工图表两种。

　　在VBA中，用Chart对象表示每个图表工作表，所有图表工作表组成Charts集合。使用Charts(index)可以返回单个Chart对象，其中index为图表的索引号或名称。

　　Sheets集合对象包含工作簿中所有的工作表（工作表和图表工作表）。使用Sheets(index)可以返回单个工作表或图表工作表。

　　嵌入到工作表的图表包含在ChartObject对象中，ChartObject对象的属性和方法控制工作表上嵌入式图表的外观和大小。ChartObject对象是ChartObjects集合的成员。ChartObjects集合包含单一工作表上的所有嵌入式图表。

　　13.5.2　添加图表工作表

　　使用Charts集合对象的Add方法可创建一个新的图表工作表并它添加到工作簿中。结合使用Charts集合对象的Add方法和Chart对象的ChartWizard方法可添加包含工作表数据的新图表，例如下面的代码将工作表“Sheet1”的单元格区域“A1:A10”中的数据添加为一个新的拆线图：

　　Sub　添加图表工作表（）

　　执行以上代码，将插入一个名为“Chart1”的图表工作表，并根据工作表“Sheet1”中“A1:A10”单元格区域中的数据生成拆线图，如图13-23所示。

　　在Chart对象的ChartWizard方法中，参数Gallery用于指定图表的类型，VBA中对各种图表类型都定义了常量，如本例的xlLine常量表示拆线图。常用的图表类型如下：

　　●xlPie，饼图。

　　●xl3Dpie，三维饼图。

　　因为图表类型非常多，这里就不全部列出了。读者可通过帮助系统查看“xlChartType”枚举，其中列出了全部的图表类型常量。

　　15.3.3　添加嵌入式图表

　　使用ChartObjects集合对象的Add方法可创建一个新的空嵌入图表并将它添加到集合中，再结合XhartObject对象的ChartWizard方法添加数据并设置新图表的格式。以下代码将在工作表“Sheet1"k创建一个新嵌入式图表，然后以拆线图形式添加单元格“A1:A10

　　执行以上代码，在工作表“Sheet1”中插入嵌入式图表，并根据工作表“Sheet1”中“A1:A10”单元格区域中的数据生成拆线图，如图13-24所示。

　　有关图表的操作将在22章中进行详细介绍。

　　Window对象代表一个窗口，能对窗口特性进行设置和操作。许多工作表特征（如滚动条和标尺）实际上是窗口的属性。

　　13.6.1　创建窗口

　　在Excel　2007操作环境中的“视图”选项卡的“窗口”组中，单击“新建窗口”按钮，可新建一个Excel窗口，该窗口的标题栏名称显示为“Book1.xlsm:2”，同时新建的窗口中也将显示活动窗口的副本，如图13-25所示。

　　在VBA代码中，使用NewWindow方法也可完成该功能：

　　Sub　创建窗口副本（）

　　该例在图13-25所示窗口（已新建一个窗口）的基础上运行，将创建第二个副本，窗口编号为3。运行后新创建的窗口标题栏如图13-26所示。

　　注意：窗口号和窗口索引（Index属性）是两个不同的概念，例如名称为“Book1.xlsm:2”的窗口，其窗口号为２；而窗口索引为该窗口在Window集合中的位置，可以是窗口名称或编号。

　　13.6.2　命名活动窗口

　　Application对象的Caption属性可改变Excel主窗口标题栏的显示内容。每个工作簿窗口还有一个名称，该名称可通过Workbook的Window对象进行修改。例如，以下代码将设置当前活动工作簿窗口名称：

　　13.6.3　控制窗口状态

　　窗口状态包括两个层面的意思，一是整个Excel应用程序窗口的状态；另一个是工作簿窗口的状态。窗口状态有三种形式，其常量表示为：

　　以下代码用于控制Excel窗口和工作簿窗口的状态：

　　Sub　控制窗口状态（）

　　执行以上代码时，首先显示即将进行的操作。单击对话框中的“确定”按钮，将控制窗口的状态。

　　13.6.4　激活窗口

　　当打开多个Excel工作簿时，WindowsXP的任务栏中将出现多个任务按钮，单击按钮可激活对应的窗口。在VBA代码中，也可根据需要激活相应的窗口，例如，以下代码将当前Excel工作簿逐个激活：

　　13.6.5　控制工作表显示选项

　　通过“Excel选项”可设置工作表的显示选项，如图13-28所示。在该对话框中，通过选中或取消复选框中的标记可设置对应的选项。

　　有时需要在VBA程序中进行类似的设置。图13-28所示的各选项都与Window对象的某一属性相联系，只需要设置该属性的值，即可调整窗口的属性。这些属性都是逻辑值，可以使用“Not”运算对其进行取反，使用户每次选择都得到反向的设置，例如：

　　以上代码用来切换是否显示工作表中的行列标号。运行后，工作表中的行标号和列标号将消失；再次运行后，行列标号重新出现，如此反复。当然也可以将该属性设置一个常量，如False，以取消显示行列标号。例如，以下代码显示或隐藏工作表中的相关元素。