按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续
单元格区域）或者某一三维区域。 可用Range（arg）来引用单元格或单元格区域，其中arg可为
单元格号、单元格号范围、单元格区域名称。如 Range（〃A5〃） 、Range（〃A1：H8〃） 、
Range（〃Criteria〃）。虽然可用Range（〃A1〃）返回单元格A1，但用Cells更方便，因为此时可用
变量指定行和列。 可将Range与Cells结合起来使用，如Range（Cells（1；1）；Cells（10；10））代
表单元格区域〃A1：J10〃；而expression。Cells（row；column）返回单元格区域中的一部分，其中
expression是返回Range 的表达式，row和column为相对于该区域的左上角偏移量。如由
Range（〃C5：C10〃）。Cells（1；1）引用单元格C5。 Areas为选定区域内的连续单元格块的集合，其
成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元
格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块
数Areas。Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas（index）从
集合中返回单个Range对象，其中index为单元格块编号；如Areas（1）。 5、 行与列：Rows、
Columns、Row、Column Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工
作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范
围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1：B2和C3：D4，
Rows。Count返回2而不是4。
XXXI
…………………………………………………………Page 32……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
可通过Rows（行号）、Columns（列号）来引用相应的行与列；如Rows（3）、Columns（4）分别对应第
三行、D列。 利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均
以十进制数表示。 三）、处理单元格 1、直接赋值与引用 将变量、常量值直接赋给单元格、
或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下
例将工作表〃Sheet1〃A1单元格的值赋给Integer变量I，并将I＋1的值赋给当前工作表中的B1单
元格： Dim I As Integer I=Worksheets（〃Sheet1〃）。Cells（1；1） Cells（1；2）。Select '选定
B1单元格，使其成为当前单元格 ActiveCell=I＋1 '以I＋1为当前单元格赋值 2、用公式赋值 在
宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、
向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：
ActiveCell。Formula=〃=AVERAGE（R＇…6＇C＇…4＇：R＇…2＇C＇…4＇）〃 3、引用其它工作表中的单元格
当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上〃工作表名！〃即可。
如 以 下 即 在 赋 值 中 引 用 了 〃Sheet1〃 工 作 表 中 的 A1 至 A4 单 元 格 ：
Range（〃E10〃）。Formula=〃=SUM（Sheet1！R1C1：R4C1）〃 但需注意的是：当被引用的工作表名中含
有某些可能引起公式歧义的字符时，需要用单引号 ' 将工作表名括起来。如：
Worksheets（〃Sheet1〃）。ActiveCell。Formula=〃=Max（'1…1剖面'！D3：D5）〃 4、引用其它工作簿
中的单元格 在被引用单元格所在工作表名前加上〃＇工作簿名＇〃，即可引用其它工作簿中的单
元格。如： ActiveCell。Formula=〃=MAX（＇Book1。xls＇Sheet3！R1C：RC＇4＇）〃 同样需注意的是：
当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号〃＇〃、〃＇〃及单引号
'将工作簿名括起来。如： Cells（1；2）。Formula=〃=MIN（'＇1995…2000总结。xls＇1995…1996年'！
A1：A6）〃 5、避免循环引用 在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，
防止循环引用错误。 6、添加批注 可按如下方法格给单元格添加批注： Dim 批注文本 As
String 批注文本 =〃 批注示例 〃 '准备批注文本 ActiveCell。Addment ' 添加批注
ActiveCell。ment。Text Text：=临时 '写入批注文本 ActiveCell。ment。Visible=False
'隐藏批注 7、添加、删除、复制、剪切、粘贴单元格 Range（〃D10〃）。Insert Shift：=xlToRight
'在D10单元格处添加一新单元格，原D10格右移 Range（〃C2〃）。Insert Shift：=xlDown '在C2
单元格处添加一新单元格，原C2格下移 Rows（2）。EntireRow。Insert '在第2行前添加一空白
行，原第2行下移 Columns（3）。EntireColumn。Insert '在C列前添加一空白列，原C列右移
Columns（〃A：D〃）。Delete Shift：=xlToLeft '删除A列至D列，其右侧列左移
XXXII
…………………………………………………………Page 33……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Rows（〃3：5〃）。Delete Shift：=xlUp ' 删 除 第 3 行 至 第 5 行 ， 其 下 方 行 上 移
Range（〃B2〃）。EntireRow。Delete '删除第2行 Range（〃C4〃）。EntireColumn。Delete '删除C列
Range（〃B10：C13〃）。Copy ' 复制B10 至C13 单元格区域 Cells（1；2）。Cut ' 剪切B1 单元格
Range（〃D10〃）。Select ActiveSheet。Paste ' 自D10单元格起粘贴剪贴板中的内容 四）、图表 1、
工作表图表 以下为一添加工作表图表的实例。 Charts。Add after：=Worksheets（〃Sheet1〃） '
在〃Sheet1〃工作表之后添加新图表工作表 ActiveChart。ChartType=xlXYScatterSmooth '图
表类型为 XY 平滑线散点图 ActiveChart。SetSourceData Source：=Sheets（〃 结点坐标
〃）。Range（〃A1：B69〃）； PlotBy：= _ xlColumns '图表数据来源于〃结点坐标〃工作表的A1至B69
单 元 格 ， 且 按 列 绘 图 。 ActiveChart。Location Where：=xlLocationAsNewSheet With
ActiveChart 。HasTitle = True 。ChartTitle。Characters。Text = 〃节点坐标〃 '图表标题〃
节 点 坐 标 〃 。Axes（xlCategory； xlPrimary）。HasTitle = True 。Axes（xlCategory；
xlPrimary）。AxisTitle。Characters。Text = 〃x〃 'x 轴 标 题 〃x〃 。Axes（xlValue；
xlPrimary）。HasTitle = True 。Axes（xlValue； xlPrimary）。AxisTitle。Characters。Text = 〃y〃
'y轴标题〃y〃 End With With ActiveChart。Axes（xlCategory） 。HasMajorGridlines = True '
显示x轴主网格线，默认情况下为显示 。HasMinorGridlines = True '显示x轴次网格线，默认
情况下为不显示 End With With ActiveChart。Axes（xlValue） 。HasMajorGridlines = True '
标出x轴主网格值，默认情况下为标注 。HasMinorGridlines = False '取消x轴次网格值标注，
默认情况下为不标注 End With ActiveChart。Legend。Position = xlRight '图例显示在图表
右侧 2、嵌入式图表 嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图
表的设置基本类似。详见下例。 Set嵌入表=ActiveSheet。ChartObjects。Add（0；0；200；300） '
在当前工作表 （0；0）坐标处添加宽200，高300的嵌入式图表 嵌入表。Chart。ChartType =
xlColumnClustered ' 图 表 类 型 为 簇 状 柱 形 图 嵌 入 表 。Chart。SetSourceData
Source：=Sheets（1）。Range（〃A2：B2〃）； PlotBy：=xlRows ' 设置图表数据来源 With 嵌入
表。Chart 。HasTitle = False '无图表标题 。Axes（xlCategory； xlPrimary）。HasTitle = False
'无x轴标题 。Axes（xlValue； xlPrimary）。HasTitle = False '无y轴标题 End With