如何在Excel中创建“后退”按钮以将用户移动到他来自的位置?

时间:2013-03-06 17:58:09

标签: excel

如果方案可行,请告诉我:用户点击Sheet1!A1单元格并显示“Go Details”按钮,然后将其移至Sheet2!B1,在那里他可以点击同一行中的“返回”按钮被移回他来自的Sheet1!A行。同样地,他可以点击Sheet1!J1单元格并按“Go Details”按钮将他移动到相同的Sheet2!B1行,但这次“返回”按钮会将他带回Sheet1!J行,这样它记得用户来自的位置。

4 个答案:

答案 0 :(得分:3)

如果是用户,请选择Excel选项> Quick Acccess Toolbar>所有命令。添加“Back”和“Foward”,他们将在跳转链接后进行后退和前进导航,就像在网页上一样。

答案 1 :(得分: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

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

答案 2 :(得分: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
每次用户更改活动工作表中的单元格时,

都会触发。

答案 3 :(得分:0)

我用Alt-Left箭头返回。

Sub GoBackToWhereverYouCameFrom()
    Application.SendKeys ("%{LEFT}")
End Sub