vba程序设计(敏实例精讲).docxVIP

沈阳建筑大学 PAGE1 / NUMPAGES18 第2章VBA程序设计 2.1工作簿和工作表 一、创建和打开工作簿 Workbooks.Add创建一个新的工作簿 Set NewBook=Workbooks.Add建工作簿，用对象变量表示 NewBook.SaveAs Filename:=Test.xls工作簿另存为 Workbooks.Open(D:\Test.xls) 打开工作簿 二、引用工作表 Worksheets(1).Activate激活第一张工作表 Sheets(4).Activate激活四张工作表 Worksheets(Sheet1).Activate激活指定的工作表 Sheets(Chart1).Activate激活图表“Chart1” 2.2单元格和区域 一、引用单元格和区域 1．用A1样式记号引用单元格和单元格区域 表2.1使用Range属性的A1样式引用示例 引用 含义 Range(A1) 单元格A1 Range(A1:B5) 从单元格A1到单元格B5的区域 Range(C5:D9,G9:H16) 多块选定区域 Range(A:A) A列 Range(1:1) 第一行 Range(A:C) 从A列到C列的区域 Range(1:5) 从第一行到第五行的区域 Range(1:1,3:3,8:8) 第1、3和8行 Range(A:A,C:C,F:F) A、C和F列 【例2.6】将工作表“Sheet1”中单元格区域A1:D5的字体设置为加粗。 Sheets(Sheet1).Range(A1:D5).Font.Bold=True 2.用编号引用单元格 【例2.7】将Sheet1上的单元格A6的Value属性设置为10 Worksheets(Sheet1).Cells(6,1).Value=10 【例2.9】清除活动工作簿中Sheet1上的所有单元格的内容 Worksheets(Sheet1).Cells.ClearContents 【例2.10】假设工作簿中Sheet1的A列是员工姓名（不超过50人），Sheet2的A列是员工姓名、B列是对应的电话号码。现在需将所有员工的电话号码填写到Sheet1中的B列(注：Sheet1中姓名“李三”在Sheet2中可能为“李三”，中间没有空格)。 3.引用行和列 【例2.11】将Sheet1上第一行单元格区域的Font对象Bold属性设置为True。 Worksheets(Sheet1).Rows(1).Font.Bold=True 表2.2 Rows和Columns属性的应用示例 引用 含义 Rows(1) 第一行 Rows 工作表上所有的行 Columns(1) 第一列 Columns(A) 第一列 Columns 工作表上所有的列 【例2.12】将活动工作表上的第一行、第三行和第五行的字体设置为加粗。 Set myUn=Union(Rows(1),Rows(3),Rows(5)) myUn.Font.Bold=True 4.用快捷记号引用单元格 【例2.13】将工作表“Sheet1”的单元格区域“A1:B5”内容清除。 Worksheets(Sheet1).[A1:B5].ClearContents 5.引用命名区域 【例2.14】将当前工作表中名为“AA”的单元格区域设置为30。 [AA].Value=30 【例2.15】用GoTo方法激活工作簿“Book1.xls”，选定区域“AA”，然后清除该区域内容。 Application.Goto Reference:=Book1.xls!AA Selection.ClearContents 【例2.16】用ForEach...Next循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过25，就将该单元格的颜色更改为黄色。 For Each c In Range(AA) If c.Value25 Then c.Interior.ColorIndex=27 End If Next c 6.相对于其他单元格来引用单元格 【例2.17】将位于活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。 ActiveCell.Offset(1,3).Font.Underline=xlDouble 7.用Range对象引用单元格 【例2.18】将Sheet1上的单元格区域A1:D5赋予该变量，随后用该变量代替该区域对象，填充随机函数。 Set myRange=Worksheets(Sheet1).Range(A1:D5) myRange.Formula==RAND() 8.引用多个单元格区域 【例2.19】清除当前工作表上三个区域的内容。 Range(C5:D9,G9:H16,B14:D18).ClearCo