Kako brzo kreirati katalog za vašu Excel radnu svesku putem VBA

Podijeli sada:

Neophodno je kreirati katalog za radnu svesku sa mnogo radnih listova. Ovdje imamo brzu metodu za kreiranje kataloga u Excel radnom listu.

U našem prethodnom članku Kako napraviti katalog u svom Excelu putem hiperveza, razgovarali smo o kreiranju kataloga umetanjem hiperveza u radni list. Kreiranje kataloga za radnu svesku sa mnogo radnih listova može biti veoma korisno. Ali ručno dodavanje jedne po jedne hiperveze može biti dugotrajno. Stoga, ovdje imamo novu metodu za brzo kreiranje takvog kataloga.

Kreirajte katalog

Na slici ispod, postoji mnogo radnih listova u radnoj svesci.Primjer za katalog

A sada možete kreirati katalog u ovoj radnoj svesci.

  1. Kliknite desnim tasterom miša na jednu od kartica na traci.
  2. Zatim kliknite na dugme "Prilagodi traku" u meniju.Prilagodite vrpcu
  3. U prozoru „Opcije Excel“ označite opciju „Razvojnik“ u oblasti „Glavne kartice“.
  4. A zatim kliknite na “OK”.Provjerite Developer
  5. Sada kliknite na karticu "Developer" na traci.
  6. Zatim kliknite na dugme "Visual Basic" na traci sa alatkama.Visual Basic

Dakle, otvorili ste Visual Basic Editor. Zapravo, možete pritisnuti i prečicu “Alt +F11” na tastaturi da brzo otvorite uređivač.

  1. Sada kliknite desnim klikom na VBA projektor.
  2. Zatim pomaknite kursor na opciju “Insert”.
  3. U podmeniju odaberite opciju “Modul”.Umetnite modul

Dakle, ubacili ste novi modul u projekat.

  1. Sada kopirajte sljedeće VBA kodove u novi modul:

Sub CreateMenu()

    Dim a As Integer

    a = 1

    'dodaj novi radni list

    Radni listovi.Dodaj prije:=Liste(1)

    Listovi(1).Naziv = “Meni”

    Radni listovi(“Meni”).Raspon(“A1”).Vrijednost = “Meni”

    Za a = 2 Za ActiveWorkbook.Worksheets.Count

        Radni listovi(“Meni”).Raspon(“A” & a) = Listovi(a).Naziv

        ActiveSheet.Hyperlinks.Add Anchor:=Radni listovi(“Meni”).Raspon(“A” & a), _

        Adresa:=””, _

        Podadresa:=”'” & listovi(a).Naziv & “'!R1C1”, _

        TextToDisplay:=Liste(a).Naziv

    sljedeći

End Sub

U ovom kodu na početku ubacujemo novi radni list pod nazivom “Meni”. Ako već postoji radni list pod nazivom „Meni“, možete ili promijeniti VBA kod ili promijeniti naziv postojećeg naziva radnog lista. Osim toga, listu ćemo unijeti u prvu kolonu novog radnog lista. Ako trebate da unesete katalog u različitom opsegu, također ga možete modificirati prema vašim potrebama.

  1. Sada pritisnite dugme “Run Sub” na traci sa alatkamaRun Sub

Pored toga, možete pritisnuti i dugme “F5” na tastaturi.

  1. Sada se vratite na interfejs radnog lista.Katalog

U radnoj svesci postoji novi radni list pod nazivom „Meni“. I svi nazivi listova su navedeni u radnom listu sa odgovarajućim hipervezama. Pomoću ove metode možete lako kreirati katalog u kratkom vremenu.

Poređenje između dvije metode

U našem prethodnom članku Kako napraviti katalog u svom Excelu putem hiperveza, katalog dodajemo ručno. A mi ćemo uporediti razliku između dvije metode u donjoj tabeli.

poređenje Napravite katalog ručno Koristite VBA proceduru
prednost 1. Svaki korisnik Excela može lako koristiti ovu metodu.

2. Ako nemate znanja o VBA, možete koristiti ovu metodu.

1. Kroz VBA procedure, ovaj zadatak možete završiti samo jednim klikom.

2. Takođe možete promijeniti VBA kodove da ispunite druge zahtjeve.

Nedostatak 1. Ako u radnoj svesci ima mnogo radnih listova, sigurno ćete potrošiti dosta vremena na umetanje hiperlinkova.

2. Morate birati hiperveze jednu po jednu, a to će lako dovesti do grešaka.

1. Ako niste upoznati sa VBA kodovima, naići ćete na probleme prilikom pokretanja kodova.

2. Korišćenje VBA kodova će zakomplikovati zadatak.

 

Bavite se neočekivanim situacijama u Excelu

Ako često koristite Excel da biste završili svoj zadatak, neizbježno ćete naići na neke greške. Most tog vremena, možete zatvoriti Excel, a zatim restart it. Tako će te male greške nestati. Međutim, neke greške u Excel-u će dovesti do ozbiljnog oštećenja Excel-a. A rezultat može biti nezamisliv. U ovom trenutku možete popraviti problem xls podataka pomoću našeg stručnog alata. Uz pomoć ovog efikasnog alata, jedino što trebate učiniti je čekati da se proces oporavka završi.

Uvod za autora:

Anna Ma je ​​stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećenje doc podataka i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.