Excel VBA om blad by te voeg as dit nie bestaan ​​nie (met vinnige stappe)

Hugh West

16-10-2023 Makro's & amp; Excel VBA
  • Deel Dit
Hugh West

Excel VBA is 'n kragtige en handige hulpmiddel om take redelik vinnig in 'n groot hoeveelheid uit te voer. Jy kan verskeie voorwaardes toepas en verskillende resultate aflei op grond van die individuele toestande deur VBA. Nou, soms, wil jy dalk kyk of 'n spesifieke blad in jou werkboek bestaan. En indien nie, moet jy dalk daardie blad skep. In hierdie artikel sal ek jou al die stappe wys om 'n blad by te voeg as dit nie bestaan ​​nie, met behulp van Excel VBA.

Excel VBA: Voeg blad by as dit nie bestaan ​​nie. ('n Vinnige aansig) 

2584

Voeg in 'n nuwe module in om die kode hierbo toe te pas.

Laai Oefenwerkboek af

Jy kan ons oefenwerkboek gratis van hier af aflaai!

Voeg blad by as dit nie bestaan ​​nie.xlsm

Stappe om VBA-kode toe te pas om blad by te voeg Excel As dit nie bestaan ​​nie

Sê, jy het 'n werkboek wat 4 werkkaarte bevat met die naam Januarie, Februarie, Maart en April. Elke vel bevat die volgende maand se verkoopsverslag. Nou moet jy 'n paar velle in die werkboek vind en die blad byvoeg as dit nie bestaan ​​nie. Jy kan die stap-vir-stap riglyne hieronder volg om dit te bereik.

📌 Stap 1: Voeg 'n nuwe module in

Eers moet jy invoeg 'n module om VBA-kode te skryf.

  • Om dit te doen, gaan heel aan die begin na die Ontwikkelaar oortjie >> Visual Basic nutsding.

  • Gevolglik het die Microsoft VisualBasies vir toepassings venster sal verskyn.
  • Gaan dan na die Voeg in oortjie >> Module nutsding.

Dus, 'n nuwe module genaamd Module1 is geskep.

Lees Meer: Hoe om Blad by te voeg met Noem in Excel VBA (6 maklike maniere)

Soortgelyke lesings

  • Skep nuwe werkboek en stoor met behulp van VBA in Excel
  • Excel VBA: Skep 'n nuwe werkboek en noem dit (6 voorbeelde)
  • Hoe om 'n nuwe blad van sjabloon te skep deur makro in Excel te gebruik

📌 Stap 2: Skryf en stoor die vereiste VBA-kode

Nou moet jy die kode binne die module skryf en dit stoor.

  • In om dit te doen, klik op die Module1 opsie en skryf die volgende kode in die kodevenster. 
57457105

  • As 'n gevolg, sal die kodevenster soos volg lyk.

🔎 Kode Verduideliking:

♣ Segment 1: 

6724

In hierdie deel het ons die makronaam en veranderlike nam verklaar es.

♣ Segment 2: 

6817

In hierdie deel het ons 'n invoerkassie geskep. Deur hierdie invoerkassie kan ons die invoer neem van die naam van die lêer wat ons moet vind.

♣ Segment 3: 

9231

In hierdie deel kyk ons ​​of die vereiste blad in die werkboek bestaan. Indien nie, sal dit die vereiste blad skep en vir ons 'n boodskap oor hierdie verandering wys.

♣ Segment 4: 

5896

In hierdie deel het ons met die resultaat gewerk as die vereiste blad reeds in die werkboek bestaan. In hierdie scenario sal 'n ander boodskapkassie verskyn wat jou inlig dat hierdie blad bestaan. Verder, in hierdie deel, eindig ons die kode behoorlik.

  • Druk daarna Ctrl + S.

  • Daarna sal 'n Microsoft Excel -venster verskyn. Klik op die Nee -knoppie.

  • Gevolglik sal die Stoor as -venster verskyn.
  • Kies hierna die Stoor as tipe: -opsie as .xlsm -formaat. Klik vervolgens op die Stoor -knoppie.

Dus het jy jou vereiste kode geskryf en gestoor.

Let wel:

Jy moet die Excel-werkboek in .xlsm -formaat stoor. Andersins sal die makro nie geaktiveer word nie en sal die kode nie werk nie.

Lees Meer: Excel VBA om Blad met Veranderlike Naam by te voeg (5 ideale voorbeelde)

📌 Stap 3: Begin die kode

Nou moet jy die kode laat loop en die resultate nagaan.

  • Om dit te doen, klik eerstens op die Run -ikoon in die Microsoft Visual Basic for Applications -venster.

  • As gevolg hiervan, die Makro's -venster sal verskyn.
  • Kies vervolgens die AddSheetIfNotExist -makro en klik op die Run -knoppie.

  • Op hierdie tydstip is ons geskepte boodskapkassiegenaamd Voeg blad by indien nie bestaan ​​nie sal verskyn. Hier sal die outo-opsie Blad5 wees.

  • Nou, om na te gaan, skryf “April” in die tekskassie en klik op die Ok -knoppie.

  • Daarna sal jy sien dat 'n ander boodskap boks sal verskyn wat jou vertel dat die blad reeds bestaan.
  • Klik op die Ok -knoppie.

  • Begin daarna weer die kode en skryf “Mei” in die tekskassie van die geskepte boodskapkassie. Klik vervolgens op die OK -knoppie.

  • Gevolglik sal jy nog 'n boodskapblokkie sien wat verskyn om jou in te lig dat die “Mei” -blad nie bestaan ​​het nie en daarom het dit hierdie blad geskep.
  • Klik hierna op die OK -knoppie.

Uiteindelik kan u sien dat u 'n blad bygevoeg het wat nie voorheen bestaan ​​het nie. En die werkboek sal nou so lyk.

Lees meer: ​​ Excel VBA: Voeg blad by na laaste (3 ideale voorbeelde)

Gevolgtrekking

So, in hierdie artikel het ek jou al die stappe gewys om 'n blad by te voeg as dit nie bestaan ​​​​met Excel VBA nie. Gaan noukeurig deur die volledige artikel om dit beter te verstaan ​​en die gewenste resultaat te bereik. Ek hoop jy vind hierdie artikel nuttig en insiggewend. As jy enige verdere navrae of aanbevelings het, voel asseblief vry om my te kontak.

En besoek ExcelWIKI vir nog vele meerartikels soos hierdie. Dankie!

Vorige pos Excel OPSOEK vs VLOOKUP: Met 3 voorbeelde
Volgende plasing Kan nie saamgevoegde selle in Excel kopieer nie (4 oplossings)

Hugh West is 'n hoogs ervare Excel-afrigter en ontleder met meer as 10 jaar ondervinding in die bedryf. Hy het 'n Baccalaureusgraad in Rekeningkunde en Finansies en 'n Meestersgraad in Besigheidsadministrasie. Hugh het 'n passie vir onderrig en het 'n unieke onderrigbenadering ontwikkel wat maklik is om te volg en te verstaan. Sy kundige kennis van Excel het duisende studente en professionele persone wêreldwyd gehelp om hul vaardighede te verbeter en uit te blink in hul loopbane. Deur sy blog deel Hugh sy kennis met die wêreld, en bied gratis Excel-tutoriale en aanlyn opleiding aan om individue en besighede te help om hul volle potensiaal te bereik.