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

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 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　〃打开工作簿〃；　vbInformation；　〃Workbook_Open〃　End　Sub　Private　　

Sub　Workbook_PivotTableCloseConnection（ByVal　Target　As　PivotTable）　MsgBox　〃数据透　

视表关闭与其数据源的连接之后〃；　vbInformation；　〃Workbook_PivotTableCloseConnection〃　　

End　Sub　Private　Sub　Workbook_PivotTableOpenConnection（ByVal　Target　As　PivotTable）　　

MsgBox　　〃　数　据　透　视　表　打　开　与　其　数　据　源　的　连　接　之　后　〃；　　vbInformation；　　

〃Workbook_PivotTableOpenConnection〃　　　　　　　　　　　　　End　　　　　　　　　Sub　　　　　　　　　Private　　　　　　　　　Sub　　

Workbook_SheetActivate（ByVal　Sh　As　Object）　MsgBox　〃工作表〃　&　Sh。Name　&　〃切换为作用　

工　作　表　〃；　　vbInformation；　　〃Workbook_SheetActivate〃　　End　　Sub　　Private　　Sub　　

Workbook_SheetBeforeDoubleClick（ByVal　Sh　As　Object；　ByVal　Target　As　Range；　Cancel　As　　

Boolean）　　　MsgBox　　　〃　　任　　一　　单　　元　　格　　双　　击　　鼠　　标　　之　　后　　〃；　　　vbInformation；　　

〃Workbook_SheetBeforeDoubleClick〃　　　　　　　　　　　　　　End　　　　　　　　　Sub　　　　　　　　　Private　　　　　　　　　　Sub　　

Workbook_SheetBeforeRightClick（ByVal　Sh　As　Object；　ByVal　Target　As　Range；　Cancel　As　　

Boolean）　　MsgBox　　〃　任　一　单　元　格　单　击　鼠　标　右　键　之　后　〃；　　vbInformation；　　

〃Workbook_SheetBeforeRightClick〃　End　Sub　Private　Sub　Workbook_SheetCalculate（ByVal　　

Sh　　As　　Object）　　MsgBox　　〃　工　作　表　内　容　进　行　重　算　之　后　〃；　　vbInformation；　　

〃Workbook_SheetCalculate〃　End　Sub　Private　Sub　Workbook_SheetChange（ByVal　Sh　As　Object；　　

ByVal　Target　As　Range）　MsgBox　〃　在工作表内进行不同的操作　〃；　vbInformation；　　

〃Workbook_SheetChange〃　End　Sub　Private　Sub　Workbook_SheetDeactivate（ByVal　Sh　As　　

Object）　MsgBox　〃　工作表　〃　&　Sh。Name　&　〃　切换为非作用工作表　〃；　vbInformation；　　

〃Workbook_SheetDeactivate〃　End　Sub　Private　Sub　Workbook_SheetFollowHyperlink（ByVal　　

Sh　As　Object；　ByVal　Target　As　Hyperlink）　MsgBox　〃按下Excel超链接之后〃；　vbInformation；　　

〃Workbook_SheetFollowHyperlink〃　　　　　　　　　　　　　　End　　　　　　　　　　Sub　　　　　　　　　　Private　　　　　　　　　　Sub　　

Workbook_SheetPivotTableUpdate（ByVal　Sh　As　Object；　ByVal　Target　As　PivotTable）　MsgBox　　

〃数据透视表更新之后　〃；　vbInformation；　〃Workbook_SheetPivotTableUpdate〃　End　Sub　　

Private　Sub　Workbook_SheetSelectionChange（ByVal　Sh　As　Object；　ByVal　Target　As　Range）　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LIX　　


…………………………………………………………Page　60……………………………………………………………

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



MsgBox　　　〃　　工　　作　　表　　里　　选　　取　　不　　同　　单　　元　　格　　范　　围　　时　　〃；　　　vbInformation；　　

〃Workbook_SheetSelectionChange〃　End　Sub　Private　Sub　Workbook_WindowActivate（ByVal　Wn　　

As　　Window）　　MsgBox　　〃　　工　作　簿　切　换　为　作　用　工　作　簿　　〃；　　vbInformation；　　

〃Workbook_WindowActivate〃　End　Sub　Private　Sub　Workbook_WindowDeactivate（ByVal　Wn　As　　

Window）　　MsgBox　　〃　　工　作　簿　切　换　　为　非　作　用　工　作　簿　　〃；　　vbInformation；　　

〃Workbook_WindowDeactivate〃　End　Sub　Private　Sub　Workbook_WindowResize（ByVal　Wn　As　　

Window）　　MsgBox　　〃　工　作　簿　被　打　开　或　窗　口　最　大　化　、　最　小　化　之　后　〃；　　vbInformation；　　

〃Workbook_WindowResize〃　End　Sub　Private　Sub　Worksheet_SelectionChange（ByVal　Target　　

As　Range）　MsgBox　〃选取不同单元格范围时〃；　vbInformation；　〃Worksheet_SelectionChange〃　　

End　Sub　125、Rem　选定单元格的个数　Sub　t（）　MsgBox　Selection。Cells。Count　End　Sub　126、　

Application。OnKey　〃｛F11｝〃；　〃ccc〃禁用F11　127　、'选中A列除A1外的第一个非空单元格　　

＇a65536＇。End（xlUp）。Offset（1；　0）。Select　128、Private　Sub　mandButton1_Click（）　On　　

Error　　GoTo　　ad　　'　注　意　后　面　的　ad　，　这　是　错　误　处　理　的　用　法　　i　　=　　Range（〃a1〃）。Value　　

Sheets（CStr（i））。Select　ret　=　MsgBox（〃是否覆盖〃；　vbYesNo；　〃〃）　If　ret　=　vbYes　Then　　

Range（〃A5：C7〃）。Copy　　Sheets（CStr（i））。Range（〃A1〃）　　'　重　点　在　copy　之　后　　　Else　　

Sheets。Add。Name　=　i　&　〃。2〃　Range（〃A5：C7〃）。Copy　Sheets（CStr（i　&　〃。2〃））。Range（〃A1〃）　End　　

If　End　ad：　Sheets。Add。Name　=　i　'工作表名的变化是可见的　　Range（〃A5：C7〃）。Copy　　

Sheets（CStr（i））。Range（〃A1〃）　End　Sub　129、用变量取代Sheet1中的―1‖　For　i　=　1　To　3　　

Sheets（〃sheet〃　&　i）。Range（〃A2〃）　=　〃1234〃　Next　130、中英对照　English　繁體中文　簡体　

中文　Absolute　Referencing　絕對參照　绝对引用　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LX　　


…………………………………………………………Page　61……………………………………………………………

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



Active　Cell　現存儲存格　活动单元格　Add…in　增益集　加载宏　Address　位址　地址　Array　陣　

列　数组　Array　Formula　陣列公式　数组公式　Audit　稽核　审核　Bold　粗體　粗体　Bug　蟲　Bug　　

Cell　儲存格　单元格　Circular　Reference　循環參照　循环引用　Code　程式碼　代码　Column　　

欄　列　mand　指令　命令　ment　裕Ы狻∽⑹汀�Condition　條件　条件　Constant　常數　常数　　

Cursor　浮標　指针　Cursor　游標　　鼠标指针　Data　數據／資料　数据　Data　Type　資料型態　数　

据类型　Debug　偵錯　调试　Debug　　除蟲　调试　Declare　宣告　声明　Dependent　從屬　从属　　

Dialog　Box　對話方塊　对话框　Double　雙精度浮點數　双精度浮点数　Double…click　（on　mouse）　　

雙按　双击　Drag　拖曳　拖曳　Drop…down　Box　清單方塊　？　Edit　編緝　编辑　Electronic　Mail　　

/　Email　電啵В�電子啵Ъ�　电子邮件　Event　事件　事件　Execute　執行　执行　File　檔案　文件　　

Filter　篩選　筛选　Flowchart　流程圖　流程图　Footer　頁尾　页脚　Form　�