1、& Worksheets().ValueEnd Sub示例05-01-02Sub test2()A1).Value = _现在A1单元格中的值也为 &示例05-01-03Sub test3()用公式填充单元格,本例为随机数公式Range(A1:H8).Formula = =Rand()示例05-01-04Sub test4()Worksheets(1).Cells(1, 1).Value = 24现在单元格A1的值为24示例05-01-05Sub test5()给单元格设置公式,求B2至B5单元格区域之和ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5)
2、示例05-01-06Sub test6()设置单元格C5中的公式.Worksheets(1).Range(C5:C10).Cells(1, 1).Formula = - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -示例05-02 引用单元格Sub Random()Dim myRange As Range设置对单元格区域的引用Set myRange = Worksheets(D5)对Range对象进行操作myRange.Formula = =RAND()myRange.Font.Bold = T
3、rue示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。示例05-03 清除单元格示例05-03-01清除单元格中的内容(ClearContents方法)Sub testClearContents()清除指定单元格区域中的内容).ClearContents示例05-03-02清除单元格中的格式(ClearFormats方法)Sub testClearFormats()清除指定单元格区域中的格式).ClearFormats示例05-03-03清除单元格中的批注(ClearComments方法)Sub testClearComments()清除指定单元格
4、区域中的批注).ClearComments示例05-03-04清除单元格中的全部,包括内容、格式和批注(Clear方法)Sub testClear()彻底清除指定单元格区域).Clear示例05-04 Range和CellsSub test()设置单元格区域A1:J10的边框线条样式With Worksheets(1).Range(.Cells(1, 1), _.Cells(10, 10).Borders.LineStyle = xlThickEnd With可用 Range(cell1, cell2) 返回一个 Range 对象,其中cell1和cell2为指定起始和终止位置的Range对象
5、。示例05-05 选取单元格区域(Select方法)Sub testSelect()选取单元格区域A1:D5).Select示例05-06 基于所选区域偏离至另一区域(Offset属性)示例05-06-01Sub testOffset().ActivateSelection.Offset(3, 1).Select可用Offset(row, column)(其中row和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。示例05-06-02 选取距当前单元格指定行数和列数的单元格Sub ActiveCe
6、llOffice()显示距当前单元格第3列、第2行的单元格中的值MsgBox ActiveCell.Offset(3, 2).Value示例05-07 调整区域的大小(Resize属性)Sub ResizeRange()Dim numRows As Integer, numcolumns As IntegernumRows = Selection.Rows.Countnumcolumns = Selection.Columns.CountSelection.Resize(numRows + 1, numcolumns + 1).Select本示例调整所选区域的大小,使之增加一行一列。示例05-
7、08 选取多个区域(Union方法)Sub testUnion()Dim rng1 As Range, rng2 As Range, myMultiAreaRange As Rangesheet1Set rng1 = Range(B2Set rng2 = Range(C3:D4Set myMultiAreaRange = Union(rng1, rng2)myMultiAreaRange.Select可用 Union(range1, range2, .) 返回多块区域,即该区域由两个或多个连续的单元格区域所组成。如上例创建由单元格区域A1:B2和C3:D4组合定义的对象,然后选定该定义区域。示
8、例05-09 激活已选区域中的单元格Sub ActivateRange()选取单元格区域B2:D6并将C4选中ActiveSheet.Range(B3:D6C5示例05-10 选取指定条件的单元格(SpecialCells方法)Sub SelectSpecialCells()选择当前工作表中所有公式单元格ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select示例05-11 选取矩形区域(CurrentRegion属性)选取包含当前单元格的矩形区域该区域周边为空白行和空白列Sub SelectCurrentRegion()选取包含当前单
9、元格的矩形区域ActiveCell.CurrentRegion.Select示例05-12 选取当前工作表中已用单元格(UsedRange属性)选取当前工作表中已使用的单元格区域Sub SelectUsedRange()选取当前工作表中已使用的单元格区域 vbCrLf & 并显示其地址ActiveSheet.UsedRange.SelectMsgBox ActiveSheet.UsedRange.Address示例05-13 选取最边缘单元格(End属性)选取最下方的单元格Sub SelectEndCell()选取当前单元格区域内最下方的单元格ActiveCell.End(xlDown).Select可以改变参数xlDown以选取最左边、最右边、最上方的单元格。- - - - - -
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1