《Excel word ppt office使用技巧大全(DOC格式)》第16章

=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　应用程序定义或　
对象