Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 跟随超链接并滚动,使超链接显示在工作表顶部_Vba_Excel - Fatal编程技术网

Vba 跟随超链接并滚动,使超链接显示在工作表顶部

Vba 跟随超链接并滚动,使超链接显示在工作表顶部,vba,excel,Vba,Excel,我写了以下超链接: =HYPERLINK("#" & ADDRESS(ROW($F$8); COLUMN($F$8));LEFT($F$8;2)) 超链接写在带有换行符的单元格中 我希望Excel在用户单击超链接后滚动,使超链接显示在最上面的可见行上。我希望Excel具有这方面的功能,但我能找到的最好的解决方案是在另一个stackoverflow问题中建议的VBA解决方案: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hy

我写了以下超链接:

=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
但是,该事件不是由我的超链接触发的,因此它没有任何效果

有什么建议吗

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("e11").Address Then
Range("e11").Select
End If
End Sub
假设超级链接位于单元格E11中