Kako brzo izraditi katalog za svoju Excel radnu knjigu putem VBA

Podijeli sada:

Neophodno je izraditi katalog za radnu bilježnicu s mnogo radnih listova. Ovdje imamo brzu metodu za izradu kataloga u Excel radnom listu.

U našem prethodnom članku Kako stvoriti katalog u svom Excelu putem hiperveza, govorili smo o stvaranju kataloga umetanjem hiperveza u radni list. Stvaranje kataloga za radnu bilježnicu s mnogo radnih listova može biti vrlo korisno. No ručno dodavanje hiperveza jedne po jedne može biti dugotrajno. Stoga, ovdje imamo novu metodu za brzo stvaranje takvog kataloga.

Stvorite katalog

Na donjoj slici nalazi se mnogo radnih listova u radnoj bilježnici.Primjer za katalog

Sada možete izraditi katalog u ovoj radnoj knjizi.

  1. Desnom tipkom miša kliknite jednu od kartica na vrpci.
  2. Zatim kliknite gumb "Prilagodi vrpcu" u izborniku.Prilagodite vrpcu
  3. U prozoru "Excel Options" označite opciju "Developer" u području "Main Tabs".
  4. Zatim kliknite "OK".Provjerite programera
  5. Sada kliknite karticu "Razvojni programer" na vrpci.
  6. Zatim kliknite gumb "Visual Basic" na alatnoj traci.Visual Basic

Dakle, otvorili ste Visual Basic Editor. Zapravo, također možete pritisnuti tipku prečaca "Alt +F11" na tipkovnici za brzo otvaranje uređivača.

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

Stoga ste u projekt umetnuli novi modul.

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

PodIzbornik za stvaranje()

    Dim kao cijeli broj

    a = 1

    'dodaj novi radni list

    Radni listovi.Dodaj prije:=Listovi(1)

    Listovi(1).Naziv = “Jelovnik”

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

    For a = 2 To ActiveWorkbook.Worksheets.Count

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

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

        Adresa:=””, _

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

        TextToDisplay:=Sheets(a).Ime

    Sljedeći

End Sub

U ovaj kod umetnemo novi radni list pod nazivom "Izbornik" na početku. Ako već postoji radni list pod nazivom "Izbornik", možete promijeniti VBA kod ili promijeniti naziv postojećeg naziva radnog lista. Osim toga, popis ćemo unijeti u prvi stupac na novom radnom listu. Ako trebate unijeti katalog u drugom rasponu, možete ga također modificirati prema svojim potrebama.

  1. Sada pritisnite gumb "Run Sub" na alatnoj traciRun Sub

Osim toga, također možete pritisnuti tipku "F5" na tipkovnici.

  1. Sada se vratite na sučelje radnog lista.Katalog

U radnoj knjizi postoji novi radni list pod nazivom "Izbornik". I svi nazivi listova navedeni su u radnom listu s odgovarajućim hipervezama. Ovom metodom možete jednostavno i brzo izraditi katalog.

Usporedba dviju metoda

U našem prethodnom članku Kako stvoriti katalog u svom Excelu putem hiperveza, katalog dodajemo ručno. A mi ćemo usporediti razliku dviju metoda u donjoj tablici.

usporedba Ručno izradite katalog Koristite VBA proceduru
Prednost 1. Svaki korisnik programa Excel može jednostavno koristiti ovu metodu.

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

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

2. Također možete promijeniti VBA kodove kako biste ispunili druge zahtjeve.

Hendikep 1. Ako u radnoj knjizi ima puno radnih listova, sigurno ćete potrošiti puno vremena na umetanje hiperveza.

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

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

2. Korištenje VBA kodova zakomplicirat će zadatak.

 

Nosite se s neočekivanim situacijama u Excelu

Ako često koristite Excel za dovršavanje zadataka, neizbježno ćete naići na neke pogreške. Većinu vremena možete zatvoriti Excel, a zatim ga ponovno pokrenuti. Tako će te male pogreške nestati. Međutim, neke pogreške u Excelu dovest će do ozbiljne korupcije u Excelu. A rezultat može biti nezamisliv. U ovom trenutku možete popravak problema s xls podacima našim vještim alatom. Uz pomoć ovog učinkovitog alata, jedino što trebate učiniti je čekati da završi proces oporavka.

Uvod za autora:

Anna Ma stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećenje podataka doc i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.