4

如果场景可行，请告诉我：用户单击Sheet1!A1带有“转到详细信息”按钮的单元格并将他移动到Sheet2!B1，他可以在同一行中单击“返回”按钮以移回Sheet1!A他来自的行。同样，他可以Sheet1!J1使用“Go Details”按钮单击单元格，将他移动到同一Sheet2!B1行，但这次“Back”按钮将他带回Sheet1!J行，以便记住用户来自的位置。

4

4 回答 4

3

如果用户选择 Excel 选项 > 快速访问工具栏 > 所有命令。添加“Back”和“Foward”它们在跳转链接后会有前后导航，就像在网页上一样。

于 2013-03-06T18:18:33.580 回答
3

在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

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

于 2013-03-06T21:39:42.400 回答
0

首先，您需要创建一个新按钮，然后在成功创建按钮后会弹出分配宏屏幕。

复制此代码

Sub Button1_Click()
Worksheets("sheet2").Activate
End Sub

作为宏

根据您的方案更改 sheet2。

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets.Select
ActiveCell.EntireRow.Select
ActiveSheet.Select

将在工作表之间同步整行 - 只会在您更改工作表时触发...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Sheets.Select
ActiveCell.EntireRow.Select
ActiveSheet.Select
End Sub

每次用户更改活动工作表中的单元格时都会触发。

于 2013-03-06T18:01:11.193 回答
0

我使用 Alt-Left 箭头返回。

Sub GoBackToWhereverYouCameFrom()
    Application.SendKeys ("%{LEFT}")
End Sub
于 2016-05-27T18:03:22.780 回答