Excel_VBA_编程教程excel高级教程==.docx

Sub CycleThrough Sub CycleThrough() Excel_VBA_编程教程（完整版）excel高级教程VBA -Excel -Excel编程概念之：【单元格和区域】 一、如何引用 单元格和区域 使用Visual Basic的普通任务是指定单元格或单元格区域，然后对该单元格 或单元格区域进行一些操作，如输入公式或更改格式。通常用一条语句就能完成操 作，该语句可标识单元格，还可更改某个属性或应用某个方法。 在Visual Basic中,Range对象既可表示单个单元格，也可表示单元格区 域。下列主题说明了标识和处理Range对象最常用的方法。 用A1样式记号引用单元格和单元格区域 可使用Range属性来引用Al引用样式中的单元格或单元格区域。下述子程 序将单元格区域A1：D5的字体设置为加粗。 Sub FormatRange() Workbooks("Bookl"). Sheets("Sheetl"). Range("Al:D5") _ ? Font? Bold = True End Sub 下表演示了使用Range属性的一些Al样式引用。 引用含义 Range CA1"）单元格 Al Rangef Al :B59从单元格Al到单元格B5的区域 Range (Z，C5:D9,G9:H16Z，)多块选定区域 Range（"A:A"） A列 Range （，zl: 1”） 第一行 Range（"A：C"） 从A列到C列的区域 Range （"1:5"） 从第一行到第五行的区域 Rangefl: 1,3:3, 8:8Z，）第 1、3 和 8 行 Range(z，A:A,C:C,F:Fz，) A、C 和 F 列 用编号引用单元格 通过使用行列编号，可用Cells属性来引用单个单元格。该属性返回代表单 个单元格的Range对象。下例中,Cells (6, 1)返回Sheet 1上的单元格A6,然后将 Value属性设置为10o Sub EnterValue () Worksheets （z，Sheetlz，）. Cells （6, 1）. Value = 10 End Sub 因为可用变量替代编号，所以Cells属性非常适合于在单元格区域中循环，如 下例所示。 Dim Counter As Integer For Counter = 1 To 20 Worksheets (，zSheetl"). Cells (Counter, 3). Value = Counter Next Counter End Sub 注意如果要同时更改某一单元格区域中所有单元格的属性或对其应用方法，可 使用Range属性。有关详细信息，请参阅用A1样式记号引用单元格。 引用行和列 可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单 元格区域的Range对象。下例中，用Rows(l)返回Sheet 1上的第一行，然后将单 元格区域的Font对象的Bold属性设置为Trueo Sub RowBoldO Worksheets (''Sheetl"). Rows (1). Font. Bold = True End Sub 下表举例说明了使用Rows和Columns属性的一些行和列的引用。 引用含义 Rows(l)第一行 Rows工作表上所有的行 Columns(1)第一列 Columns("A")第一列 Sub SetValue () Sub SetValue () Sub SetValue () Sub SetValue () Columns工作表上所有的列 若要同时处理若干行或列,请创建一个对象变量并使用Union方法，将对Rows 属性或Columns属性的多个调用组合起来。下例将活动工作簿中第一张工作表上 的笫一行、第三行和笫五行的字体设置为加粗。 Sub SeveralRows() Worksheets("Sheetl")? Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5)) myUnion. Font? Bold = True End Sub 用快捷记号引用单元格 可用方括号将Al引用样式或命名区域括起来，作为Range属性的快捷方式。 这样就不必键入单词“Range”或使用引号，如下例所示。 Sub ClearRangeO Worksheets ("Sheet1")?[Al:B5]? ClearContents End Sub [MyRange]. Value = 30 Sub ClearRange Sub ClearRange() Sub ClearRange Sub ClearRange() End S