按照超链接滚动以使超链接显示在工作表的顶部

时间:2015-02-11 09:15:11

标签: excel vba excel-vba

我写过以下超链接:

=HYPERLINK("#" & ADDRESS(ROW($F$8); COLUMN($F$8));LEFT($F$8;2))

超链接写在带有自动换行的单元格中。

我希望Excel在用户单击超链接后滚动,以使超链接显示在顶部可见行上。我希望Excel有这方面的功能,但我能找到的最好的是另一个stackoverflow问题中建议的VBA解决方案:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

但是,该事件不是由我的超链接触发的,所以它没有效果。

有什么建议吗?

1 个答案:

答案 0 :(得分:0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("e11").Address Then
Range("e11").Select
End If
End Sub

假设超链接在单元格E11中。