给工作簿创建目录，方法有多种，我们介绍使用VBA的方法

大中小

2018-08-10 酒心1000

展开全文

为工作簿创建目录，方法有多种，下面介绍使用VBA的方法。

给工作簿创建目录，方法有多种，我们介绍使用VBA的方法

⑴、点击单元格，激活相同名称的工作表。

右键点击“目录”工作表标签，选择“查看代码”，将下面的代码粘贴到光标处：

复制代码

返回工作表，点击单元格，即可激活名称相同的工作表，与点击工作表标签效果相同。

实际使用中，还需加入一些代码，判断单元格是否为空，单元格是否在规定范围之内等，见附件。

⑵、隐藏多余的工作表。

要隐藏多余的工作表，须做两项工作。

首先，在工程管理器中，右键单击模块名“ThisWorkbook”，选择“查看代码”，如下图：

给工作簿创建目录，方法有多种，我们介绍使用VBA的方法

将下面的代码粘贴到光标处：

如果你的工作表标签不是“目录”，而是“主界面”或其它，代码中应根据实际作修改。

第二步，在上面代码中“Sheets(Target.Value).Activate ”前面插入一行：

Sheets(Target.Value).Visible = 1 '取消隐藏，显示工作表

效果见附件：

⑶、隐藏目录工作表。

在各工作表适当的地方，设置一个内容为“返回目录”的单元格，为了点击这个单元格，能够激活目录工作表，将下面的代码粘贴到模块“ThisWorkbook”下：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = 2 '隐藏非活动状态的工作表
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Target.Range('a1') = '返回目录' Then '如果点击的单元格内容为“返回目录”
Target.Offset(1).Activate
Sheets('目录').Visible = 1 '将目录工作表取消隐藏
Sheets('目录').Activate '激活目录工作表
End If
End Sub

⑷在目录中插入图片

建立目录时，不少人喜欢使用图片链接各工作表。

实际操作时，右键点击图片，选择“超链接”，链接的目标不要选择工作表，而是图片下面对应文字所在的单元格。

本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。

转藏到我的图书馆献花（0）

0条评论

请遵守用户评论公约

类似文章 更多