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