按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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