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

End　If　End　Sub　55、ActiveSheet。Unprotect　"撤销当前工作表保护　If　ActiveSheet。Name
〃主界面〃　And　ActiveSheet。Name 〃目录索引〃　And　Target。Row　》　3　Then　"行变色　On　Error
Resume Next ＇ChangColor_With＇。FormatConditions。Delete Target。EntireRow。Name =
〃ChangColor_With〃 With ＇ChangColor_With＇。FormatConditions 。Delete 。Add
xlExpression； ； 〃TRUE〃 。Item（1）。Interior。ColorIndex = 4 End With End If
ActiveSheet。Protect　56、在C1中弄个下拉无表；实际是有效性；你可以选择A1：A4为C1单元格　
有效性的序列数据源；如果说C1不与A1：A4在同一表；则不能这么用；应当先对A1：A4命名；然后　
把数据源改为名称。　57、自动增加工作表　进入宏命令编辑窗口，在Sub　自动增加工作表（）命　
令后依次键入如下宏命令内容：　Dim　i&；　userinto　i　=　0　userinto　=　InputBox（〃输入插入　
工作表数量：〃）　If　IsNumeric（userinto）　=　True　Then　Do　Until　i　=　userinto　Worksheets。Add
i　=　i　＋　1　Loop　End　If　End　Sub　58、方法一（共享级锁定）：　1、先对EXCEL文件进行一般的　
VBAProject‖工程密码保护。　2、打开要保护的文件，选择：工具………》保护………》保护并共享工　
作簿………》以追踪修订方式共享……》输入密码……》保存文件。　完成后，当你打开―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　秒出现一次　Sub　auto_open（）　MsgBox　〃欢迎你，在这篇文档里，　
每　5　秒出现一次保存的提示！〃；　vbInformation；　〃请注意！〃　Call　runtimer　"打开文档时　
自动运行　End　Sub　Sub　runtimer（）　Application。OnTime　Now　＋　TimeValue（〃00：00：05〃）；
〃saveit〃　"　Now　＋　TimeValue（〃00：15：00〃）　指定在当前时间过　5　秒钟开始运行　Saveit　这个　
过程。　End　Sub　Sub　SaveIt（）
XXVIII
…………………………………………………………Page　29……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
msg　=　MsgBox（〃朋友，你已经工作很久了，现在就存盘吗？〃　&　Chr（13）　_　&　〃选择是：立刻　
存盘〃　&　Chr（13）　_　&　〃选择否：暂不存盘〃　&　Chr（13）　_　&　〃选择取消：不再出现这个提示〃；
vbYesNoCancel　＋　64；　〃休息一会吧！〃）　"提示用户保存当前活动文档。　If　msg　=　vbYes　Then
ActiveWorkbook。Save　Else　If　msg　=　vbCancel　Then　Exit　Sub　Call　runtimer　"如果用户没　
有选择取消就再次调用　Runtimer　End　Sub　以上只是两个简单的例子，有兴趣的话，可以利用
Application。Ontime　这个函数写出更多更有用的定时程序。　Sub　Show_my_msg（）　msg　=
MsgBox（〃现在是　17：00：00　！〃；　vbInformation；　〃自定义信息〃）　End　Sub　2。模仿　Excel　97　里　
的　〃自动保存宏〃；在这里定时　5　秒出现一次　Sub　auto_open（）　MsgBox　〃欢迎你，在这篇文档　
里，每　5　秒出现一次保存的提示！〃；　vbInformation；　〃请注意！〃　Call　runtimer　"打开文　
档时自动运行　End　Sub　Sub　runtimer（）　Application。OnTime　Now　＋　TimeValue（〃00：00：05〃）；
〃saveit〃　"　Now　＋　TimeValue（〃00：15：00〃）　指定在当前时间过　5　秒钟开始运行　Saveit　这个　
过程。　End　Sub
61、Excel　最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他　
单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝　
大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结　
算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在　
Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输　
入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个　
方面考虑：一种方法是所谓―　已知结果，显示公式‖，先在数据格式单元格中输入公式让Excel　
计算结果，然后在相邻的单元格中看到公式；另一种方法所谓―　已知公式，显示结果‖，就是先　
在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。★已知结果，显示公式　假　
设C列为通过公式计算得到的结果（假设C1为―=A1＋B1‖，或者直接是数字运算―=2＋3‖），而相邻　
的D列是你需要显示公式的地方（即D1应该显示为―=A1＋B1‖或者―=2＋3‖　）。　1。　打开―工具‖菜　
单选择―选项‖命令，出现―选项‖对话框。　2。　在―常规‖选项卡中，选中―R1C1引用方式‖选项。
3。　定义名称，将―　引用位置‖　由―=GET。CELL（6；Sheet1！RC＇…1＇）‖　即可。这里的RC＇…1＇含义是如　
果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含　
公式结果单元格的同行后一列单元格显示公式内容；如果将RC＇…1＇改为RC＇1＇，则在公式结果　
的同行前一列单元格显示公式内容。　4。　如果―引用位置‖　中含有―RC＇…1＇‖，则在含公式结果单　
元格的同行后一列单元格中输入―=FormulaofResult‖　即可得到公式；如果―　引用位置‖　中含有　
―RC＇1＇‖，则在含公式结果单元格的同行前一列单元格中输入―=FormulaofResult