✅ Greitai sukurkite suvestinės darbalapį su hipersaitais „Excel“

Turinys

Daugelis mano kolegų daug laiko praleidžia kurdami suvestinės darbalapį „Excel“.

Įprastame suvestinės darbalapyje yra visų skirtingų langelių darbalapių pavadinimai ir visi pavadinimai taip pat yra susieti su šiais darbalapiais.

Taigi galite spustelėti langelį su lapo pavadinimu (tarkim, sausio, vasario, kovo… ) ir jis nuves jus į tą darbalapį. Be to, kiekviename darbalapyje taip pat yra hipersaitas, nukreipiantis atgal į suvestinės darbalapį.

Nors mano kolegos tai padarė labai efektyviai, tai vis tiek yra laiko švaistymas, kai tą patį galite padaryti per mažiau nei sekundę (taip, jūs perskaitėte teisingai).

Triukas yra sukurti trumpą makrokomandą, kuri tai padarys už jus.

Nesvarbu, kiek darbalapių turite, jis iškart sukurs suvestinės darbalapį su veikiančiomis hipersaitomis.

Kažkas, kaip parodyta žemiau:

Kaip matote aukščiau esančiame paveikslėlyje, jis iškart sukuria suvestinę, kai paleidžiate makrokomandą (spustelėję mygtuką). Lapų pavadinimai yra susieti su hipersaitais, kurie spustelėję nukelia į darbalapį.

Sukurkite suvestinės darbalapį su hipersaitais

Visas sunkus darbas kuriant suvestinės darbalapį atliekamas naudojant trumpą VBA kodą. Jums tereikia paleisti kodą ir padaryti pertrauką, kaip dabar turėtumėte laisvo laiko 🙂

Čia yra kodas:

Sub CreateSummary () „Sukūrė Sumit Bansal of trumpexcel.com“ Šis kodas gali būti naudojamas suvestinės darbalapiui su hipersaitomis sukurti Dim x As Workheet Dim Counter As Integer Counter = 0 kiekvienam x darbalapiuose Counter = Counter + 1 If Counter = 1 Tada „GoTo Donothing“ naudodami „ActiveCell“ .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Spustelėkite čia, jei norite pereiti prie darbalapio" Su darbalapiais (Skaitiklis). Diapazonas ("A1"). Reikšmė = "Atgal į" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name). Range ("A1"), "", _ "'" & ActiveSheet.Name & "" "Ir"! " & ActiveCell.Address, _ ScreenTip: = "Grįžti į" & ActiveSheet.Name Pabaigos pabaiga su ActiveCell.Offset (1, 0). Pasirinkite Donothing: Next x End Sub

Kur dėti šį kodą?

Norėdami įdėti šį kodą į darbaknygę, atlikite šiuos veiksmus:

Eikite į skirtuką „Kūrėjas“ ir spustelėkite „Visual Basic“. Taip pat galite naudoti sparčiuosius klavišus - ALT F11.
- Jei „Excel“ juostelėje rasite kūrėjo skirtuką, spustelėkite čia, kad sužinotumėte, kaip jį gauti.
Kairėje turėtų būti „Project Explorer“ sritis (jei jos nėra, naudokite „Control + R“, kad ji būtų matoma).
Eikite į „Įterpti“ ir spustelėkite „Modulis“. Tai prideda modulį prie darbo knygos. Be to, dešinėje pamatysite kodo langą (su mirksinčiu žymekliu).
Modulio kodo lange nukopijuokite ir įklijuokite aukščiau esantį kodą.

Kodo vykdymas

Norėdami paleisti šį kodą:

Eikite į skirtuką Kūrėjas -> Kodas -> Makrokomandos. Bus atidarytas langas „Makro dialogas“.
Pasirinkite makrokomandą CreateSummary ir spustelėkite Vykdyti.
Tai paleis makrokomandą ir sukurs hipersaitus aktyviame lape.

Kitas būdas paleisti makrokomandą yra įterpti mygtuką/formą ir priskirti jai makrokomandą. Padaryti tai:

Įterpkite formą į darbalapį. Formuokite formą taip, kaip norite.
Dešiniuoju pelės mygtuku spustelėkite jį ir pasirinkite Priskirti makrokomandą.
Lauke Priskirti makrokomandą pasirinkite makrokomandą, kurią norite priskirti formai, ir spustelėkite Gerai.

Dabar galite tiesiog spustelėti figūrą, kad paleistumėte makrokomandą.

Atsisiųskite failą iš čia

Pastaba:

Kiekviename lape užfiksavau langelį A1, kuris yra susietas, kad grįžtumėte į suvestinės lapą. Įsitikinkite, kad atitinkamai pakeisite, jei kiekvieno lapo A1 langelyje jau yra kažkas.
Santrauka nesukuria sau hipersaito (tai yra prasminga, nes jūs jau esate tame lape).
Vykdykite šį kodą, kai suvestinės darbalapis yra aktyvus darbalapis.
Galbūt norėsite pridėti formatavimą ar pertvarkymą. Bet tikiuosi, kad šis kodas pasirūpins sunkia dalimi.
Išsaugokite šią darbaknygę kaip .xls arba .xlsm plėtinį, nes joje yra makrokomanda.

Kiti „Excel VBA“ vadovėliai:

Gaukite kelias paieškos vertes be pasikartojimo vienoje ląstelėje.
Užduočių prioritetų nustatymo matrica - VBA programa.
Kaip sujungti kelias darbaknyges į vieną „Excel“ darbaknygę.
„Excel VBA“ kilpos - kitam, darykite, darykite iki, kiekvienam (su pavyzdžiais).
Kaip įrašyti makrokomandą - žingsnis po žingsnio vadovas.
Kaip greitai pašalinti hipersaitus iš „Excel“ darbalapio.
Internetinis „Excel“ VBA kursas.