按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
=Cell（〃filename〃）可获得文件的完整路径、文件名和工作表名 98、在打开Excel文件时按住
Shift键，将不运行VBA过程，可防止宏病毒，单击文件 关闭命令，在点关闭时按住Shift键将
在不运行VBA过程的情况下关闭工作簿，可防止关闭时自动运行的宏病毒。 99、让一个变量得
到 单 元 格 A1 到 A5 的 总 和 （ 变 量 设 为 X ） ； X=Sum（Range（―A1：A5‖）） 错
X=Application。WorksheetFunction。Sum（Range（―A1：A5‖）） 正 确 也 就 是 说 必 须 通 过
Application的WorksheetFunction属性间接调用工作表函数 100、Rem和'是注释符，注释语句
是非执行语句，要养成对代码注释的习惯。
101 、 ActiveSheet。Next。Select 选 择 活 动 工 作 表 下 一 张 工 作 表 ，
ActiveSheet。Previous。Select选上一张 102、单元格B2：B10数值不全为空用IF语句表达 For
Each cl in ActiveSheet。Range（〃B2：B10〃） If cl。Value 〃〃 then msgbox 〃有非空单元格
〃 Exit For endif next 103、用Range引用单元格和单元格区域
LIII
…………………………………………………………Page 54……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Range（〃A1〃） 单元格A1 Range（〃A1：B5〃） 从单元格A1到B5区域 Range（〃A1：B5 ；B1：B7〃） 多块
的选定区域 Range（〃A：A〃） A列 Range（〃1：1〃） 第一行 Range（〃A：C〃） A列到C列的区域
Range（〃1：5〃） 第1行到第5行的区域 Range（〃1：1；3：3〃） 第1、行 Range（〃A：A；C：C〃） A列、C
列 104、用Cells及编号引用单元格 Cells（6；1）A6单元格 如果对工作表用Cells属性时不指定
索引，表示引用工作表上的所有单元格，下例清除活动工作簿中工作表Sheet1上所有单元格的
内容 Worksheets（―sheet1‖）。Cells。ClearContents 105、可用变量代入单元格索引值，故
Cells 属 性 非 常 适 用 于 在 单 元 格 区 域 中 循 环 ， 如 ： For counter=1 To 20
Worksheets（―sheet1‖）。Cells（counter；3）。value=counter Next counter 106、引用行或列
Rows（1） 第1行 Rows 所有行 Columns（1） 第1列 Columns（―C‖） 第3列 Columns 工作表上所
有列 106、可用方括号将A1样式的引用或命名区域的名称括起来，作为Range属性的快捷方式，
这 样 就 不 必 键 入 Range 和 引 号 ， 如 Worksheets（―sheet1‖）。＇A1：B2＇。clearContents
＇MyRange＇。Value=30 107、用Offset处理按相对于其他单元格的某一位置的常用办法是使用
Offset属性，本例将活动工作表上活动单元格下一行和右边三列的单元格的内容设置为下划
线，如： ActiveCell。Offset（1；3）。font。Underline=XlDouble 108、把别的工作表Sheet2数
据，读到当前工作表的方法列举 1）＇A1＇=Sheet2。＇A1＇ 把Sheet2A1单元格的数据，读到A1单
元格 2 ） ＇A2：A4＇=Sheet2。＇B1＇ 把 Sheet2 单元格 B1 的数据读到A2： 到A4 单元格 3 ）
Range（B1‖）=Sheet2。Range（―B1‖） 把 Sheet2 工 作 表 单 元 格 B1 数 据 ， 读 到 B1 单 元 格
4）Range（―C1：C3‖）=Sheet2。Range（―C1‖） 把 Sheet2 工 作 表 单 元 格 C1 数 据 ， 读 到 C1：C3
5）Cells（1；4）=Sheet2Cells（1；4） 把 Sheet2 工 作 表 单 元 格 D1 数 据 ， 读 到 D1 单 元 格
6）Range（Cells（1；5）；Cells（5；5）=Sheet2。Cells（1；5） 把sheet2工作表单元格E1数据，读到
E1：E5单元格 7）Selection。Value=Sheet2。＇F1＇ 把Sheet2 工作表单元格＇F1＇数据，读到任何
你点选的单元格 109、Sub前有个Private表示是私有子程序，这个子程序不会出现在―宏‖对话
框中 110、Sub test（） ActiveSheet。Calculate End Sub重算活动工作表
LIV
…………………………………………………………Page 55……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
111、编程前应该尽可能地多了解Excel对象的属性、方法 112、每一个Excel对象的属性、方
法的调用都要通过OLE连接的一个或多个调用，这些OLE调用都是需要时间的，减少使用对象引
用 能 加 快 VBA 代 码 的 运 行 113 、 使 用 With 语 句
Workbooks（1）。Sheets（1）。Range（―A1：A1000‖）。font。Name=‖Pay‖
Workbooks（1）。Sheets（1）。Range（―A1：A1000‖）。Font。Fontstyle=‖Bold‖ 〃 改用With语句则运
行 速 度 加 快 例 ： With
Workbooks（1）。Sheets（1）。Range（―A1：A1000‖）。font 。Name=‖Pay‖ 。Fontstyle= Bold‖ 〃 End
With 114、用set设置对象变量，以减少对象的访问，如： Set MyRange=Workbooks（1）。Sheets（1）
Mysheet。Range（―A1‖）。Value=100 Mysheet。Range（―A2‖）。Value=200 比 直 接 用
Workbooks（1）。Sheets（1）。 Range（―A1‖）。Value=100 Workbooks（1）。Sheets（1）。
Range（―A2‖）。Value=200运行快 115、在循环中要尽是减少对象的访问 For k=1 To 100
Sheets（―sheet1‖）。select Cells（k；1）。value=Cells（1；1）。Value Next k 更快的代码是 set
TheValue=Cells（1；1）。Value Sheets（―sheet1‖）。select For k=1 To 100
Cells（k；1）。value=TheValue 116、减少对象的激活和选择 如果你是通过录制宏的来学习VBA
的程序里一定充满了对象的激活和选择，如Workbooks（XXX）。active 、Sheets（XXX）。Select 、
Range（XXX）。Select 等 ， 但 事 实 上 大 多 数 情 况 下 这 些 操 作 不 是 必 须 的 ， 如
Sheets（―sheet1‖）。Select Range（―A1‖）。Value=100 Range（―A2‖）。Value=200 可 改 为 With
sheets（―Sheet3‖） 。Range （―A1‖）=100 。Range （―A2‖）=200 117、关闭屏幕更新是提高运行速
度的最有效的办法，推荐使用 Application。ScreenUpdate=False 程序运行后再改回来 118、
VBA中默认的数据类型是Variant，你必须选择使用何种数据类型，因为Variant数据类型占用
存储空间较大 （16或22字节）而且它将影响程序的性能，Vba必须识别Variant类型的变量中存储
了何种数据类型。 119、再列一个自定义函数计算价格为10％为运费的简单函数例子
LV
…………………………………………………………Page 56……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Public Function Shipping（Price） Shipping=Price*0。1 End Function 如还是不懂的话，将
上述过程复制到模块中，然后在工作表任意单元格中输入=Shipping（C1）你就会明白 120、
ActiveWindow。DisplyGridlines=False 此句用来关闭网格线。
121、100个错误类型 1 应用程序定义或对象定义错误 2 应用程序定义或对象定义错误 3 无
GoSub 返回 4 应用程序定义或对象定义错误 5 无效的过程调用或参数 6 溢出 7 内存溢出
8 应用程序定义或对象定义错误 9 下标越界 10 该数组被固定或暂时锁定 11 除数为零 12
应用程序定义或对象定义错误 13 类型不匹配 14 溢出串空间 15 应用程序定义或对象定义
错误 16 表达式太复杂 17 不能执行所需的操作 18 出现用户中断 19 应用程序定义或对象
定义错误 20 无错误恢复 21 应用程序定义或对象定义错误 22 应用程序定义或对象定义错
误 23 应用程序定义或对象定义错误 24 应用程序定义或对象定义错误 25 应用程序定义或
对象