零点起飞excel vba教学与习题答案

单元格对象系列三：ExcelVBA对象模型课程安排引用单元格删除单元格与清除单元格内容插入和隐藏单元格复制单元格与保护单元格查找数据筛选数据设置单元格格式引用单元格引用单元格引用单元格区域

当需要引用工作表A1至G15这个区域时，可以使用下面这些语句来实现。Range("A1:G15")或Range("A1","G15")或Range(Range("A1"):Range("G15"))或Range(Cells(1,1),Cells(7,15))

如果需要引用整行，可以使用Rows属性来实现，如下面这些示例语句。Rows(4) '引用单元格的第4行Rows("3:5") '引用单元格的第3~5行Rows '引用工作表上所有行

当需要应用工作表中的整列时，可以使用Columns属性来实现，如下面这些示例语句。Columns(2) '引用第2列Columns("B") '引用第2列Columns("A:G") '引用第1列~7列Columns '引用工作表中所有列使用偏移方式引用单元格

在程序中，使用VBA的Range对象的Offset属性能够获得相对于指定单元格区域一定的偏移量位置上的区域。Offset

属性的语法个数如下所示：

表达式.Offset(RowOffset,ColumnOffset)操作Excel单元格删除单元格

在VBA中，删除单元格可以使用Delete方法来实现，语法格

式：

表达式.Delete(Shift)清除单元格内容

在VBA中，使用Clear方法将能够清除单元格的内容以及格式

设置，其语法格式如下所示：

对象.Clear插入和隐藏单元格插入单元格

在工作表中插入行或列可以使用Insert方法，其可以在工作

表中插入单元格或者一个单元格区域。在使用Insert方法插

入单元格时，将移动其他单元格以获得相应的空间。Insert方

法的语法格式如下所示：

表达式.Insert(Shift,CopyOrigin)隐藏单元格

如果需要隐藏工作表的某个单元格，可以将该单元格的

Hidden属性设置为True。如，隐藏工作表的A列，可以使用

下面语句：Worksheets("Sheet1").Columns("C").Hidden=True复制单元格与保护单元格复制单元格数据

在VBA中使用Copy方法能够实现单元格数据的复制，其语法

格式如下：

表达式.Copy(Destination)

如果需要将剪贴板上的内容粘贴到工作表中，可以使用

Paste方法来实现，其语法格式如下：

表达式.Paste(Destination,Link)保护单元格

单元格的锁定，可以使用Range对象的Locked属性来实现，

例如，锁定A1至C5单元格，可以使用下面的语句来完成：Range("A1:C5").Locked=True查找数据查找单个符合条件的数据

在ExcelVBA程序中，可以使用Find方法来实现在工作表中

对特定数据的查询，该方法的语法格式如下所示：

表达式.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)查找多个符合条件的数据VBA提供了FindNext和FindPrevious方法来实现对区域中所有符合

条件数据的查找。FindNext方法能够继续由Find方法开始的搜索，查找匹配相同条

件的下一个单元格，并返回表示该单元格的Range对象，该操作

不影响选定内容和活动单元格。FindNext方法的语法格式如下：

表达式.FindNext(After)使用Match方法来查找Match是WorksheetFunction对象方法，其能够返回在指定方式下与指定数

值相匹配数值在数组中的位置。在编写VBA程序时，使用该方法能够更方便

地在数据表中查找需要的数据的位置，同时还能实现对查找到的数据进行引

用。Match函数的语法格式为：表达式.Match(Arg1,Arg2,Arg3)筛选数据筛选符合条件的数据

在VBA中对数据的筛选可以选择自动筛选和高级筛选这2种方式。

要实现对数据的自动查找，可以使用Range对象的AutoFilter方法，其语法

格式如下：

表达式.AutoFilter(Field,Criteria1,Operator,Criteria2,VisibleDropDown)

如果需要用户自定义筛选的条件，可以使用高级筛选的方法。在程序中实现

高级筛选，可以使用Range对象的AdvancedFilter方法，其语法格式为：

表达式.AdvancedFilter(Action,CriteriaRange,CopyToRange,Unique)按颜色筛选数据

在VBA中，可以使用RGB函数来设置对象的颜色值，其语法如下所示：

对象.颜色属性＝RGB（参数1,参数2,参数3）VBA系统默认的调色板及其对应的索引颜色值：设置单元格格式设置单元格边框Range对象的Borders属性能够返回一个Borders对象集合，如果要分别控制

边框线，可以使用下面语句来实现：Borders(Index)使用条件格式

要想向单元格中添加条件格式，可以使用FormatConditions对象集的Add方

法，其语法格式如下所示：

表达式.Add(Type,Operator,Formula1,Formula2)使用数据条

使用数据条，首先要创建数据条对象，对象的创建使用AddDatabar方法，

该方法是F