Slik oppretter du raskt en katalog for Excel-arbeidsboken din via VBA

Det er nødvendig å lage en katalog for en arbeidsbok med mange regneark. Her har vi en rask metode for å lage en katalog i et Excel-regneark.

I vår forrige artikkel Hvordan lage en katalog i Excel via hyperkoblinger, har vi snakket om å lage en katalog ved å sette inn hyperkoblinger i et regneark. Det kan være veldig nyttig å lage en katalog for en arbeidsbok med mange regneark. Men det kan være tidkrevende å legge til hyperkoblinger én etter én manuelt. Derfor har vi her en ny metode for raskt å lage en slik katalog.

Lag en katalog

På bildet nedenfor er det mange regneark i arbeidsboken.Et eksempel for katalog

Og nå kan du lage en katalog i denne arbeidsboken.

  1. Høyreklikk på en av fanene på båndet.
  2. Og klikk deretter på knappen "Tilpass båndet" i menyen.Tilpass båndet
  3. I "Excel-alternativer"-vinduet, merk av for "Utvikler" i "Hovedfaner"-området.
  4. Og klikk deretter "OK".Sjekk Utvikler
  5. Klikk nå på fanen "Utvikler" på båndet.
  6. Og klikk deretter på knappen "Visual Basic" i verktøylinjen.Visual Basic

Dermed har du åpnet Visual Basic Editor. Faktisk kan du også trykke på hurtigtasten "Alt + F11" på tastaturet for å åpne redigeringsprogrammet raskt.

  1. Høyreklikk nå i VBA-projektoren.
  2. Og flytt deretter markøren til alternativet "Sett inn".
  3. I undermenyen velger du alternativet "Modul".Sett inn en modul

Derfor har du satt inn en ny modul i prosjektet.

  1. Kopier nå følgende VBA-koder inn i den nye modulen:

Sub CreateMenu()

    Dim et som heltall

    a = 1

    'legg til et nytt regneark

    Worksheets.Add Before:=Ark(1)

    Sheets(1).Name = "Meny"

    Regneark(“Meny”). Range(“A1”).Verdi = “Meny”

    For a = 2 Til ActiveWorkbook.Worksheets.Count

        Regneark(“Meny”). Range(“A” & a) = Ark(a).Navn

        ActiveSheet.Hyperlinks.Add Anchor:=Arbeidsark(“Meny”). Range(“A” & a), _

        Adresse:="", _

        SubAddress:=”'” & Sheets(a).Name & “'!R1C1”, _

        TextToDisplay:=Ark(a).Navn

    neste

End Sub

I denne koden setter vi inn et nytt regneark kalt "Meny" i begynnelsen. Hvis det allerede finnes et regneark som heter "Meny", kan du enten endre VBA-koden eller endre navnet på det eksisterende regnearknavnet. Dessuten vil vi legge inn listen i den første kolonnen i det nye regnearket. Hvis du trenger å legge inn katalogen i et annet område, kan du også endre den etter behov.

  1. Trykk nå på knappen "Kjør Sub" i verktøylinjenKjør Sub

I tillegg kan du også trykke på knappen "F5" på tastaturet.

  1. Kom nå tilbake til grensesnittet til regnearket.Katalogen

Det er et nytt regneark kalt "Meny" i arbeidsboken. Og alle arknavnene er oppført i regnearket med de tilhørende hyperkoblingene. Fra denne metoden kan du enkelt lage en katalog på kort tid.

En sammenligning mellom de to metodene

I vår forrige artikkel Hvordan lage en katalog i Excel via hyperkoblinger, legger vi til katalogen manuelt. Og vi vil sammenligne forskjellen mellom de to metodene i tabellen nedenfor.

Sammenligning Lag en katalog manuelt Bruk VBA-prosedyre
Fordelene 1. Alle Excel-brukere kan enkelt bruke denne metoden.

2. Hvis du ikke har kunnskap om VBA, kan du bruke denne metoden.

1. Gjennom VBA-prosedyrer kan du fullføre denne oppgaven med bare ett klikk.

2. Du kan også endre VBA-kodene for å oppfylle andre krav.

Ulempe 1. Hvis det er mange regneark i arbeidsboken, vil du helt sikkert bruke mye tid på å sette inn hyperkoblinger.

2. Du må velge hyperlenker én etter én, og dette vil lett føre til feil.

1. Hvis du ikke er kjent med VBA-koder, vil du møte problemer når du kjører kodene.

2. Bruk av VBA-koder vil komplisere oppgaven.

 

Håndter uventede situasjoner i Excel

Hvis du bruker Excel ofte for å fullføre oppgaven, vil du uunngåelig møte noen feil. Most av tiden kan du avslutte Excel og deretter restart det. Dermed vil de små feilene forsvinne. Noen feil i Excel vil imidlertid føre til alvorlig Excel-korrupsjon. Og resultatet kan være utenkelig. I dette øyeblikket kan du reparer xls-dataproblem av vårt dyktige verktøy. Ved hjelp av dette effektive verktøyet er det eneste du trenger å gjøre å vente på at gjenopprettingsprosessen skal fullføres.

Forfatterintroduksjon:

Anna Ma er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere dokumentdataskade og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.