Excel VBA za dodavanje lista ako ne postoji (uz brze korake)

Hugh West

16-10-2023 Makronaredbe & Excel VBA
  • Podijeli Ovo
Hugh West

Excel VBA moćan je i praktičan alat za izvođenje zadataka prilično brzo u velikoj količini. Možete primijeniti nekoliko uvjeta i izvesti različite rezultate na temelju pojedinačnih uvjeta putem VBA. Sada, ponekad, možda želite provjeriti postoji li određeni list u vašoj radnoj knjizi. A ako ne, možda ćete morati izraditi taj list. U ovom članku pokazat ću vam sve korake za dodavanje lista ako ne postoji, pomoću programa Excel VBA.

Excel VBA: dodajte list ako ne postoji (Brzi pregled) 

2387

Umetnite u novi modul za primjenu gornjeg koda.

Preuzmi praktičnu knjigu

Ovdje možete besplatno preuzeti našu radnu bilježnicu za vježbanje!

Dodajte list ako ne postoji.xlsm

Koraci za primjenu VBA koda za dodavanje lista u Excel ako ne postoji

Recimo, imate radnu knjigu koja sadrži 4 radna lista pod nazivom Siječanj, Veljača, Ožujak i Travanj. Svaki list sadrži izvještaj o prodaji za sljedeći mjesec. Sada trebate pronaći neke listove u radnoj bilježnici i dodati list ako ne postoji. Možete slijediti upute korak po korak u nastavku kako biste to postigli.

📌 Korak 1: Umetnite novi modul

Prvo morate umetnuti modul za pisanje VBA koda.

  • Da biste to učinili, na samom početku idite na Programer karticu >> Visual Basic alat.

  • Kao rezultat, Microsoft VisualPojavit će se prozor Basic for Applications.
  • Nakon toga idite na karticu Insert >> Module alat.

Stoga je stvoren novi modul pod nazivom Module1 .

Pročitajte više: Kako dodati list s Imenujte u Excelu VBA (6 jednostavnih načina)

Slična čitanja

  • Stvorite novu radnu knjigu i spremite koristeći VBA u Excelu
  • Excel VBA: Stvorite novu radnu knjigu i dajte joj naziv (6 primjera)
  • Kako stvoriti novi list iz predloška pomoću makronaredbe u programu Excel

📌 Korak 2: Napišite i spremite potreban VBA kod

Sada morate napisati kod unutar modula i spremiti ga.

  • U da biste to učinili, kliknite na opciju Module1 i napišite sljedeći kod u prozor koda. 
59931128

  • Kao rezultat, prozor koda izgledat će ovako.

🔎 Objašnjenje koda:

♣ Segment 1: 

5319

U ovom dijelu smo deklarirali ime makronaredbe i naziv varijable es.

♣ Segment 2: 

2846

U ovom dijelu napravili smo okvir za unos. Kroz ovaj okvir za unos možemo unijeti naziv datoteke koju trebamo pronaći.

♣ Segment 3: 

5237

U ovom dijelu provjeravamo postoji li traženi list u radnoj knjižici. Ako nije, stvorit će traženi list i prikazati nam poruku o ovoj promjeni.

♣ Segment 4: 

5047

U ovom dijelu smo radili s rezultatom ako traženi list već postoji u radnoj knjizi. U ovom scenariju pojavit će se još jedan okvir s porukom koji vas obavještava da ovaj list postoji. Nadalje, u ovom dijelu pravilno završavamo kod.

  • Nakon toga pritisnite Ctrl + S.

  • Nakon toga će se pojaviti Microsoft Excel prozor. Kliknite na gumb Ne .

  • Kao rezultat, pojavit će se prozor Spremi kao .
  • Slijedeći, odaberite opciju Spremi kao vrstu: kao format .xlsm . Nakon toga kliknite na gumb Spremi .

Dakle, napisali ste i spremili traženi kod.

Napomena:

Morate spremiti Excel radnu knjigu u .xlsm formatu. U suprotnom, makronaredba neće biti omogućena i kôd ne bi radio.

Pročitajte više: Excel VBA za dodavanje lista s nazivom varijable (5 idealnih primjera)

📌 Korak 3: Pokrenite kôd

Sada trebate pokrenuti kôd i provjeriti rezultate.

  • Da biste to učinili, prvo i najvažnije kliknite na ikoni Pokreni u prozoru Microsoft Visual Basic for Applications .

  • Kao rezultat, pojavit će se prozor Makronaredbe .
  • Zatim odaberite makronaredbu AddSheetIfNotExist i kliknite na gumb Pokreni .

  • U ovom trenutku naš kreirani okvir za porukepod nazivom Dodaj list ako ne postoji će se pojaviti. Ovdje bi automatska opcija bila Sheet5 .

  • Sada, za provjeru, napišite “April” u tekstualnom okviru i kliknite na gumb U redu .

  • Nakon toga, vidjeli biste tu drugu poruku pojavit će se okvir koji će vam reći da list već postoji.
  • Kliknite na gumb U redu .

  • Nakon toga ponovno pokrenite kod i napišite “Svibanj” u tekstualni okvir kreiranog okvira s porukom. Nakon toga kliknite na gumb OK .

  • Kao rezultat, vidjet ćete drugi okvir s porukom koji će pojaviti obavještavajući vas da list “May” nije postojao i stoga je kreirao ovaj list.
  • Slijedeći kliknite na gumb OK .

Konačno, možete vidjeti da ste dodali list koji prije nije postojao. A radna bi knjiga sada izgledala ovako.

Pročitajte više: Excel VBA: dodajte list nakon zadnjeg (3 idealna primjera)

Zaključak

Dakle, u ovom članku sam vam pokazao sve korake za dodavanje lista ako ne postoji s Excel VBA. Pažljivo prođite kroz cijeli članak kako biste ga bolje razumjeli i postigli željeni rezultat. Nadam se da će vam ovaj članak biti od pomoći i informacija. Ako imate dodatnih pitanja ili preporuka, slobodno me kontaktirajte.

I posjetite ExcelWIKI za još mnogo togaovakve članke. Hvala!

Prethodni post Excel LOOKUP nasuprot VLOOKUP-u: s 3 primjera
Sljedeći post Nije moguće kopirati spojene ćelije u Excelu (4 rješenja)

Hugh West vrlo je iskusan Excel trener i analitičar s više od 10 godina iskustva u industriji. Diplomirao je računovodstvo i financije te magistrirao poslovno upravljanje. Hugh ima strast za podučavanjem i razvio je jedinstveni pristup podučavanju koji je lako pratiti i razumjeti. Njegovo stručno poznavanje programa Excel pomoglo je tisućama studenata i profesionalaca diljem svijeta da poboljšaju svoje vještine i postignu uspjeh u karijeri. Putem svog bloga, Hugh dijeli svoje znanje sa svijetom, nudeći besplatne vodiče za Excel i online obuku kako bi pomogao pojedincima i tvrtkama da dostignu svoj puni potencijal.