automatyczne hiperłącze do arkuszy w programie Excel 2007

Mam arkusz roboczy o nazwie „podsumowanie”, który zawiera listę hrabstw angielskich, a następnie mam osobny arkusz roboczy dla każdego hrabstwa.

To, co chcę zrobić, to automatyczne utworzenie hiperłącza mojej listy powiatów na stronie podsumowania do ich odpowiedniego arkusza roboczego w programie Excel.

Wygląda na to, że powinno to być proste ... ale nie mogę tego rozgryźć bez dosłownego klikania każdej nazwy osobno, hiperłącza, wyboru arkusza z pola „w tym dokumencie” itp.… Jest trochę za długi.

dzięki,

Nie mam dla ciebie faktycznej formuły, ale myślę, że możesz to osiągnąć za pomocą funkcji WYSZUKAJ.PIONOWO wraz z funkcją HYPERLINK.

Szybkie wyszukiwanie pokazuje kilka wyników, które prawdopodobnie Cię zainteresują:

excel hiperłącza vlookup

Oryginalne makro było pomocne, ale wymagało modyfikacji, aby dodać pojedyncze cudzysłowy wokół celu:

Do While r <= maxRows
    ActiveSheet.Hyperlinks.Add Anchor:=Rng(r, 1), Address:="", SubAddress:="'" & Rng(r, 1).Value _
     & ")'!A1", TextToDisplay:=Rng(r, 1).Value
    On Error Resume Next
    r = r + 1
Loop

Możesz użyć HYPERLINK w połączeniu z funkcją CELL i niektórymi funkcjami łańcucha. Lub możesz użyć następującego makra:

Sub LinkToSheet()

Dim Rng As Range
Dim maxRows, r As Integer

Set Rng = Selection

maxRows = Rng.Rows.Count 'number of rows in the selection
r = 1

Do While r <= maxRows
    ActiveSheet.Hyperlinks.Add Anchor:=Rng(r, 1), Address:="", SubAddress:=Rng(r, 1).Value & "!A1", TextToDisplay:=Rng(r, 1).Value
    On Error Resume Next
    r = r + 1 
Loop

End Sub

Sposób użycia: Podświetl wszystkie nazwy krajów w arkuszu podsumowania, naciśnij klawisze Alt + F8, a następnie kliknij dwukrotnie makro. Zakłada się, że arkusze na liście istnieją. Makro nadal tworzy hiperłącze nawet dla nieistniejącego arkusza. Pomija również puste komórki. Oto przykładowy arkusz roboczy: http://ge.tt/2gheiw5