Sisällysluettelo
Luo hyperlinkin hakemisto kaikista työkirjan laskentataulukoista
Siirrytään makroon luetteloimaan työkirjan kaikki taulukot askeleen pidemmälle ja luodaan hyperlinkitetty valikko jokaiselle työkirjan arkille. Tämä on loistava ajansäästäjä henkilölle, jolla on monia arkkeja ja joka yrittää luoda hyperlinkkejä sisältävän valikon manuaalisesti.
Jos haluat käyttää makroa, korvaa sana Sheet1 (se näkyy kahdesti) koodissa välilehden nimellä, josta haluat tulokset. Varmista, että tulostusvälilehdessä ei ole tärkeitä tietoja, koska se tyhjentää tiedot ennen niiden kirjoittamista. Makron suorittamisen jälkeen luodaan luettelo jokaisesta taulukosta, jossa on hyperlinkki jokaiseen taulukkoon.
| 1234567891011121314151617181920 | Alaluettelot ()Dim ws laskentataulukkonaDim x kokonaislukunax = 1Arkit ("Sheet1"). Alue ("A: A"). SelkeäJokaiselle viikolle laskentataulukoissaSheets ("Sheet1"). Solut (x, 1) .ValitseActiveSheet.Hyperlinks.Add _Ankkuri: = valinta, osoite: = "", aliosoite: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Seuraava wsEnd Sub |
