《ExcelVBA讲义》PPT课件.ppt

1、Excel VBA,Range对象的属性,Range对象最有用的一些属性如下 Address 本属性返回Range的当前位置。Count 本属性用于决定Range中单元格的数目。Formula 本属性返回用于计算显示值的公式。 Offset 本属性对于从一个Range移动到另一个Range非常有用。 Resize 通过它可设置当前选中的Range的大小。 Value 返回Range的数值。,示例,ThisWorkbook.Worksheets(Sheet1).Range(B1).Activate ActiveCell.Offset(2, 2).Activate MsgBox The curre

2、nt active cell is & ActiveCell.Address MsgBox The value of c5 is & Range(C5).Value MsgBox The formula of c5 is & Range(C9).Formula,单元格的数目,ThisWorkbook.Worksheets(Sheet1).Activate Range(A1:F5).Select MsgBox The current active range count is & Selection.Count,示例,Sub BoldEveryOther() Dim iCounter As In

3、teger For iCounter = 3 To ThisWorkbook.Worksheets(Sheet1).Range(A1:C25).Rows.Count Step 2 ThisWorkbook.Worksheets(Sheet1).Range(A1:C25).Rows(iCounter).Font.Bold = True Next End Sub,Range 的with应用,Range(A1:A6).NumberFormat=#,#0.00Range(A1:A6).Font.Name=Courier NewRange(A1:A6).Font.FontStyle=RegularRan

4、ge(A1:A6).Font.Size=11Range(A1:A6).Font.Strikethrough=FalseRange(A1:A6).Font.Superscript=FalseRange(A1:A6).Font.Subscript=FalseRange(A1:A6).Font.OutlineFont=FalseRange(A1:A6).Font.Shadow=FalseRange(A1:A6).Font.Underline=xlUnderlineStyleNoneRange(A1:A6).Font.ColorIndex=xlAutomatic,Range的with用法,With Range (“A1:A6”) .NumberFormat=“#, #0.00” WithFont.Name=“Courier New”.FontStyle=“Regular”.Size=11.Strikethrough=False.Superscript=False .Subscript=False .OutlineFont=False、 .Shadow=False