Excel VBA er et kraftig og hendig verktøy for å utføre oppgaver ganske raskt i store mengder. Du kan bruke flere betingelser og utlede ulike resultater på grunnlag av de individuelle forholdene gjennom VBA. Noen ganger vil du kanskje sjekke om et bestemt ark finnes i arbeidsboken din. Og hvis ikke, må du kanskje lage det arket. I denne artikkelen vil jeg vise deg alle trinnene for å legge til et ark hvis det ikke eksisterer, ved å bruke Excel VBA.

Excel VBA: Legg til ark hvis det ikke eksisterer (A Quick View)

5465

Sett inn i en ny modul for å bruke koden ovenfor.

Last ned Practice Workbook

Du kan laste ned øvelsesarbeidsboken vår gratis herfra!

Trinn for å bruke VBA-kode for å legge til ark i Excel hvis den ikke eksisterer

Si at du har en arbeidsbok som inneholder 4 regneark kalt januar, februar, mars og april. Hvert ark inneholder den påfølgende månedens salgsrapport. Nå må du finne noen ark i arbeidsboken og legge til arket hvis det ikke eksisterer. Du kan følge trinn-for-trinn-retningslinjene nedenfor for å oppnå dette.

📌 Trinn 1: Sett inn en ny modul

Først må du sette inn en modul for å skrive VBA-kode.

• For å gjøre dette, helt i begynnelsen, gå til Utvikler fanen >> Visual Basic verktøyet.

• Som et resultat har Microsoft VisualGrunnleggende for applikasjoner vinduet vises.
• Deretter går du til Sett inn -fanen >> Modul verktøyet.

Dermed har en ny modul kalt Module1 blitt opprettet.

Les mer: Hvordan legge til ark med Navn i Excel VBA (6 enkle måter)

Lignende avlesninger

• Lag ny arbeidsbok og lagre ved å bruke VBA i Excel
• Excel VBA: Lag en ny arbeidsbok og navngi den (6 eksempler)
• Hvordan lage nytt ark fra mal ved hjelp av makro i Excel

📌 Trinn 2: Skriv og lagre den nødvendige VBA-koden

Nå må du skrive koden inne i modulen og lagre den.

• I For å gjøre dette, klikk på Module1 -alternativet og skriv følgende kode i kodevinduet.

28299063

• Som en resultat, vil kodevinduet se slik ut.

🔎 Kodeforklaring:

♣ Segment 1:

3899

I denne delen har vi deklarert makronavnet og variabelnavnet es.

♣ Segment 2:

9685

I denne delen har vi laget en inndataboks. Gjennom denne inndataboksen kan vi ta inndata til navnet på filen vi trenger å finne.

♣ Segment 3:

7845

I denne delen sjekker vi om det nødvendige arket finnes i arbeidsboken. Hvis ikke, vil det opprette det nødvendige arket og vise oss en melding om denne endringen.

♣ Segment 4:

4021

I denne delen har vi jobbet med resultatet dersom det påkrevde arket allerede finnes i arbeidsboken. I dette scenariet vil en annen meldingsboks vises som informerer deg om at dette arket eksisterer. Videre, i denne delen avslutter vi koden riktig.

• Etterpå trykker du Ctrl + S.

• Deretter vises et Microsoft Excel vindu. Klikk på Nei -knappen.

• Som et resultat vil Lagre som -vinduet vises.
• Velg deretter alternativet Lagre som type: som .xlsm -format. Klikk deretter på Lagre -knappen.

Dermed har du skrevet og lagret den nødvendige koden.

Merk:

Du må lagre Excel-arbeidsboken i .xlsm -format. Ellers vil ikke makroen være aktivert og koden vil ikke fungere.

Les mer: Excel VBA for å legge til ark med variabelnavn (5 ideelle eksempler)

📌 Trinn 3: Kjør koden

Nå må du kjøre koden og sjekke resultatene.

• For å gjøre dette, klikk først og fremst på Kjør -ikonet i vinduet Microsoft Visual Basic for Applications .

• Som et resultat, vinduet Makroer vises.
• Velg deretter makroen AddSheetIfNotExist og klikk på Kjør -knappen.

• På dette tidspunktet er vår opprettede meldingsbokskalt Legg til ark hvis det ikke eksisterer vises. Her vil autoalternativet være Ark5 .

• Nå, for å sjekke, skriv “April” i tekstboksen og klikk på Ok -knappen.

• Deretter vil du se en annen melding boksen vil dukke opp og fortelle deg at arket allerede eksisterer.
• Klikk på Ok -knappen.

• Etterpå, kjør koden på nytt og skriv «Mai» i tekstboksen i den opprettede meldingsboksen. Deretter klikker du på OK -knappen.

• Som et resultat vil du se en annen meldingsboks som vil vises og informerer deg om at «Mai» -arket ikke eksisterte og derfor opprettet dette arket.
• Klikk deretter på OK -knappen.

Til slutt kan du se at du har lagt til et ark som ikke eksisterte før. Og arbeidsboken ville se slik ut nå.

Les mer: Excel VBA: Legg til ark etter siste (3 ideelle eksempler)

Konklusjon

Så, i denne artikkelen har jeg vist deg alle trinnene for å legge til et ark hvis det ikke eksisterer med Excel VBA. Gå nøye gjennom hele artikkelen for å forstå den bedre og oppnå ønsket resultat. Jeg håper du finner denne artikkelen nyttig og informativ. Hvis du har ytterligere spørsmål eller anbefalinger, kan du gjerne kontakte meg.

Og besøk ExcelWIKI for mange flereartikler som dette. Takk!