VBA从入门到通.docVIP

单元格的引用 Sub sel() Dim rng As Range ‘定义变量类型 Set rng = Range(A2:D4, d5:e8) ‘给rng赋值 。。 rng.Select ‘选定变量 Selection.Interior.ColorIndex = 3 ‘改变单元格（变量）颜色为红色 Set rng = nothing End Sub 此程序可以在excel中的selection区域内求和。本例要点为IsNumeric语句的使用。 Isnmeric语句为逻辑判断语句，如果isnmeric （） 括号中为数字，则逻辑真，否者逻辑假！ Sub 区域求和() Dim r Dim t As Single For Each r In Selection If IsNumeric(r.Value) Then t = t + r.Value End If Next MsgBox 所选区域之和为 t End Sub 工作簿和工作表 操作方法：创建工作簿 要在 Visual Basic 中创建工作簿，请使用 Add 方法。以下过程将创建一个工作簿。Microsoft Excel 会自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字。新工作簿将成为活动工作簿。 Sub AddOne() Workbooks.Add End Sub 创建工作簿的一种更好的方式是将其分配给一个对象变量。在下例中，由 Add 方法返回的 Workbook 对象分配给了对象变量 newBook。然后，又设置了 newBook 的若干属性。通过使用对象变量可以轻松地控制新工作簿。 Sub AddNew() Set NewBook = Workbooks.Add With NewBook .Title = All Sales .Subject = Sales .SaveAs Filename:=Allsales.xls End With End Sub 操作方法：引用多张工作表 可用 Array 函数标识一组工作表。以下示例选定了活动工作簿中的三张工作表。 Sub Several() Worksheets(Array(Sheet1, Sheet2, Sheet4)).Select End Sub 操作方法：通过索引号引用工作表 索引号是基于工作表标签在同一类型的工作表中的位置（按从左到右的方式计数）分配给工作表的序号。下面的过程使用 Worksheets 属性激活活动工作簿中的第一个工作表。 Sub FirstOne() Worksheets(1).Activate End Sub 如果要处理所有类型的工作表（工作表、图表、模块和对话框编辑表），可使用 Sheets 属性。以下过程激活工作簿中的第四张工作表。 Sub FourthOne() Sheets(4).Activate End Sub 如果移动、添加或删除工作表，索引顺序可能会发生变化。 操作方法：通过名称引用工作表 使用 Worksheets 属性和 Charts 属性可通过名称来标识工作表。下述语句激活活动工作簿中的不同工作表。 Worksheets(Sheet1).Activate Charts(Chart1).Activate DialogSheets(Dialog1).Activate 可以使用 Sheets 属性返回工作表、图表、模块或对话框工作表。Sheets 集合包含所有这些种类的工作表。以下示例将激活活动工作簿中名为“Chart1”的工作表。 Sub ActivateChart() Sheets(Chart1).Activate End Sub 注释 嵌入到工作表中的图表是 ChartObjects 集合的成员，而那些位于单独的工作表上的图表则属于 Charts 集合。 单元格和区域 操作方法：引用工作表上的所有单元格 如果对工作表应用 Cells 属性时不指定索引号，该方法将返回代表工作表上所有单元格的 Range 对象。以下 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。 Sub ClearSheet() Worksheets(Sheet1).Cells.ClearContents End Sub 操作方法：使用 A1 表示法引用单元格和区域 可使用 Range 属性引用 A1 引用样式中的单元格或单元格区域。下述子例程将单元格区域 A1:D5 的字体设置为加粗。 Sub FormatRange() Workbooks(B