excel - 通过 FollowHyperlink 事件根据分辨率调整缩放

Question

我的工作表在 A 到 Z 列中包含数据。第 13 到 49 行中有超链接，可跳转到下面各行中的特定单元格。例如，第 13 行中的超链接将跳转到第 229 行。

超链接都很好，直到我在另一台具有不同分辨率的计算机上进行演示为止。它没有跳到第 229 行，而是显示第 248 行。

我修改了 this和 this但还没有成功。也尝试过这个less related回答看看我是否可以欺骗excel。我也尝试过以下代码:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
r = ActiveCell.Row
Range(Cells(r, 1), Cells(r, 26)).Select
'Target.Range.Select
ActiveWindow.Zoom = True

Answer 1

如果您希望将 A229 放入可见工作表区域的左上角，请先跳过所需工作表的可见部分，然后返回到它，从而欺骗 Excel。

在 A13 中，放置一个指向 A1229 而不是 A229 的超链接。

Sub setup_Hyperlinks()
    With Worksheets("Sheet1")
        With .Range("A13")
            .Hyperlinks.Delete
            .Hyperlinks.Add Anchor:=.Cells(1), Address:="", SubAddress:="Sheet1!A1229", _
                            ScreenTip:="Jump to row 229", TextToDisplay:="Row 229"
        End With
    End With
End Sub

请注意，实际的子地址目标是 A1229，而不是 A229。

右键单击工作表的名称选项卡，然后选择查看代码。当 VBE 打开时，将以下其中一项粘贴到标题为 Book1 - Sheet1 (Code) 的工作表代码表中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells(1, 1).Row > 1000 Then  'this will depend on how you craft the method for your own purposes
        Application.Goto _
          Reference:=Target.Cells(1, 1).Offset(-1000, 0)
        '[optional] move one row down for personal aesthetics
        'ActiveWindow.SmallScroll Down:=-1
    End If
End Sub

...或者，

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If ActiveCell.Row > 1000 Then  'this will depend on how you craft the method for your own purposes
        Application.Goto _
          Reference:=ActiveCell.Offset(-1000, 0)
        '[optional] move one row down for personal aesthetics
        'ActiveWindow.SmallScroll Down:=-1
    End If
End Sub

使用其中之一，但不能同时使用两者。前者在我的系统上似乎屏幕“闪烁”稍微少一些。