excel - Excelで[戻る]ボタンを作成して、ユーザーを元の位置に移動するにはどうすればよいですか？

Question

シナリオが実行可能かどうかをお知らせください。ユーザーがSheet1!A1[詳細に移動]ボタンでセルをクリックすると、に移動しSheet2!B1ます。同じ行の[戻る]ボタンをクリックすると、元の行に戻ることができますSheet1!A。同じように、[Sheet1!J1詳細に移動]ボタンでセルをクリックすると、同じSheet2!B1行に移動しますが、今回は[戻る]ボタンをクリックするSheet1!Jと、ユーザーが元の位置を記憶するように行に戻ります。

Answer 1

ユーザーの場合は、[Excelオプション]>[クイックアクセスツールバー]>[すべてのコマンド]を選択します。「戻る」と「進む」を追加すると、Webページの場合と同じように、リンクをジャンプした後に前後のナビゲーションが表示されます。

Answer 2

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

「戻る」と呼ばれない、押されたハイパーリンクからのセルを保存します。「戻る」を押すと、このセルが再びアクティブになります。

Answer 3

最初に新しいボタンを作成する必要があります。ボタンが正常に作成されると、マクロの割り当て画面がポップアップ表示されます。

このコードをコピーしてください

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

ユーザーがアクティブシートのセルを変更するたびに起動します。

Answer 4

Alt-左矢印を使用して戻りました。

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