Τι θα λέγατε να έχετε μια λίστα με φύλλα που το καθένα είναι υπερσυνδεδεμένο με το αντίστοιχο όνομα φύλλου στο βιβλίο εργασίας; Λοιπόν, αυτό μπορεί να γίνει με τον ακόλουθο κώδικα -
Sub CreateHyperlinkedSheetList ()
Dim ws Ως φύλλο εργασίας
Application.ScreenUpdating = Λάθος
ActiveSheet.Range ("A: A"). Εκκαθάριση "εκκαθάρισης υπάρχουσας λίστας
Για κάθε ws Στο ActiveWorkbook.Worksheets
Με ActiveSheet.Range ("A" & Rows.Count). Τέλος (xlUp)
. Offset (1). Αξία = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Τέλος με
Επόμενο ws
Application.ScreenUpdating = True
Τέλος υπο
Αντιγράψτε τον παραπάνω κώδικα σε μια τυπική μονάδα και μπορείτε να τον αντιστοιχίσετε σε ένα κουμπί, για να τον ενεργοποιήσετε όποτε θέλετε.