友情提示：如果本网页打开太慢或显示不完整，请尝试鼠标右键“刷新”本网页！
Excel word ppt office使用技巧大全(DOC格式)-第3部分
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 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‖ 即可得到公
式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把― 引用
位置‖ 中的―RC －1 ‖改为―RC －2 ‖ 。
XXIX
…………………………………………………………Page 30……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
★已知公式，显示结果 假设C列为输入的没有等号公式（假设C1为―A1＋B1‖），而相邻的D列是
你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。 1。 选中D1，然后打
开―插入‖菜单选择―名称‖命令中的―定义‖子命令，出现―定义名称‖对话框。 2。 在―在当前工作
表中的名称‖输入栏中输入定义的名称―ResultofFomula‖，在下方的― 引用位置‖编辑栏中输入
―=EVALUATE（Sheet1！C1）‖，单击＇确认＇按钮退出。 3。 在 D1中输入―=ResultofFomula‖，然后
选中按住右下角的填充柄向下拉动填充即可。 提示：EVALUATE 是Eexcel 4．0版的宏表函
数，Excel 2000和Excel 2002中还支持，但只可用于名称定义中。 4。 填充后要按＇F9＇进行重
算，如果C列的公式有改动，也需要及时按＇F9＇进行重算。 巧施妙计，就能让公式和结果在Excel
中和平共处了，你也试试吧。 62 、http：//yesky。/20010724/190094_3。shtml
Microsoft Excel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运
算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用
Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超
过人们的想象……宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问
题。 随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处
理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种
应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA
（Visual Basic for Applications）语言。 VBA是从流行的Visual Basic编程语言中派生出
来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语
言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过
它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）〃〃，而且随着其它的
一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范
围；2、可以将用VBA编写的程序复制到Visual Basic中调试并运行，从而实现用Visual Basic
来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。 对于而今的宏，
不仅语言统一规范，而且其功能也已非常强大。但在大多数介绍Excel的〃傻瓜书〃、〃指南〃、〃
入门与提高〃等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应
付处理复杂数据的需求。为了完成工作，就让我们一起来学习〃宏〃的妙用吧。 一）、宏的自学
首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用〃录制宏〃的方法来
学习宏：点击Excel〃工具〃下拉菜单中〃宏〃下？quot；录制新宏〃，此后可象平时一样进行有关操
作，待完成后停止录制。然后再点击〃工具〃下拉菜单中〃宏〃下〃宏〃的〃编辑〃选项即可打开刚才
所录制的宏的Visual Basic源程序，并且可以在此时的〃帮助〃下拉菜单中获得有关的编程帮
助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二）、基本概念 为
了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿：Workbooks、Workbook、
ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦
即所有打开的Excel 文件；Workbook 对应Workbooks 中的成员，即其中的Excel 文件；
ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代
表其中有Visual Basic代码正在运行的工作簿。 在具体使用中可用Workbooks（index）来引用
Workbook对象，其中 index为工作簿名称或编号；如Workbooks（1） 、Workbooks（〃年度报
表。xls〃）。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二
个打开的工作簿为2〃〃。
XXX
…………………………………………………………Page 31……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作
表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet
代表当前处于的活动状态工作表，即当前显示的一个工作表。 可用Worksheets（index）来引用
Worksheet对象，其中index为工作表名称或索引号；如Worksheets（1）、Worksheets（〃第一季
度数据〃）。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的
索引号为1，最后一个（最右边的）为Worksheets。Count。需要注意的是：在使用过程中Excel
会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。
因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表：
Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的图表。该
图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。
Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对
话框编辑表中的图表。使用Charts（index） 可引用单个Chart图表，其中index是该图表工作表
的索引号或名称；如Charts（1）、Charts（〃销售图表〃）。图表工作表的索引号表示图表工作表
在工作簿的工作表标签栏上的位置。Charts（1）是工作簿中第一个（最左边的）图表工作表；
Charts（Charts。Count）为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌
入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的
外观和尺寸。 ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图
表的集合。可由ChartObjects（index）引用单个ChartObject，其中index为嵌入式图表的编号
或 名 称 。 如 Worksheets（〃Sheet1〃）。ChartObjects（1） 、
Worksheets（〃sheet1〃）。ChartObjects（〃chart1〃）分别对应〃Sheet1〃工作表中的第一个嵌入式
图表、以及名为〃Chart1〃的嵌入式图表。 ActiveChart可以引用活动状态下的图表，不论该图
表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet
属性引用之。 4、单元格：Cells、ActiveCell、Range、Areas Cells（row；column）代表单个
单元格，其中row为行号，column为列号。如可以用Cells（1；1）、Cells（10；4）来引用〃A1〃、〃D10〃
单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。 Range代表
工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续
单元格区域）或者某一三维区域。 可用Range（arg）来引用单元格或单元格区域，其中arg可为
单元格号、单元格号范围、单元格区域名称。如 Range（〃A5〃） 、Range（〃A1：H8〃） 、
Range（〃Criteria〃）。虽然可用Range（〃A1〃）返回单元格A1，但用Cells更方便，因为此时可用
变量指定行和列。 可将Range与Cells结合起来使用，如Range（Cells（1；1）；Cells（10；10））代
表单元格区域〃A1：J10〃；而expression。Cells（row；column）返回单元格区域中的一部分，其中
expression是返回Range 的表达式，row和column为相对于该区域的左上角偏移量。如由
Range（〃C5：C10〃）。Cells（1；1）引用单元格C5。 Areas为选定区域内的连续单元格块的集合，其
成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元
格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块
数Areas。Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas（index）从
集合中返回单个Range对象，其中index为单元格块编号；如Areas（1）。 5、 行与列：Rows、
Columns、Row、Column Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工
作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范
围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1：B2和C3：D4，
Rows。Count返回2而不是4。
XXXI
…………………………………………………………Page 32……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
可通过Rows（行号）、Columns（列号）来引用相应的行与列；如Rows（3）、Columns（4）分别对应第
三行、D列。 利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均
以十进制数表示。 三）、处理单元格 1、直接赋值与引用 将变量、常量值直接赋给单元格、
或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下
例将工作表〃Sheet1〃A1单元格的值赋给Integer变量I，并将I＋1的值赋给当前工作表中的B1单
元格： Dim I As Integer I=Worksheets（〃Sheet1〃）。Cells（1；1） Cells（1；2）。Select '选定
B1单元格，使其成为当前单元格 ActiveCell=I＋1 '以I＋1为当前单元格赋值 2、用公式赋值 在
宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、
向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：
ActiveCell。Formula=〃=AVERAGE（R＇…6＇C＇…4＇：R＇…2＇C＇…4＇）〃 3、引用其它工作表中的单元格
当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上〃工作表名！〃即可。
如 以 下 即 在 赋 值 中 引 用 了 〃Sheet1〃 工 作 表 中 的 A1 至 A4 单 元 格 ：
Range（〃E10〃）。Formula=〃=SUM（Sheet1！R1C1：R4C1）〃 但需注意的是：当被引用的工作表名中含
有某些可能引起公式歧义的字符时，需要用单引号 ' 将工作表名括起来。如：
Worksheets（〃Sheet1〃）。ActiveCell。Formula=〃=Max（'1…1剖面'！D3：D5）〃 4、引用其它工作簿
中的单元格 在被引用单元格所在工作表名前加上〃＇工作簿名＇〃，即可引用其它工作簿中的单
元格。如： ActiveCell。Formula=〃=MAX（＇Book1。xls＇Sheet3！R1C：RC＇4＇）〃 同样需注意的是：
当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号〃＇〃、〃＇〃及单引号
'将工作簿名括起来。如： Cells（1；2）。Formula=〃=MIN（'＇1995…2000总结。xls＇1995…1996年'！
A1：A6）〃 5、避免循环引用 在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，
防止循�
快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部!
温馨提示： 温看小说的同时发表评论，说出自己的看法和其它小伙伴们分享也不错哦！发表书评还可以获得积分和经验奖励，认真写原创书评 被采纳为精评可以获得大量金币、积分和经验奖励哦！