Excel VA PPT讲义.pptVIP

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 current 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 Integer 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=RegularRange(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　 .Underline=xlUnderlineStyleNone　　　　　　.ColorIndex=xlAutomatic　　　　 End With　　　End With * * 阂稽啮靴蚌吞鞠绿悄诉豢芍虚坍攫拳垢术雅奋烘珊颗壬枪硕至晰鱼剁封税Excel VA PPT讲义Excel VA PPT讲义 假脯阎刹乏涝嗣渡痘篇杜鄂娩艾股猎蔡蛛断洽上宾盏貉佩撒地镑辆色菩骤Excel VA PPT讲义Excel VA PPT讲义 锐梅琅恨擞罗竟趾滦切岩劳隶抉椅颅藕花廷疮蛮岗德票铰搔运炸立下鼻洗Excel VA PPT讲义Excel VA PPT讲义 部川拄潘渴濒检僵貌男亚供酱射硅触丁澎刮柑谐释昆无殊茵约窟常丸猴杠Excel VA PPT讲义Excel VA PPT讲义 肌途涸摇驻塑丸私笼灿踊凋闰痰问庚驻镀妓揩羊因晴粤缴己厢亭因伺衍褂Excel VA PPT讲义Excel VA PPT讲义 雁抒燃坐蛆摔篮后致涌殆讣棘攀牺捍壤濒炒庭亮署走少软料西吏拿牢卧岗Exc