ExcelVBA实例教程#027：自动建立工作表目录_第1页
ExcelVBA实例教程#027：自动建立工作表目录_第2页
ExcelVBA实例教程#027：自动建立工作表目录_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

如果在工作簿中有许多工作表 使用时往往会建立一张目录表并插入超链接以方便选择工作表 但是如果工作簿中的工作表经常添加和删除 使用手工建立目录很不方便 此时可以使用工作 表的 Activate 事件自动建立工作表的目录 如下面的代码所示 1 Private Sub Worksheet Activate 2 Dim sh As Worksheet 3 Dim a As Integer 4 Dim R As Integer 5 R Sheet1 A65536 End xlUp Row 6 a 2 7 If Sheet1 Cells 2 1 Then 8 Sheet1 Range A2 A R ClearContents 9 End If 10 For Each sh In Worksheets 11 If sh CodeName Sheet1 Then 12 Sheet1 Cells a 1 Value sh Name 13 a a 1 14 End If 15 Next 16 End Sub 代码解析 工作表的 Activate 事件 在 目录 工作表激活时自动建立工作簿中除 目录 工作表外所有工作 表的目录 第 2 3 4 行代码声明变量类型 第 5 行代码取得 A 列最后非空单元格的行号 第 6 行代码设置变量 a 的初始值为 2 从 A2 单元格开始建立工作表目录 第 7 行到第 9 行代码判断是否存在工作表目录 如果存在先清空原来的目录 以便更新目录 第 10 行到第 15 代码遍历工作簿的所有工作表 将除 目录 工作表外所有工作表的名称写入到 A 列单元格中 为了建立到各工作表的链接 使用工作表的 SelectionChange 事件 如下面的代码所示 1 Private Sub Worksheet SelectionChange ByVal Target As Range 2 Dim R As Integer 3 R Sheet1 A65500 End xlUp Row 4 On Error Resume Next 5 If Target Count 1 Then 6 If Target Column 1 Then 7 If Target Row 1 And Target Row R Then 8 Sheets Target Value Select 9 End If 10 End If 11 End If 12 End Sub 复制代码 代码解析 工作表的 SelectionChange 事件 当选择 A 列工作表目录中工作表名称时自动选择该单元格所 对应的工作表 第 5 6 7 行代码限制该事件触发的条件 第 8 行代码选择单元格所对应的工作表
人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论