如何在Excel中创build“后退”button以将用户移动到他来自的位置？
如果场景可行，请告诉我们：用户点击Sheet1!A1单元格中的“Go Details”button，将其移动到Sheet2!B1 ，在那里他可以点击同一行中的“Back”button，将其移回到Sheet1!A他从哪里来。 同样他可以通过“Go Details”button将Sheet1!J1单元移动到相同的Sheet2!B1行，但是这次“返回”button将他导回到Sheet1!J行，以便记住用户来到的位置从。
将此代码插入到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
它将存储从任何不被称为“返回”的超链接的单元格。 如果按“返回”，它将重新激活这个单元格。
如果用户selectExcel Options> Quick Acccess Toolbar> All Commands。 添加“后退”和“前进”后，他们将在跳转链接之后进行后退和前进导航，就像在网页上一样。
首先，您需要创build一个新的button，一旦button被成功创build，分配macros屏幕就会popup。
复制此代码
Sub Button1_Click() Worksheets("sheet2").Activate End Sub
作为macros观
根据您的情况更改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
每次用户更改活动工作表中的单元格时都会触发。
我用Alt-Left箭头返回。
Sub GoBackToWhereverYouCameFrom() Application.SendKeys ("%{LEFT}") End Sub