Få arknavne

Anonim

Sådan får du arknavne ved hjælp af VBA i Microsoft Excel

Hvis du vil finde ud af en måde, hvorpå du kan få alle navnene på det ark, der er synlige, dvs. ikke skjult.

I denne artikel lærer vi, hvordan man kun får navne på de synlige ark ved hjælp af VBA -kode.

Spørgsmål): Jeg har flere ark i en fil, og jeg har skjult de ark, som jeg ikke vil have, at andre skal se; Jeg vil have en kode, der giver mig navnet på alle de synlige ark.

Lad os overveje, at vi har 5 ark, og vi skjuler bevidst et bestemt ark.

For at få navnet på de synlige ark skal vi følge nedenstående trin:

  • Klik på fanen Udvikler
  • Vælg Visual Basic i kodegruppen

Kopier nedenstående kode i standardmodulet

Sub VisibleSheets ()

Dim i As Integer, j As Integer: j = 1

Celler (1, 1) .CurrentRegion.Cells.Clear

For i = 1 til Sheets.Count

If Sheets (i). Synlig = -1 Så

Celler (j, 1) = Ark (i). Navn

j = j + 1

Afslut Hvis

Næste

Afslut Sub

  • Første gang du kører koden, får du navnene på alle arkene i det aktuelle ark i kolonne A

  • Hvis vi skjuler Jan -ark, har vi følgende liste over arknavne

På denne måde kan vi få navnet på alle de synlige ark ved hjælp af vba -kode.

Download - Sådan får du arknavne med vba - xlsm