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]激活已选地区中的单元格
SubActivateRang