excel VBA自动化 - 报告目录的切换跳转

目录

一 绘制目录

二 新增宏

三 子目录单击跳转

四 隐藏页签

---

一 绘制目录

• 单独一个页签作为目录，命名（首页）→ 合并n个单元格，输入其余页签名称（文本居中）
• 填充已合并的单元格 →插入长方形，框住文字（填充设无）
• 考虑因素相近的目录项，以下图为例，省份＆城市性质相同，其合并单元格可放邻位以简化首页

二 新增宏

新增宏如下：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 9 And Target.Column = 2   Then Sheet2.Activate
End If
If Target.Row = 9 And Target.Column = 8   Then Sheet11.Activate
End If
If Target.Row = 9 And Target.Column = 10  Then Sheet14.Activate
End If
If Target.Row = 21 And Target.Column = 2  Then Sheet6.Activate
End If
If Target.Row = 21 And Target.Column = 8  Then Sheet9.Activate
End If
End Sub

 释义：

Worksheet_BeforeDoubleClick(Target , Cancel)   

• 双击后，进入编辑状态前发生事件（即跳转）
• Target ：双击时离指针最近的单元格，设为 Range 
• Cancel：true or false，设为 Boolean

If Target.Row = 9 And Target.Column = 2   Then Sheet2.Activate

...
End If

• Target.Row＆Target.Column：单元格起始（左上）的行＆列数，如下图所示

•  Sheet2.Activate：sheet2 即需要跳转到的页签
• 各页签对应序号如下，业绩、省份、城市、目标客户＆人员对应序号为2、11、14、6、9

三 子目录单击跳转

• 在（首页）外的其他页签左侧 插入形状 - 长方形，以跳转到各目录项
• 美化＆完善长方形 - 效果设为棱台；输入对应目录项文本；加入大底色长条以区分目录区域；当前页签＆其余页签设为不同填充颜色，以区分位置
• 给各个长方形设置（超链接）- 右键各个长方形 - 插入超链接 → 本文档中的位置 → 选中对应位置，如下图
• 以此类推，对所有子目录插入跳转超链接

四 隐藏页签

为不影响页签位置＆数据源，可隐藏下方页签显示

• 返回（首页）页签 → 文件 - 选项 - 高级
• 取消勾选 - 显示工作表标签 
•