Snel een catalogus voor uw Excel-werkmap maken via VBA

Het aanmaken van een catalogus voor een werkmap met veel werkbladen is noodzakelijk. Hier hebben we een snelle methode om een ​​catalogus in een Excel-werkblad te maken.

In ons vorige artikel Hoe u via hyperlinks een catalogus in uw Excel maakthebben we het gehad over het maken van een catalogus door hyperlinks in een werkblad in te voegen. Het maken van een catalogus voor een werkmap met veel werkbladen kan erg handig zijn. Maar handmatig hyperlinks één voor één toevoegen, kan tijdrovend zijn. Daarom hebben we hier een nieuwe methode om snel zo'n catalogus te maken.

Maak een catalogus

In de onderstaande afbeelding zijn er veel werkbladen in de werkmap.Een voorbeeld voor catalogus

En nu kunt u in deze werkmap een catalogus maken.

  1. Klik met de rechtermuisknop op een van de tabbladen in het lint.
  2. En klik vervolgens op de knop "Het lint aanpassen" in het menu.Pas het lint aan
  3. Vink in het venster "Excel-opties" de optie "Ontwikkelaar" aan in het gebied "Hoofdtabbladen".
  4. En klik vervolgens op "OK".Controleer ontwikkelaar
  5. Klik nu op het tabblad "Ontwikkelaar" in het lint.
  6. En klik vervolgens op de knop "Visual Basic" in de werkbalk.Visual Basic

U heeft dus de Visual Basic Editor geopend. Eigenlijk kunt u ook op de sneltoets "Alt + F11" op het toetsenbord drukken om de editor snel te openen.

  1. Klik nu met de rechtermuisknop in de VBA-projector.
  2. En verplaats dan je cursor naar de optie "Invoegen".
  3. Kies in het submenu de optie “Module”.Plaats een module

Daarom heeft u een nieuwe module in het project ingevoegd.

  1. Kopieer nu de volgende VBA-codes naar de nieuwe module:

Sub CreateMenu ()

    Dim a As Integer

    a = 1

    'voeg een nieuw werkblad toe

    Worksheets.Add Before: = Sheets (1)

    Spreadsheets (1) .Name = "Menu"

    Werkbladen ("Menu"). Bereik ("A1"). Waarde = "Menu"

    Voor a = 2 To ActiveWorkbook.Worksheets.Count

        Werkbladen ("Menu") Bereik ("A" & a) = Bladen (a) .Naam

        ActiveSheet.Hyperlinks.Add Anchor: = Werkbladen ("Menu"). Bereik ("A" & a), _

        Adres: = ””, _

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

        TextToDisplay: = Sheets (a) .Name

    Volgende

End Sub

In deze code voegen we aan het begin een nieuw werkblad in met de naam "Menu". Als er al een werkblad met de naam "Menu" is, kunt u de VBA-code wijzigen of de naam van de bestaande werkbladnaam wijzigen. Bovendien zullen we de lijst in de eerste kolom van het nieuwe werkblad invoeren. Als u de catalogus in een ander bereik moet invoeren, kunt u deze ook aanpassen aan uw behoefte.

  1. Druk nu op de knop "Run Sub" in de werkbalkVoer Sub uit

Bovendien kunt u ook op de knop "F5" op het toetsenbord drukken.

  1. Ga nu terug naar de interface van het werkblad.De catalogus

Er is een nieuw werkblad met de naam "Menu" in de werkmap. En alle bladnamen worden vermeld in het werkblad met de bijbehorende hyperlinks. Met deze methode kunt u eenvoudig in een mum van tijd een catalogus maken.

Een vergelijking tussen de twee methoden

In ons vorige artikel Hoe u via hyperlinks een catalogus in uw Excel maakt, voegen we de catalogus handmatig toe. En we zullen het verschil tussen de twee methoden in de onderstaande tabel vergelijken.

Vergelijk Maak handmatig een catalogus Gebruik VBA-procedure
Voordeel 1. Elke Excel-gebruiker kan deze methode gemakkelijk gebruiken.

2. Als u geen kennis heeft van VBA, kunt u deze methode gebruiken.

1. Via VBA-procedures kunt u deze taak met slechts één klik voltooien.

2. U kunt de VBA-codes ook wijzigen om aan andere vereisten te voldoen.

Nadeel 1. Als er veel werkbladen in de werkmap staan, zult u zeker veel tijd besteden aan het invoegen van hyperlinks.

2. U moet hyperlinks een voor een kiezen, en dit leidt gemakkelijk tot fouten.

1. Als u niet bekend bent met VBA-codes, zult u problemen ondervinden bij het uitvoeren van de codes.

2. Het gebruik van VBA-codes maakt de taak ingewikkelder.

 

Omgaan met onverwachte situaties in Excel

Als u Excel regelmatig gebruikt om uw taken af ​​te ronden, zult u onvermijdelijk wel eens fouten tegenkomen. Meestal kunt u Excel afsluiten en opnieuw opstarten. Zo verdwijnen die kleine fouten vanzelf. Sommige fouten in Excel kunnen echter leiden tot ernstige corruptie van het programma. De gevolgen kunnen dan onvoorstelbaar zijn. In dat geval kunt u... reparatie xls-gegevensprobleem door onze bekwame tool. Met behulp van deze effectieve tool hoeft u alleen maar te wachten tot het herstelproces is voltooid.

Auteur Introductie:

Anna Ma is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie doc data schade en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.