Excel-Hyperlink z funkcją wyszukiwania - Excel

Excel - chciałbym móc kliknąćkomórka na arkuszu 1 i zabierz mnie do komórki w arkuszu 2. Teraz nie chcę prostego hiperłącza, potrzebowałbym komórki znajdującej się w arkuszu 2. Na przykład klikam komórkę A1, która zawiera słowo "start" i po kliknięciu na nią, jestem przeniesiony do komórki w arkuszu 2 z tą samą frazą "start". Teraz na arkuszu 2 może to być komórka A1 lub A4 lub A57. Chciałbym to znaleźć, gdyby kiedykolwiek zmienił pozycję w tej kolumnie. Zasadniczo potrzebuję hiperłącza z funkcją wyszukiwania.

Odpowiedzi:

Możesz użyć Worksheet_FollowHyperlink Zdarzenie VBA, aby przenieść zaznaczenie po kliknięciu łącza.

Dodaj normalne hiperłącze do dowolnej komórki na żądanym arkuszu docelowym

Dodaj ten kod do źródłowego modułu arkusza roboczego

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim rngDest As Range
Dim shDest As Worksheet
Dim cl As Range

Set shDest = ActiveSheet
Set rngDest = shDest.Range("A:A") " <--- change this to your target search range
With rngDest
Set cl = .Find(Target.Range.Cells(1, 1).Value, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, xlByRows, xlNext)
If Not cl Is Nothing Then
cl.Select
Else
" value not found, return to original sheet
Target.Range.Worksheet.Activate
MsgBox Target.Range.Cells(1, 1).Value & " not found", vbOKOnly, "Not Found"
End If
End With

End Sub