, 
Používám tento kód:
Sub Seznam_listu()
Dim Ws As Worksheet
Dim i As Long
i = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Jméno"
.Cells(1, 1).Name = "Index"
End With
For Each Ws In Worksheets
If Ws.Name <> Me.Name Then
i = i + 1
With Ws
.Range("A1").Name = "Start_" & Ws.Index
.Hyperlinks.Add Anchor:=Ws.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Zpět na seznam"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start_" & Ws.Index, TextToDisplay:=Ws.Name
End If
Next Ws
End Sub
V sešitu mám na začátku list "Seznam", tento kód je vložen v jeho modulu. Kód vypíše seznam listů v sešitě a do každého listu do buňky A1 vloží hypertextový odkaz, který vede na list seznam.
PS: vyzkoušej na kopii svého sešitu aby případně nedošlo k nějaké "havárii"
Sub Seznam_listu()
Dim Ws As Worksheet
Dim i As Long
i = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Jméno"
.Cells(1, 1).Name = "Index"
End With
For Each Ws In Worksheets
If Ws.Name <> Me.Name Then
i = i + 1
With Ws
.Range("A1").Name = "Start_" & Ws.Index
.Hyperlinks.Add Anchor:=Ws.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Zpět na seznam"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start_" & Ws.Index, TextToDisplay:=Ws.Name
End If
Next Ws
End Sub
V sešitu mám na začátku list "Seznam", tento kód je vložen v jeho modulu. Kód vypíše seznam listů v sešitě a do každého listu do buňky A1 vloží hypertextový odkaz, který vede na list seznam.
PS: vyzkoušej na kopii svého sešitu aby případně nedošlo k nějaké "havárii"
WALL na Facebooku
RSS nejnovější články