ExcelVBARange对象基本操作应用示例.docx

精品文档
精品文档
1
精品文档
ExcelVBARange对象基本操作应用示例
2011-03-0211:41:43|分类：Excel技巧|标签：|举报|字号大中小订阅
[示例01]赋值给某单元格
[示例01-01]
----------------------
[示例04]Range和Cells
Subtest( )
'设置单元格区域A1:J10的边框线条样式
WithWorksheets(1)
.Range(.Cells(1,1),_
.Cells(10,10)).=xlThick
EndWith

精品文档
精品文档
15
精品文档
(Clear方法)
精品文档
精品文档
15
精品文档
EndSub
精品文档
精品文档
13
精品文档
示例说明：可用Range(cell1,cell2)

返回一个

Range

对象，其中

cell1

和

cell2

为指定起始和
精品文档
精品文档
13
精品文档
终止位置的Range对象。
精品文档
精品文档
13
精品文档
--------------------------------------
[示例05]选取单元格区域(Select方法)
SubtestSelect( )
'选取单元格区域A1:D5
Worksheets("Sheet1").Range("A1:D5").Select
EndSub
--------------------------------------
精品文档
精品文档
13
精品文档
[示例

06]

基于所选区域偏离至另一区域

(Offset

属性)
精品文档
精品文档
20
精品文档
[示例

06-01]
精品文档
精品文档
13
精品文档
SubtestOffset( )
Worksheets("Sheet1").Activate
(3,1).Select
EndSub
精品文档
精品文档
13
精品文档
示例说明：可用

Offset(row,column)(

其中

row

和

column

为行偏移量和列偏移量

)返回相对于
精品文档
精品文档
13
精品文档
另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。
[示例06-02]选取距当前单元格指定行数和列数的单元格
SubActiveCellOffice( )
MsgBox"显示距当前单元格第3列、第2行的单元格中的值"
(3,2).Value
EndSub
--------------------------------------
[示例07]调整区域的大小(Resize属性)
SubResizeRange( )
DimnumRowsAsInteger,numcolumnsAsInteger
Worksheets("Sheet1").Activate
numRows=
numcolumns=
(numRows+1,numcolumns+1).Select
EndSub
示例说明：本示例调整所选区域的大小，使之增加一行一列。
--------------------------------------
[示例08]选取多个区域(Union方法)
SubtestUnion( )
Dimrng1AsRange,rng2AsRange,myMultiAreaRangeAsRangeWorksheets("sheet1").Activate
Setrng1=Range("A1:B2")
Setrng2=Range("C3:D4")
SetmyMultiAreaRange=Union(rng1,rng2)

EndSub
示例说明：可用Union(range1,range2,...)返回多块区域，即该区域由两个或多个连续的单
元格区域所组成。如上例创建由单元格区域A1:B2和C3:D4组合定义的对象，然后选定该定义区域。
--------------------------------------
[示例09]激活已选区域中