超链接单元格以在不同的工作表上显示结果

时间:2017-02-17 14:20:27

标签: excel excel-vba hyperlink excel-formula excel-2010 vba

我有两个工作表,Sheet1和Sheet2。 Sheet1有一个如下所示的列表:

 Col1
 A1A
 A2A
 A2C
 A4A
 A4B

和sheet2在单元格b2上有一个公式,它执行索引和匹配功能。对于excel来说相当新,我想知道我可以将Sheet1中的Col1变成超链接,以便我随时点击Col1上的项目(比如A1A),它会将我带到Sheet2并且Sheet2上的Cell B2会被点击的超链接填充?

3 个答案:

答案 0 :(得分:1)

您是否尝试过更改工作表模块选项?即,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
    If Target.Value = "A1A" Or Target.Row = 1 Then
        Sheet2.Range("B" & Target.Row) = Target.Value
    End If
End If
End Sub

答案 1 :(得分:0)

通过对AbleBits网站的确认,请务必在此过程中注意一些事项。

对于这个例子,我希望Sheet2上的单元格C3指向Sheet1上的单元格A1。所以,我在Sheet2!C3

中有这个公式

enter image description here

然后在Sheet1,在Cell A1中,我右键单击以拉出菜单,然后选择Hyperlink...。确保三件事:

  1. 选择Place in This Document
  2. 选择要参考的正确工作表(Sheet2
  3. 选择要引用的正确单元格(cell C3
  4. 可选择更改对话框顶部的Text to display
  5. enter image description here

    通过所有这些,您可以在Sheet1上获得以下内容:

    enter image description here

    因此,当您单击Sheet1上单元格A1中的链接时,您将被发送回Sheet2并显示:

    enter image description here

答案 2 :(得分:0)

使用名为Target的范围的Follow_Hyperlink event作为参数,该参数是包含超链接的单元格。使用范围设置您的逻辑,例如:

If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
     Sheets("Sheet2").Activate
     Sheets("Sheet2").Range(Target.Address) = whatever you want in B4 on sheet 2
End if