Question

我在 excel表1 中有4列，其中包含源和目标端口以及IP的混合。 I.E：对于源IP，源端口，目的IP，目的端口I可能有：

10.1.1.1，any，10.2.2.2,443。

OR

SUBNET_GROUP，any，OTHER_GROUP，80。

它适用于特定的IP或组名。在 excel表2 中，我定义了组。如：

SUBNET_GROUP

192.168.0.1

192.168.0.2

192.168.0.3

我想创建一个超链接，以便点击 excel表1 中的SUBNET_GROUP将我带到 excel表2 中的SUBNET_GROUP，但是有数千个条目和数百个组。

事实上，实际上有4套 excel sheet 1 和 excel sheet 2 。

我在想一个解决方案就是在 excel表2 中为env1_cellcontents命名，这样名称就像 excel表2 中的env1_SUBNET_GROUP和 excel表1 我可以将SUBNET_GROUP链接到env1_SUBNET_GROUP。当它出现时，这对工作表3/4可以使用env2_SUBNET_GROUP。虽然可能仅仅指代另一张表而不是命名在这里会更有意义。

我找到了很多关于重做超链接的链接，但没有找到实际创建它们的链接。除了基于细胞内容的质量命名和质量链接之外，还有更有效的方法吗？我将如何进行大规模命名和创建超链接？另一个问题是某些单元格是特定的IP，不需要链接。

谢谢，

Answer 1

不要专注于超链接。而是使用Worksheet_SelectionChange来查看用户是否单击A列中的单个单元格，然后查看内容是什么，并根据该内容将它们带到另一个工作表和相应的单元格。您可以检查是否选择了A列中的一个单元格：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Row = Target.Cells.Row
    Col = Target.Cells.Column
    If Col = 1 And And Target.Cells.Count = 1 Then

      'enter the rest of code here, such as selecting the cell on sheet2 that corresponds to what user selected on sheet 1
      Sheets("Sheet2").Visible = True
      Sheets("Sheet1").Visible = False
      Sheets("Sheet1").Activate

    End If


End Sub

excel中的大规模单元命名和超链接

1 个答案: