1、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)示例05-01-06Sub test6()设置单元格C5中的公式.Worksheets(1).Range(C5:C10).Cells(1, 1).Formula = 示例05-02 引用单元格Sub Random()Dim myRange As
2、 Range设置对单元格区域的引用Set myRange = Worksheets(D5)对Range对象进行操作myRange.Formula = =RAND()myRange.Font.Bold = True示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。示例05-03 清除单元格示例05-03-01清除单元格中的内容(ClearContents方法)Sub testClearContents()清除指定单元格区域中的内容).ClearContents示例05-03-02清除单元格中的格式(ClearFormats方法)Sub testClea
3、rFormats()清除指定单元格区域中的格式).ClearFormats示例05-03-03清除单元格中的批注(ClearComments方法)Sub testClearComments()清除指定单元格区域中的批注).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).
4、Borders.LineStyle = xlThickEnd With可用 Range(cell1, cell2) 返回一个 Range 对象,其中cell1和cell2为指定起始和终止位置的Range对象。示例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为行偏移量和
5、列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。示例05-06-02 选取距当前单元格指定行数和列数的单元格Sub ActiveCellOffice()显示距当前单元格第3列、第2行的单元格中的值MsgBox ActiveCell.Offset(3, 2).Value示例05-07 调整区域的大小(Resize属性)Sub ResizeRange()Dim numRows As Integer, numcolumns As IntegernumRows = Selection.Rows.Countnumcolumns =
6、 Selection.Columns.CountSelection.Resize(numRows + 1, numcolumns + 1).Select本示例调整所选区域的大小,使之增加一行一列。示例05-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.S
7、elect可用 Union(range1, range2, .) 返回多块区域,即该区域由两个或多个连续的单元格区域所组成。如上例创建由单元格区域A1:B2和C3:D4组合定义的对象,然后选定该定义区域。示例05-09 激活已选区域中的单元格Sub ActivateRange()选取单元格区域B2:D6并将C4选中ActiveSheet.Range(B3:D6C5示例05-10 选取指定条件的单元格(SpecialCells方法)Sub SelectSpecialCells()选择当前工作表中所有公式单元格ActiveSheet.Cells.SpecialCells(xlCellTypeFor
8、mulas).Select示例05-11 选取矩形区域(CurrentRegion属性)选取包含当前单元格的矩形区域该区域周边为空白行和空白列Sub SelectCurrentRegion()选取包含当前单元格的矩形区域ActiveCell.CurrentRegion.Select示例05-12 选取当前工作表中已用单元格(UsedRange属性)选取当前工作表中已使用的单元格区域Sub SelectUsedRange()选取当前工作表中已使用的单元格区域 vbCrLf & 并显示其地址ActiveSheet.UsedRange.SelectMsgBox ActiveSheet.UsedRan
9、ge.Address示例05-13 选取最边缘单元格(End属性)选取最下方的单元格Sub SelectEndCell()选取当前单元格区域内最下方的单元格ActiveCell.End(xlDown).Select可以改变参数xlDown以选取最左边、最右边、最上方的单元格。示例05-14设置当前单元格的前一个单元格和后一个单元格的值Sub SetCellValue()将当前单元格中前面的单元格值设为我前面的单元格 vbCrLf _后面的单元格值设为我后面的单元格ActiveCell.Previous.Value = ActiveCell.Next.Value = 示例05-15确认所选单元格
10、区域中是否有公式(HasFormula属性)Sub IfHasFormula()If Selection.HasFormula = True Then所选单元格中都有公式Else所选单元格中,部分单元格没有公式End If示例05-16 公式单元格操作示例05-16-01获取与运算结果单元格有直接关系的单元格Sub CalRelationCell()选取与当前单元格的计算结果相关的单元格ActiveCell.DirectPrecedents.Select示例05-16-02追踪公式单元格Sub Cal1()选取计算结果单元格相关的所有单元格ActiveCell.Precedents.Selec
11、tSub TrackCell()追踪运算结果单元格ActiveCell.ShowPrecedentsSub DelTrack()删除追踪线ActiveCell.ShowPrecedents Remove:=True示例05-17 复制单元格(Copy方法)Sub CopyRange()在单元格B7中写入公式后,将B7的內容复制到C7:D7內B7=Sum(B3:B6).Copy Destination:=Range(C7:D7示例05-18获取单元格行列值(Row属性和Column属性)Sub RangePosition()显示所选单元格区域的行列值第 Selection.Row &行 Sele
12、ction.Column &列示例05-19获取单元格区域的单元格数及行列数(Rows属性、Columns属性和Count属性)Sub GetRowColumnNum()显示所选取单元格区域的单元格数、行数和列数单元格区域中的单元格数为: Selection.Count单元格区域中的行数为: Selection.Rows.Count单元格区域中的列数为: Selection.Columns.Count示例05-20设置单元格中的文本格式示例05-20-01 对齐文本Sub HorizontalAlign()将所选单元格区域中的文本左右对齐方式设为居中Selection.HorizontalAl
13、ignment = xlHAlignCenterSub VerticalAlign()将所选单元格区域中的文本上下对齐方式设为居中Selection.RowHeight = 36Selection.VerticalAlignment = xlVAlignCenter示例05-20-02 缩排文本(InsertIndent方法)Sub Indent()将所选单元格区域中的文本缩排值加1Selection.InsertIndent 1将缩排值恢复Selection.InsertIndent -1示例05-20-03 设置文本方向(Orientation属性)Sub ChangeOrientatio
14、n()将所选单元格中的文本顺时针旋转45度Selection.Orientation = 45将文本由横向改为纵向Selection.Orientation = xlVertical将文本方向恢复原值Selection.Orientation = xlHorizontal示例05-20-04自动换行(WrapText属性)Sub ChangeRow()Dim i将所选单元格设置为自动换行i = Selection.WrapTextSelection.WrapText = True恢复原状Selection.WrapText = i示例05-20-05将比单元格列宽长的文本缩小到能容纳列宽大小(
15、ShrinkToFit属性)Sub AutoFit()将长于列宽的文本缩到与列宽相同i = Selection.ShrinkToFitSelection.ShrinkToFit = TrueSelection.ShrinkToFit = i示例05-21设置条件格式(FormatConditions属性)Sub FormatConditions()在所选单元格区域中将单元格值小于10的单元格中的文本变为红色Selection.FormatConditions.Add Type:=xlCellValue, _Operator:=xlLessEqual, Formula1:=10Selection
16、.FormatConditions(1).Font.ColorIndex = 3Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic示例05-22插入批注(AddComment方法)Sub EnterComment()在当前单元格中输入批注ActiveCell.AddComment (HelloActiveCell.Comment.Visible = True示例05-23隐藏/显示单元格批注Sub CellComment()切换当前单元格批注的显示和隐藏状态ActiveCell.Comment.Visible = Not (A
17、ctiveCell.Comment.Visible)示例05-24改变所选单元格的颜色Sub ChangeColor()Dim iro As Integer将所选单元格的颜色改为红色iro = Selection.Interior.ColorIndexSelection.Interior.ColorIndex = 3将所选单元格的颜色改为蓝色Selection.Interior.Color = RGB(0, 0, 255)Selection.Interior.ColorIndex = iro示例05-25改变单元格的图案Sub ChangePattern()Dim p, pc, i依Patte
18、rn常数值的顺序改变所选单元格的图案p = Selection.Interior.Patternpc = Selection.Interior.PatternColorIndexFor i = 9 To 16With Selection.Interior.Pattern = i.PatternColor = RGB(255, 0, 0)常数值 iNext iSelection.Interior.Pattern = pSelection.Interior.PatternColorIndex = pc示例05-26合并单元格Sub MergeCells()合并单元格A2:C2,并将文本设为居中对齐A2:C2With Selection.MergeCells = True.HorizontalAlignment = xlCenter示例05-27限制单元格移动的范围Sub Sc
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2