Excel word ppt office使用技巧大全(DOC格式)-第10部分

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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　应用程序定义或　

对象定义错误　26　应用程序定义或对象定义错误　27　应用程序定义或对象定义错误　28　溢出　

堆栈空间　29　应用程序定义或对象定义错误　30　应用程序定义或对象定义错误　31　应用程序　

定义或对象定义错误　32　应用程序定义或对象定义错误　33　应用程序定义或对象定义错误　34　　

应用程序定义或对象定义错误　35　子过程或函数未定义　36　应用程序定义或对象定义错误　37　　

应用程序定义或对象定义错误　38　应用程序定义或对象定义错误　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LVI　　


…………………………………………………………Page　57……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



39　应用程序定义或对象定义错误　40　应用程序定义或对象定义错误　41　应用程序定义或对象　

定义错误　42　应用程序定义或对象定义错误　43　应用程序定义或对象定义错误　44　应用程序　

定义或对象定义错误　45　应用程序定义或对象定义错误　46　应用程序定义或对象定义错误　47　　

DLL　应用程序客户太多　48　加载　DLL　错误　49　DLL　调用约定错误　50　应用程序定义或对象定　

义错误　51　内部错误　52　文件名或文件号错误　53　文件未找到　54　文件模式错误　55　文件已　

打开　56　应用程序定义或对象定义错误　57　设备　I/O　错误　58　文件已存在　59　记录长度错误　　

60　应用程序定义或对象定义错误　61　磁盘已满　62　输入超出文件尾　63　记录号错误　64　应用　

程序定义或对象定义错误　65　应用程序定义或对象定义错误　66　应用程序定义或对象定义错　

误　67　文件太多　68　设备不可用　69　应用程序定义或对象定义错误　70　拒绝的权限　71　磁盘　

未准备好　72　应用程序定义或对象定义错误　73　应用程序定义或对象定义错误　74　不能更名　

为不同的驱动器　75　路径/文件访问错误　76　路径未找到　77　应用程序定义或对象定义错误　　

78　应用程序定义或对象定义错误　79　应用程序定义或对象定义错误　80　应用程序定义或对象　

定义错误　81　应用程序定义或对象定义错误　82　应用程序定义或对象定义错误　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LVII　　


…………………………………………………………Page　58……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



83　应用程序定义或对象定义错误　84　应用程序定义或对象定义错误　85　应用程序定义或对象　

定义错误　86　应用程序定义或对象定义错误　87　应用程序定义或对象定义错误　88　应用程序　

定义或对象定义错误　89　应用程序定义或对象定义错误　90　应用程序定义或对象定义错误　91　　

对象变量或　With　块变量未设置　92　For　循环未初始化　93　无效的模式串　94　无效使用　Null　　

95　应用程序定义或对象定义错误　96　由于对象已经激活了事件接受器支持的最大数目的事　

件，不能吸收对象的事件　97　不能调用对象的友元函数，该对象不是所定义类的一个实例。　98　　

属性或方法调用不能包括对私有对象的引用，不论是作为参数还是作为返回值　99　应用程序定　

义或对象定义错误　100　应用程序定义或对象定义错误　　　

122、Private　Sub　Calendar1_Click（）　ActiveCell　=　Me。Calendar1。Value　End　Sub　123、设　

置日历控件字号　Private　Sub　UserForm_Initialize（）　Me。Calendar1。GridFont。Size　=　14　End　　

Sub　124、以下是从金刚金作品里提出来的部份事件代码，做得很好，值得借鉴学习：　Private　　

Sub　Workbook_Activate（）　MsgBox　〃　工作簿被切换为作用工作簿　〃；　vbInformation；　　

〃Workbook_Activate〃　End　Sub　Private　Sub　Workbook_AddinInstall（）　MsgBox　〃激活新的加　

载　　宏　　时　　〃；　　　vbInformation；　　　〃Workbook_AddinInstall〃　　　End　　　Sub　　　Private　　　Sub　　

Workbook_AddinUninstall（）　　MsgBox　　〃　取　消　以　前　选　取　的　加　载　宏　时　〃；　　vbInformation；　　

〃Workbook_AddinUninstall〃　End　Sub　Private　Sub　Workbook_BeforeClose（Cancel　As　Boolean）　　

MsgBox　〃工作簿被关闭之前〃；　vbInformation；　〃Workbook_BeforeClose〃　End　Sub　Private　Sub　　

Workbook_BeforePrint（Cancel　As　Boolean）　MsgBox　〃工作簿打印之前〃；　vbInformation；　　

〃Workbook_BeforePrint〃　End　Sub　Private　Sub　Workbook_BeforeSave（ByVal　SaveAsUI　As　　

Boolean；　　Cancel　　As　　Boolean）　　MsgBox　　〃　工　作　簿　进　行　保　存　之　前　〃；　　vbInformation；　　

〃Workbook_BeforeSave〃　End　Sub　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LVIII　　


…………………………………………………………Page　59……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Private　Sub　Workbook_Deactivate（）　MsgBox　〃工作簿切换为非作用工作簿〃；　vbInformation；　　

〃Workbook_Deactivate〃　End　Sub　Private　Sub　Workbook_NewSheet（ByVal　Sh　As　Object）　　

MsgBox　〃　新建工作表　〃；　vbInformation；　〃Workbook_NewSheet〃　End　Sub　Private　Sub　　

Workbook_Open（）　MsgBox