什么是这个宏以及它是如何创建的?

时间:2017-11-21 09:40:01

标签: excel excel-vba vba

我已经发送了一个Excel宏启用的工作表,其中包含超过50张。开头有一个内容表,可以更方便地浏览文档;每张纸都有一个单元格,您可以单击该单元格并将其重定向到相关位置。

但是,这些单元格中没有按钮。除了文本之外,单元格中似乎没有任何内容,其中写入了相关表格的名称。左键单击单元格不仅会将您带到相关工作表,还可以右键单击并使用键盘上的箭头键导航到单元格。我以前从未遇到过这样的事情,其中​​没有使用按钮。

该文档受到保护,因此我无法深入研究创建者如何设法完成此操作。我需要重新创建这个文档,但我完全不确定它们做了什么,因此无法复制它。我假设这是某种宏,虽然在Developer工具栏的'Macros'工具中没有列出任何内容。

该文档包含敏感信息,因此我无法包含屏幕截图。

1 个答案:

答案 0 :(得分:1)

如果Worksheet_SelectionChange()中的跳转表是超链接(检查游标行为),您应该能够轻松找到。如果没有,那么我会通过Sheet1触发器来促进这种行为。

假设您的所有工作表名称都列在名为[JumpTable]的{​​{1}} Sheet1中,那么此代码位于Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("JumpTable")) Is Nothing Then If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then Sheets(Target.Value).Activate End If End If End Sub

Sheet1

将转到您在var x = [ 1, 2, 3 ]; 上点击其名称的工作表。

其余的取决于你的想象力!