按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
a = a ＋ 1 '这个数字如果为 2 则隔行列表。
myIndexSheet。Cells（a； 〃b〃）。Value = Sht。Name ' 引号中字母代表列表所在的列（下行同） ，现为 b
列。
Sht。Hyperlinks。Add myIndexSheet。Cells（a； 〃b〃）； Address：=〃〃； SubAddress：=Sht。Name & 〃！A1〃
Next Sht
End Sub
（这个方法是在原有工作表前新加一个工作表用于制作索引（插入模块中录制） ，而下面的方法2
是在指定的表中制作）
方法 2 ：1。将下列代码插入到用于制作索引的表中：
Private Sub Worksheet_Change（ByVal Target As Range）
On Error Resume Next
Dim Sh As Worksheet
If Target。Rows。Count 》= 2 Or Target。Columns。Count 》= 2 _
Then Exit Sub
If Target 〃〃 And Target。Column = 2 And Target。Row 》= 2 Then
For Each Sh In Sheets
382
…………………………………………………………Page 383……………………………………………………………
Str1 = Sh。Name
If Target。Text = Str1 Then
Target。Select
Target。Hyperlinks（1）。Delete
ActiveSheet。Hyperlinks。Add Anchor：=Selection； _
Address：=〃〃； SubAddress：= _
Str1 & 〃！A1〃； TextToDisplay：=Str1
Exit For
End If
Next Sh
End If
End Sub
2 ．插入模块，制作宏：
Sub sy（）
For i = 2 To Sheets。Count
Cells（i； 2） = Sheets（i）。Name
Next
End Sub
（运行宏 sy 即可一次完成任务，它的作用只是列出了文件名，真正实现链接目的的还是第一个
宏）
我的两个问题
问题 1：sub Workbook_Open（）和 Private Sub Workbook_Open（）有啥区别？怎么让后者运行？
答：不是 sub Workbook_Open（） ，应该是 Sub Auto_Open（） 。Sub Auto_Open（）和 Private Sub Wo
rkbook_Open（）功能没有啥区别。你写在 Sub Auto_Open（） 的程序可以照抄写在Private Sub Wor
kbook_Open（）上。要说分别吗，那就是前者是你加上去的程序，写在模版上的程序，后者是内
定的程序，写在 This Workbook 上的程序。
问题2 ：什么情况下将宏代码编写进“this workbook ”或是写入新插入的模块中，二者有区别
吗？
答：写在〃this workbook〃上的程序，你打开工作簿程序就依功能自行执行。写入新插入的模块
中的程序，除了少数程序像 Sub Auto_Open（）或 Sub Auto_Close（）等。除非你呼叫它，否则它是
不会自行执行的。
关于页眉加密问题
公司让俺弄了一个信笺页眉，不希望被别人改动，应如何将页眉单独加密？
解答：1、将页眉的字样做成图片。
11、 做成窗体域再锁定试试。（注：窗体域锁定会将全部内容锁定，只能看、打印，不能
编辑，恐怕不能满足楼主的要求吧？）
12、 老兄以上说的是从“工具“——》”保护文档“中来锁定；我说的是从”视图“——》”
工具栏“——》”窗体“来锁定。‘
13、 你做好页眉后，插入分隔符——分节符——连续，然后选择工具——保护文档——窗
体，这时旁边那个“节”的按钮是可以选择的，去掉节 2 的选择勾，这样，保护仅仅对节
1 （先做的页眉）有效。不过要想别人无法修改页眉，一定要设置保护密码。
383
…………………………………………………………Page 384……………………………………………………………
14、 首先解释一下 word （其实excel 中也是一样的）中的“工具”菜单—— “保护文档”，
不论是 office 2000 还是 xp ，都有 3 种选择，修订、批注、窗体，当选择“修订”时，再次
打开文件时只能以修订方式更改文档，如果选择了“批注”，再次打开文件时只能在文件中
加入批注，如果选择了“窗体”，不允许任何修改，连光标都会无效，永远停留在文件最开
头的地方。打开文件只能另存为或打印。
然后说说这个分域的问题，为了实现楼主的要求，我在做好了页眉后，跳
出页眉区，在正文部分“插入”——”分隔符“，选择”分节符“的”连续“类型，这样wo
rd 会把文件分为两节，实际上节 1 是页眉，节 2 是正文部分，注意在插入分节符后，会出现
一个空行，这时先不要删除这个空行。
然后保护文档，选择窗体，这时会发现右边那个”节“按钮可以按下去
了（如果没有分节，这个按钮是灰色的），默认节 1 节 2 都是选中的，也就是同时保护节 1
节 2，但是我已经说过，节 2 实际是正文部分，如果也保护了，就不能在更改了，所以要把这
个”节 2 “的勾勾去掉，仅将节1 （页眉）保护起来。
Word 的另类复制方法
选定需要复制的文字，按下 Shift＋F2 组合键，这时状态栏上会显示“复制到何处”的字样，
然后将光标移动到目标处并按下回车键即可完成复制。
在序号 3…1，3…2。。。。。。3…100 的表中，如何根据序号，用公式计算 3…1 到 3…45、3…46 到
3…100 的和？
1、假設加總值在b 欄，在 c1 輸入下列公式
｛=SUM（IF（（VALUE（MID（A1：A100；FIND（〃…〃；A1：A100）＋1；5））》0）*（VALUE（MID（A1：A
100；FIND（〃…〃；A1：A100）＋1；5））45）*（VALUE（MID（A1：
A100；FIND（〃…〃；A1：A100）＋1；5））0）*（VALUE（MID（预
算书！B：B；FIND（〃…〃；预算书！B：B）＋1；5）*1）0）*（（MID（data；1；FIND（〃…〃；data）…1）*1）=3）*（V
ALUE（MID（data；FIND（〃…〃；data）＋1；5））D2）*（MID（data；1；FIND（〃…〃；data）…1）=D1）
*（VALUE（MID（data；FIND（〃…〃；data）＋1；5））