VBA编程及应用基础完整版课件全套ppt教学教程最全整套电子教案电子讲义（必威体育精装版）.ppt

Worksheet对象的常用方法 Move 将指定工作表移到工作簿的另一位置 语法：Move(Before, After)。说明： Before：指定某工作表，移动工作表将置于此工作表之前 After：指定某工作表，移动的工作表将置于此工作表之后 如果已经指定了Before，则不能指定After，反之亦同；如果既未指定 Before 也未指定 After，则 Excel 将新建一个工作簿，并把工作表移至此工作簿 示例： Worksheets(Sheet1).Move After:=Worksheets(Sheet3) 命名参数传递 命名参数在调用具有可选的参数过程时显得特别有用。如果使用命名参数，则不必利用逗号去区分出失去位置的参数 例如： MsgBox Hi,VBA., , 命名参数示例 等价于 MsgBox Hi,VBA., Title:=命名参数示例 Range对象的常用属性 Address 返回区域的引用地址，默认时返回的是绝对引用，例如： Set mc = Worksheets(Sheet1).Cells(1, 1) MsgBox mc.Address 上面语句执行后，消息框中显示“$A$1” Range对象的常用属性 End? 表示包含源区域的区域尾端的单元格，语法为：End(Direction)，其中 Direction 有4个取值：xlDown、xlToRight、xlToLeft、xlUp 例如，下面代码将选定区域从单元格 B4 延伸至第四行最后一个包含数据的单元格 Worksheets(Sheet1).Activate Range(B4, Range(B4).End(xlToRight)).Select 实践4 利用Range对象的 End 属性实现实践2的功能? Range对象的常用属性 MergeCells 判断单元格或区域是否被包含在一个合并区域中，如果是，则该值为 True MergeArea 表示某单元格所在的合并区域。如果该单元格不在合并区域内，则该属性返回该单元格本身 例如，下面代码表示为包含单元格 A3 的合并区域赋值 Set ma = Range(a3).MergeArea If ma.Address = $A$3 Then MsgBox not merged Else ma.Cells(1, 1).Value = 42 End If Range对象的常用属性 注意： Cells、Columns 及 Rows 本身也是一个 Range 型的集合对象，因此，它们也具有 Value、Count、Font、Interior等属性 Range对象的常用方法 Activate 激活单个或多个单元格 Worksheets(sheet1).Range(A1).Activate Select 选中区域 Worksheets(sheet1).Range(A1:B5).Select AutoFit? 将区域中的列宽和行高调整为最适当的值 Worksheets(1).Range(A1:E1).Columns.AutoFit Range对象的常用方法 Copy：复制 Cut：剪切 PasteSpecial：粘贴，允许设置粘贴值还是格式（详见帮助） 例如，下面代码表示用 Sheet1 上单元格区域 C1:C5 和单元格区域 D1:D5 原有内容的和来取代单元格区域 D1:D5 中的数据 With Worksheets(Sheet1) .Range(C1:C5).Copy .Range(D1:D5).PasteSpecial _ Operation:=xlPasteSpecialOperationAdd End With Range对象的常用方法 Insert 插入一个单元格或区域，其他单元格作相应移位以腾出空间 ActiveSheet.Range(A1:D1).Insert Delete 删除 ActiveSheet.Range(A1:D1).Delete Range对象的常用方法 Clear? 清除Range内的内容，包括注释和格式 Worksheets(Sheet2).Range(A3.D12).Clear ClearContents 清除Range内的内容，不清除格式和注释 Worksheets(Sheet2).Range(A3.D12).ClearContents ClearFormats? 清除Range内的格式 Worksheets(Sheet2).Range(A3.D12).ClearFormats Range对象的常用方法 Merge 合并单元格 ThisWorkbook.ActiveSheet.Ran