不懂VBA也编程

山菊花

我们的问题总是来自工作实际。激活目录中指定的工作表，如yql4688所说，不但实用，而且有趣。我们来看一个与此有关的问题。


问题1：如果我们希望在表格中输入文字(如101、102、201……等)后，Excel会自动插入一个工作表，并以该单元格内容命名，可以这样操作：

右键单击本工作表标签，选择“查看代码”，将下面的代码粘贴到光标处即可：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     If Target.Count > 1 Then Exit Sub '如果修改多个单元格的值，退出程序(不插入工作表)
   
4.     If Target = "" Then Exit Sub '如果单元格的值为空，退出程序
   
5.     If Intersect(Target, Range("B5:G10")) Is Nothing Then Exit Sub '如果选择的单元格不在 B5:G10 区域内，退出程序
   
6.     If MsgBox("插入工作表 " & Target.Value & " 吗？      ", 36, "提示") = 7 Then Exit Sub '提示，如果不要提示，删去此行
   
7.    
   
8.     Sheets.Add '插入工作表
   
9.     ActiveSheet.Name = CStr(Target.Value) '为工作表更名(名称为当前工作表的内容)
   
10.     ActiveSheet.Move after:=Sheets(Sheets.Count)  '将新工作表移到最后
    
11.    
    
12. End Sub

复制代码

效果见附件： 成绩表1.zip (9.53 KB, 下载次数: 938)

2008-12-11 15:15 上传

点击文件名下载附件

    练习： 成绩表2.zip (6.88 KB, 下载次数: 637)

2008-12-11 15:15 上传

点击文件名下载附件

问题2：实际使用中，我们希望点击某单元格时，自动激活对应的工作表，输入文字时，新建工作表。
即是把插入工作表的功能与134楼介绍的功能结合起来。

要实现这样的功能，只需在“目录”模块下同时写入两段代码：


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

’****************激活工作表的代码   

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

’****************插入工作表代码   
   
End Sub
两段代码没有顺序之分，哪个在前，哪个在后没有关系。

在ThisWorkbook模块中加入隐藏工作表的代码(方法见134楼)：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
’****************隐藏工作表代码
End Sub

实际效果见附件： 成绩表3.zip (11.55 KB, 下载次数: 847)

2008-12-11 15:15 上传

点击文件名下载附件

问题3：实际使用中，我们更希望插入的不是一个空白的工作表，而是像现在看到的这样，有统一的表格样式：


可以这样操作：
1、建立一个只有一个工作表的工作簿，设计好表格样式，保存工作簿时，保存类型选择为“模板”。
模板默认保存路径是：C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates
在保存的时候可自由选择。
2、右键单击本工作表标签，选择“查看代码”，将下面的代码粘贴到光标处，请检查模板所在路径是否正确：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error Resume Next '如果遇到程序出错，不中断，继续往下执行(原来存在同名工作表时，更名一步会出错)
   
3.     If Target.Count > 1 Then Exit Sub '如果修改多个单元格的值，退出程序(不插入工作表)
   
4.     If Intersect(Target, Range("B5:G10")) Is Nothing Then Exit Sub '如果选择的单元格不在 B5:G10 区域内，退出程序
   
5.     If Target = "" Then Exit Sub '如果清除单元格的值，退出程序
   
6.    
   
7.     If MsgBox("插入工作表 " & Target.Value & " 吗？      ", 36, "提示") = 7 Then Exit Sub '提示，如果不要提示，删去此行
   
8.     Sheets.Add Type:=ThisWorkbook.Path & "\cjb.xlt" '插入工作表(使用模板 cjb.xlt)
   
9.     ActiveSheet.Name = CStr(Target.Value) '为工作表更名(名称为当前工作表的内容)
   
10.     ActiveSheet.Move after:=Sheets(Sheets.Count)  '将新工作表移到最后
    
11. End Sub

复制代码

与前面的代码相比，只有一行不相同，就是插入基于模板的工作表。
在“Sheets.Add Type:=ThisWorkbook.Path & "\cjb.xlt" ”这一句中，“ThisWorkbook.Path”表示本工作簿所在路径，即模板文件与本文件在同一目录中。如果将模板保存到其它位置，如“D:\模板”，则代码为：
Sheets.Add Type:="D:\模板\cjb.xlt"
效果见附件： 成绩表4.zip (17.09 KB, 下载次数: 968)

2008-12-11 15:15 上传

点击文件名下载附件

xttld831208

厉害，不错，值得学习

wangtx218

我每天看，学了不少东西，谢谢山老师！

lwz123

认真学习，谢谢提供！

suzhiliang

老师 辛苦！

xpm130

山版是个神一般的人,看你的作品也令人异想天开.
老师在134楼介绍的为工作簿创建目录是手工加技巧,即在目录表上手工做出工作表名,然后点击便激活,点返回就回到目录,并且隐藏不活动的工作表.
我想在有134楼的功能的基础上,再加上点自动化,就是当从本工作簿复制一工作表或插入一新工作表时,能在<目录>表上自动添加上目录项.不知能办到否?

凌云上

山版您好！我想问一下怎么解除工作簿的保护密码。
我用EXCEL做了一个管理系统，同时也启用了工作簿密码保护，但现在记不起密码了，
也下载了对EXCEL进行解密的小软件，但还是无法解密，现在不知道该怎么办！很急啊，要重新做的话很费时间，而且我还是隐藏了部分工作表的，现在隐藏的工作表也无法看到了！非常急！在此先感谢了！

shjc168

非常感谢共享

zzy520900

dddddddddddddddd

bjluogao

万分感谢菊版的无私讲解，今天真的是学习了N多的新知识了，现在感觉自己对EXCEL真的是了解太肤浅了，还得继续深入学习之