excel - 如何在Excel中创建后退按钮以将用户移动到他原来的位置？

Question

如果场景可行，请告诉我:用户通过“转到详细信息”按钮点击 Sheet1!A1 单元格，然后将他移至 Sheet2!B1，他在其中可以单击同一行中的“后退”按钮移回到他原来所在的 Sheet1!A 行。同样，他可以使用“转到详细信息”按钮单击 Sheet1!J1 单元格，将他移动到同一 Sheet2!B1 行，但这次“后退”按钮将他带回来到 Sheet1!J 行，以便它记住用户来自的位置。

Answer 1

将此代码插入到 ThisWorkbook 例程中:

Private rngLastLink As Range

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    If UCase(Target.Parent.Value) = "BACK" Then
        If rngLastLink Is Nothing Then
            Application.EnableEvents = False
            Target.Follow
            Application.EnableEvents = True
        Else
            rngLastLink.Worksheet.Activate
            rngLastLink.Activate
        End If
    Else
        Set rngLastLink = Target.Parent
    End If
End Sub

它将存储来自任何按下的不称为“后退”的超链接的单元格。如果按下“返回”，它将重新激活该单元格。