End Sub
示例说明:本示例调整所选区域的大小,使之增加一行一列。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
[ 示例 05-08] 选取多个区域 (Union 方法 )
Sub testUnion()
Dim rng1 As Range, rng2 As Range, myMultiAreaRange As Range
Worksheets("sheet1").Activate
Set rng1 = Range("A1:B2")
Set rng2 = Range("C3:D4")
Set myMultiAreaRange = Union(rng1, rng2)
myMultiAreaRange.Select
End Sub
示例说明:可用 Union(range1, range2, ...) 返回多块区域,即该区域由两个
或多个连续的单元格区域所组成。如上例创建由单元格区域 A1:B2 和 C3:D4组合
定义的对象,然后选定该定义区域。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
[ 示例 05-09] 激活已选区域中的单元格
Sub ActivateRange()
MsgBox "选取单元格区域 B2:D6并将 C4选中"
ActiveSheet.Range("B3:D6").Select
Range("C5").Activate
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
[ 示例 05-10] 选取指定条件的单元格 (SpecialCells 方法 )
Sub SelectSpecialCells()
MsgBox "选择当前工作表中所有公式单元格 "
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
[ 示例 05-11] 选取矩形区域 (CurrentRegion 属性 )
' 选取包含当前单元格的矩形区域
' 该区域周边为空白行和空白列
Sub SelectCurrentRegion()
MsgBox "选取包含当前单元格的矩形区域 "
ActiveCell.CurrentRegion.Select
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -
评论0