友情提示：如果本网页打开太慢或显示不完整，请尝试鼠标右键“刷新”本网页！

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

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页按键盘上的 Enter 键可回到本书目录页按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能和 "加入书签" 功能！

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

Sheet2。Activate　'激活　ActiveSheet。Range（〃A1〃）。Select　End　If　If　Target。Address　=　　

〃A6〃　　　　Then　　　　Sheet3。Visible　　　　　=　　　　1　　　　'　　　取　　　消　　　　隐　　　　藏　　　　　　　Sheet3。Activate　　

ActiveSheet。Range（〃A1〃）。Select　End　If　End　Sub　33　、将a2单元格内容替换为a1　内容　　

ActiveCell。Replace　What：=＇a2＇；　Replacement：=＇a1＇　34、如果是要填入名称；则：　Private　　

Sub　　　Worksheet_SelectionChange（ByVal　　　Target　　　As　　　Range）　　　Selection。Value　　　=　　

boBox1。column（1）　　End　　Sub　　如　果　是　要　填　入　代　码　和　名　称　的　组　合　　　：　　Private　　Sub　　

Worksheet_SelectionChange（ByVal　　　　　　　　Target　　　　　As　　　　Range）　　　　　Selection。Value　　　　　　=　　

cstr（boBox1。column（0））＋〃　　　　　　　〃＋bobox1。column（1）　　　　　　End　　　　Sub　　　　Private　　　　Sub　　

Worksheet_SelectionChange（ByVal　Target　As　Range）　Selection。Value　=　boBox1。Value　　

End　Sub　Private　Sub　Worksheet_SelectionChange（ByVal　Target　As　Range）　'target。row　代　

表行号　'target。column　代表列号　i=target。row　'获取行号　j=target。column　'获取列号　　

End　Sub　35　、当激活工作表时，本示例对　　A1：A10　　区域进行排序。　　Private　Sub　　

Worksheet_Activate（）　Range（〃a1：a10〃）。Sort　Key1：=Range（〃a1〃）；　Order：=xlAscending　End　　

Sub　36、BeforePrint　事件　参阅应用于示例特性在打印指定工作簿（或者其中的任何内容）　

之前，产生此事件。　Private　Sub　Workbook_BeforePrint（Cancel　As　Boolean）　Cancel　当事　

件产生时为　False。如果该事件过程将本参数设为　True，则当该过程运行结束之后不打印工　

作簿。　示例　本示例在打印之前对当前活动工作簿的所有工作表重新计算。　Private　Sub　　

Workbook_BeforePrint（Cancel　As　Boolean）　For　Each　wk　in　Worksheets　wk。Calculate　Next　　

End　Sub　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXIII　　

…………………………………………………………Page　24……………………………………………………………

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

37　、Open　事件　　参阅应用于示例特性打开工作簿时，将产生本事件。　　Private　Sub　　

Workbook_Open（）　示例　每次打开工作簿时，本示例都最大化　Microsoft　Excel　　窗口。　　

Private　Sub　Workbook_Open（）　Application。WindowState　=　xlMaximized　End　Sub　38　、　

ActiveSheet　属性　参阅应用于示例特性返回一对象，该对象代表活动工作簿中的，或者指定　

的窗口或工作簿中的活动工作表（最上面的工作表）。只读。如果没有活动的工作表，则返回　　

Nothing。　说明　如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。　如果某一　

工作簿在若干个窗口中出现，那么该工作簿的　ActiveSheet　属性在不同窗口中可能不同。　示　

例　本示例显示活动工作表的名称。　MsgBox　〃The　name　of　the　active　sheet　is　〃　&　　

ActiveSheet。Name　39、Calculate　方法　参阅应用于示例特性计算所有打开的工作簿、工作簿　

中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：　要计算　依照本示例　所　

有打开的工作簿　Application。Calculate　　（或只是　Calculate）　指定工作表　指定工作表　指　

定　区　域　　　Worksheets（1）。Rows（2）。Calculate　　expression。Calculate　　expression　　对　于　　

Application　对象可选，对于　Worksheet　对象和　Range　对象必需。该表达式返回―应用于‖　

列表中的对象之一。　示例　本示例计算　Sheet1　已用区域中　A　列、B　列和　C　列的公式。　　

Worksheets（〃Sheet1〃）。UsedRange。Columns（〃A：C〃）。Calculate　程序的核心是算法问题　40、　

End　属性　参阅应用于示例特性返回一个　Range　对象，该对象代表包含源区域的区域尾端的单　

元格。等同于按键　End＋　向上键、End＋　向下键、End＋　向左键或　End＋　向右键。Range　对象，　

只读。　expression。End（Direction）　expression　必需。　该表达式返回―应用于‖列表中的对　

象之一。　Direction　XlDirection　类型，必需。所要移动的方向。　XlDirection　可为　　

XlDirection　常量之一。　xlDown　xlToRight　xlToLeft　xlUp　示例　本示例选定包含单元格　B4　　

的区域中　B　列顶端的单元格。　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXIV　　

…………………………………………………………Page　25……………………………………………………………

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

Range（〃B4〃）。End（xlUp）。Select　本示例选定包含单元格　B4　的区域中第　4　行尾端的单元格。　　

Range（〃B4〃）。End（xlToRight）。Select　本示例将选定区域从单元格　B4　延伸至第四行最后一　

个　　包　　含　　数　　据　　的　　单　　元　　格　　。　　　　　Worksheets（〃Sheet1〃）。Activate　　　Range（〃B4〃；　　

Range（〃B4〃）。End（xlToRight））。Select　41、应用于　CellFormat　和　Range　对象的　Locked　属　

性。　本示例解除对　Sheet1　中　A1：G37　区域单元格的锁定，以便当该工作表受保护时也可对　

这　些　单　元　格　进　行　修　改　。　　　Worksheets（〃Sheet1〃）。Range（〃A1：G37〃）。Locked　　=　　False　　

Worksheets（〃Sheet1〃）。Protect　42、Next　属性　参阅应用于示例特性返回一个　Chart、Range　　

或　Worksheet　对象，该对象代表下一个工作表或单元格。只读。　说明　如果指定对象为区域，　

则本属性的作用是仿效　Tab，但本属性只是返回下一单元格，并不选定它。　在处于保护状态　

的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指　

定单元格右边的单元格。　示例　本示例选定　sheet1　中下一个未锁定单元格。如果　sheet1　未　

保护，选定的单元格将是紧靠活动单元格右边的单元格。　Worksheets（〃Sheet1〃）。Activate　　

ActiveCell。Next。Select　43、想通过target来设置　（A1：A10）区域内有改动，就发生此事件。　

不知道如何　if　target。row　=　1　and　target。column　保护………》保护并共享工　

作簿………》以追踪修订方式共享……》输入密码……》保存文件。　完成后，当你打开―VBAProject‖工　

程属性时，就将会提示：―工程不可看！―　方法二（推荐，破坏型锁定）：　用16进制编辑工具，　

如WinHex、Ultraedit…32　（可到此下载）等，再历害点的人完全可以用debug命令来做。。。。。。　

用　　　以　　　上　　　软　　　件　　　打　　开　　EXCEL　　　文　　　件　　　，　　　查　　　找　　　定　　　位　　以　　　下　　　地　　　方　　　：　　

ID=〃｛00000000…0000…0000…0000…000000000000｝〃　注：实际显示不会全部为0　此时，你只要将　

其中的字节随便修改一下即可。保存再打开，就会发现大功告成！　　　

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　XXVII　　

…………………………………………………………Page　28……………………………………………………………

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

当然，在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可（只要你记住　

了呵呵）。　顺便说一句，这种方法仍然是可破解的，因为加密总是相对的　　。　59、Sub　　

Addments（）　　'　自　動　對　ActiveSheet　所　有　有　公　式　格　位　加　上　裕А〗狻　　et　　RG　　=　　

Cells。SpecialCells（xlCellTypeFormulas）　For　Each　c　In　RG　c。Addment　c。ment。Text　　

Text：=c。Formula　Next　c　End　Sub　Sub　De_ments（）　'　自動消除所有裕Ы狻　et　RG　=　　

Cells。SpecialCells（xlCellTypeFormulas）　For　Each　c　In　RG　c。Clearments　Next　c　End　　

Sub　60、如何在Excel里使用定时器　aspsky　2002…3…12　20：53：27　动网先锋　用过　　

Excel　97　里的加载宏　〃定时保存〃　吗？可惜它的源程序是加密的，现在就上传一篇介绍实现　

它的文档。　　　在　　　Office　　里有个方法是　　　application。ontime　　，具体函数如下：　　

expression。OnTime（EarliestTime；　Procedure；　LatestTime；　Schedule）　如果想进一步了解，　

请参阅　Excel　的帮助。　这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日　

期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在　Excel　里编写自己　

的定时程序了。下面就举两个例子来说明它。　1。在下午　17：00：00　的时候显示一个对话框。　　

Sub　Run_it（）　Application。OnTime　TimeValue（〃17：00：00〃）；　〃Show_my_msg〃　'设置定时器在　　

17：00：00　激活，激活后运行　Show_my_msg　。　End　Sub　Sub　Show_my_msg（）　msg　=　MsgBox（〃　

现在是　17：00：00　！〃；　vbInformation；　〃自定义信息〃）　End　Sub　2。模仿　Excel　97　里的　〃　

自动保存宏〃；在这里定时　5　秒出

返回目录上一页下一页回到顶部赞（0）踩（1）

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页按键盘上的 Enter 键可回到本书目录页按键盘上方向键 ↑ 可回到本页顶部!

温馨提示：温看小说的同时发表评论，说出自己的看法和其它小伙伴们分享也不错哦！发表书评还可以获得积分和经验奖励，认真写原创书评被采纳为精评可以获得大量金币、积分和经验奖励哦！