Excel VBA za dodavanje lista ako ne postoji (sa brzim koracima)

Hugh West

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

Excel VBA je moćan i zgodan alat za obavljanje zadataka prilično brzo u velikim količinama. Možete primeniti nekoliko uslova i izvesti različite rezultate na osnovu pojedinačnih uslova putem VBA. Sada, ponekad, možda želite da provjerite postoji li određeni list u vašoj radnoj knjizi. A ako ne, možda ćete morati kreirati taj list. U ovom članku ću vam pokazati sve korake za dodavanje lista ako ne postoji, koristeći Excel VBA.

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

5968

Umetnite u novi modul da biste primijenili gornji kod.

Preuzmite Vježnicu

Možete besplatno preuzeti našu radnu svesku ovdje!

Dodajte list ako ne postoji.xlsm

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

Recimo, imate radnu svesku koja sadrži 4 radna lista pod nazivom januar, februar, mart i april. Svaki list sadrži izvještaj o prodaji za sljedeći mjesec. Sada morate pronaći neke listove u radnoj knjizi i dodati list ako ne postoji. Možete slijediti upute korak po korak da biste to postigli.

📌 Korak 1: Umetnite novi modul

Prvo, trebate umetnuti modul za pisanje VBA koda.

  • Da biste to uradili, na samom početku idite na Programer kartica >> Visual Basic alat.

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

Tako je kreiran novi modul pod nazivom Modul1 .

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

Slična čitanja

  • Kreirajte novu radnu knjigu i sačuvajte koristeći VBA u Excelu
  • Excel VBA: Kreirajte novu radnu svesku i dajte joj naziv (6 primjera)
  • Kako kreirati novi list iz predloška koristeći makro u Excelu

📌 Korak 2: Napišite i sačuvajte potreban VBA kod

Sada morate napisati kod unutar modula i sačuvati ga.

  • U da biste to učinili, kliknite na opciju Module1 i upišite sljedeći kod u prozor koda.
Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String

  • Kao rezultat, prozor koda će izgledati ovako.

🔎 Objašnjenje koda:

♣ Segment 1: 

1326

U ovom dijelu smo deklarirali ime makroa i varijable nam es.

♣ Segment 2: 

8791

U ovom dijelu smo kreirali polje za unos. Preko ovog polja za unos možemo unijeti ime datoteke koju trebamo pronaći.

♣ Segment 3: 

8504

U ovom dijelu provjeravamo da li traženi list postoji u radnoj svesci. Ako ne, kreirat će potreban list i pokazati nam poruku o ovoj promjeni.

♣ Segment 4: 

8268

U ovom dijelu smo radili s rezultatom ako traženi list već postoji u radnoj knjizi. U ovom scenariju, pojavit će se još jedna poruka koja vas obavještava da ovaj list postoji. Nadalje, u ovom dijelu ispravno završavamo kod.

  • Nakon toga pritisnite Ctrl + S.

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

  • Kao rezultat, pojavit će se prozor Sačuvaj kao .
  • Slijedeći, odaberite opciju Sačuvaj kao tip: kao .xlsm format. Zatim kliknite na dugme Sačuvaj .

Dakle, napisali ste i sačuvali svoj traženi kod.

Napomena:

Morate sačuvati Excel radnu svesku u .xlsm formatu. U suprotnom, makro neće biti omogućen i kod ne bi radio.

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

📌 Korak 3: Pokrenite kod

Sada morate pokrenuti kod i provjeriti rezultate.

  • Da biste to učinili, prije svega, kliknite na ikoni Pokreni u prozoru Microsoft Visual Basic za aplikacije .

  • Kao rezultat toga, Pojavit će se prozor Macros .
  • Nakon toga, odaberite makro AddSheetIfNotExist i kliknite na dugme Run .

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

  • Sada, radi provjere, napišite “April” u tekstualni okvir i kliknite na dugme U redu .

  • Naknadno ćete vidjeti da je druga poruka pojavit će se okvir koji vam govori da list već postoji.
  • Kliknite na dugme U redu .

  • Nakon toga, ponovo pokrenite kod i napišite “May” u tekstualni okvir kreiranog okvira za poruke. Nakon toga, kliknite na dugme OK .

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

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

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

Zaključak

Dakle, u ovom članku sam vam pokazao sve korake za dodavanje lista ako ne postoji u 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 koristan i informativan. Ako imate dodatnih pitanja ili preporuka, slobodno me kontaktirajte.

I posjetite ExcelWIKI za mnogo višeovakvih članaka. Hvala!

Prethodni post Excel LOOKUP vs VLOOKUP: Sa 3 primjera
Sljedeća objava Ne mogu kopirati spojene ćelije u Excel (4 rješenja)

Hugh West je vrlo iskusan Excel trener i analitičar s više od 10 godina iskustva u industriji. Diplomirao je računovodstvo i finansije i magistrirao poslovnu administraciju. Hugh ima strast prema podučavanju i razvio je jedinstven pristup podučavanju koji je lako pratiti i razumjeti. Njegovo stručno znanje o Excel-u pomoglo je hiljadama studenata i profesionalaca širom svijeta da poboljšaju svoje vještine i napreduju u karijeri. Kroz svoj blog, Hugh dijeli svoje znanje sa svijetom, nudeći besplatne Excel tutorijale i online obuku kako bi pomogli pojedincima i preduzećima da ostvare svoj puni potencijal.