Dobijte nazive listova

Anonim

Kako doći do naziva listova pomoću VBA -e u programu Microsoft Excel

U slučaju da želite saznati način na koji možete dobiti sve nazive lista koji su vidljivi, odnosno nisu skriveni.

U ovom ćemo članku naučiti kako dobiti imena samo vidljivih listova, koristeći VBA kôd.

Pitanje): Imam više listova u jednoj datoteci i sakrio sam listove koje ne želim da drugi vide; Želim kôd koji će mi dati naziv svih vidljivih listova.

Uzmimo u obzir da imamo 5 listova i namjerno skrivamo određeni list.

Da bismo dobili naziv vidljivih listova, moramo slijediti korake u nastavku:

  • Kliknite karticu Developer
  • Iz grupe kodova odaberite Visual Basic

Kopirajte donji kod u standardni modul

Podvidljive tablice ()

Dim i kao cijeli broj, j kao cijeli broj: j = 1

Ćelije (1, 1) .Trenutna regija.Čelije.Očisti

Za i = 1 Za listove.Broj

Ako su listovi (i) .Visible = -1 Tada

Stanice (j, 1) = Listovi (i). Naziv

j = j + 1

Završi ako

Sljedeći

Kraj podm

  • Prvi put kada pokrenete kôd, dobit ćete imena svih listova u trenutnom listu u stupcu A

  • Ako sakrijemo Jan list, imat ćemo sljedeći popis naziva listova

Na taj način pomoću vba koda možemo dobiti naziv svih vidljivih listova.

Preuzimanje - Kako doći do naziva listova pomoću vba - xlsm