range andcells用法Word文档下载推荐.docx
《range andcells用法Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《range andcells用法Word文档下载推荐.docx(16页珍藏版)》请在冰豆网上搜索。
![range andcells用法Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2022-10/29/d4035388-2cf6-48a8-a5fc-befb74a37bff/d4035388-2cf6-48a8-a5fc-befb74a37bff1.gif)
&
Worksheets("
).Value
EndSub
[示例05-01-02]
Subtest2()
A1"
).Value=_
现在A1单元格中的值也为"
&
[示例05-01-03]
Subtest3()
用公式填充单元格,本例为随机数公式"
Range("
A1:
H8"
).Formula="
=Rand()"
[示例05-01-04]
Subtest4()
Worksheets
(1).Cells(1,1).Value=24
现在单元格A1的值为24"
[示例05-01-05]
Subtest5()
给单元格设置公式,求B2至B5单元格区域之和"
ActiveSheet.Cells(2,1).Formula="
=Sum(B1:
B5)"
[示例05-01-06]
Subtest6()
设置单元格C5中的公式."
Worksheets
(1).Range("
C5:
C10"
).Cells(1,1).Formula="
--------------------------------------
[示例05-02]引用单元格
SubRandom()
DimmyRangeAsRange
'
设置对单元格区域的引用
SetmyRange=Worksheets("
D5"
)
对Range对象进行操作
myRange.Formula="
=RAND()"
myRange.Font.Bold=True
示例说明:
可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。
[示例05-03]清除单元格
[示例05-03-01]清除单元格中的内容(ClearContents方法)
SubtestClearContents()
清除指定单元格区域中的内容"
).ClearContents
[示例05-03-02]清除单元格中的格式(ClearFormats方法)
SubtestClearFormats()
清除指定单元格区域中的格式"
).ClearFormats
[示例05-03-03]清除单元格中的批注(ClearComments方法)
SubtestClearComments()
清除指定单元格区域中的批注"
).ClearComments
[示例05-03-04]清除单元格中的全部,包括内容、格式和批注(Clear方法)
SubtestClear()
彻底清除指定单元格区域"
).Clear
[示例05-04]Range和Cells
Subtest()
设置单元格区域A1:
J10的边框线条样式
WithWorksheets
(1)
.Range(.Cells(1,1),_
.Cells(10,10)).Borders.LineStyle=xlThick
EndWith
可用Range(cell1,cell2)返回一个Range对象,其中cell1和cell2为指定起始和终止位置的Range对象。
[示例05-05]选取单元格区域(Select方法)
SubtestSelect()
选取单元格区域A1:
D5
).Select
[示例05-06]基于所选区域偏离至另一区域(Offset属性)
[示例05-06-01]
SubtestOffset()
).Activate
Selection.Offset(3,1).Select
可用Offset(row,column)(其中row和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。
如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。
[示例05-06-02]选取距当前单元格指定行数和列数的单元格
SubActiveCellOffice()
显示距当前单元格第3列、第2行的单元格中的值"
MsgBoxActiveCell.Offset(3,2).Value
[示例05-07]调整区域的大小(Resize属性)
SubResizeRange()
DimnumRowsAsInteger,numcolumnsAsInteger
numRows=Selection.Rows.Count
numcolumns=Selection.Columns.Count
Selection.Resize(numRows+1,numcolumns+1).Select
本示例调整所选区域的大小,使之增加一行一列。
[示例05-08]选取多个区域(Union方法)
SubtestUnion()
Dimrng1AsRange,rng2AsRange,myMultiAreaRangeAsRange
sheet1"
Setrng1=Range("
B2"
Setrng2=Range("
C3:
D4"
SetmyMultiAreaRange=Union(rng1,rng2)
myMultiAreaRange.Select
可用Union(range1,range2,...)返回多块区域,即该区域由两个或多个连续的单元格区域所组成。
如上例创建由单元格区域A1:
B2和C3:
D4组合定义的对象,然后选定该定义区域。
[示例05-09]激活已选区域中的单元格
SubActivateRange()
选取单元格区域B2:
D6并将C4选中"
ActiveSheet.Range("
B3:
D6"
C5"
[示例05-10]选取指定条件的单元格(SpecialCells方法)
SubSelectSpecialCells()
选择当前工作表中所有公式单元格"
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
[示例05-11]选取矩形区域(CurrentRegion属性)
选取包含当前单元格的矩形区域
该区域周边为空白行和空白列
SubSelectCurrentRegion()
选取包含当前单元格的矩形区域"
ActiveCell.CurrentRegion.Select
[示例05-12]选取当前工作表中已用单元格(UsedRange属性)
选取当前工作表中已使用的单元格区域
SubSelectUsedRange()
选取当前工作表中已使用的单元格区域"
vbCrLf&
"
并显示其地址"
ActiveSheet.UsedRange.Select
MsgBoxActiveSheet.UsedRange.Address
[示例05-13]选取最边缘单元格(End属性)
选取最下方的单元格
SubSelectEndCell()
选取当前单元格区域内最下方的单元格"
ActiveCell.End(xlDown).Select
可以改变参数xlDown以选取最左边、最右边、最上方的单元格。
------