Excel VBA lisätä arkki, jos sitä ei ole olemassa (nopeat vaiheet)

Hugh West

16-10-2023 Makrot &; Excel VBA
  • Jaa Tämä
Hugh West

Excel VBA on tehokas ja kätevä työkalu, jonka avulla voit suorittaa tehtäviä melko nopeasti ja suuressa määrin. Voit soveltaa useita ehtoja ja johtaa erilaisia tuloksia yksittäisten ehtojen perusteella VBA:n avulla. Joskus saatat haluta tarkistaa, onko tietty arkki olemassa työkirjassasi. Jos ei ole, sinun on ehkä luotava kyseinen arkki. Tässä artikkelissa näytän sinulle kaikki vaiheet, joilla voit lisätä arkki jos sitä ei ole olemassa, Excel VBA:n avulla.

Excel VBA: Lisää arkki, jos sitä ei ole olemassa (nopea näkymä) 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Minkä arkin etsit?", _ "Lisää arkki, jos sitä ei ole olemassa", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' sheet haslisätty, koska sitä ei ollut olemassa.", _ vbInformation, "Lisää arkki, jos sitä ei ole olemassa" Else MsgBox "''" & addSheetName & _ "''arkki on jo olemassa tässä työkirjassa.", _ vbInformation, "Lisää arkki, jos sitä ei ole olemassa" End If End Sub

Lisää uuteen moduuliin yllä olevan koodin soveltamiseksi.

Lataa harjoituskirja

Voit ladata harjoituskirjamme täältä ilmaiseksi!

Lisää arkki, jos sitä ei ole olemassa.xlsm

Vaiheet VBA-koodin soveltamiseksi Excel-arkin lisäämiseen, jos sitä ei ole olemassa

Oletetaan, että sinulla on työkirja, joka sisältää 4 työarkkia nimeltä tammikuu, helmikuu, maaliskuu ja huhtikuu. Kukin arkki sisältää seuraavan kuukauden myyntiraportin. Nyt sinun on löydettävä työkirjasta joitakin arkkeja ja lisättävä arkki, jos sitä ei ole olemassa. Voit tehdä tämän noudattamalla alla olevia vaiheittaisia ohjeita.

📌 Vaihe 1: Uuden moduulin lisääminen

Ensin sinun on lisättävä moduuli VBA-koodin kirjoittamista varten.

  • Voit tehdä tämän heti alussa siirtymällä osoitteeseen Kehittäjä tab>> Visual Basic työkalu.

  • Tämän seurauksena Microsoft Visual Basic for Applications ikkuna tulee näkyviin.
  • Siirry tämän jälkeen osoitteeseen Lisää tab>> Moduuli työkalu.

Näin ollen uusi moduuli nimeltä Moduuli1 on luotu.

Lue lisää: Kuinka lisätä arkki nimellä Excel VBA: ssa (6 helppoa tapaa)

Samanlaisia lukemia

  • Luo uusi työkirja ja tallenna VBA: n avulla Excelissä
  • Excel VBA: Luo uusi työkirja ja nimeä se (6 esimerkkiä)
  • Kuinka luoda uusi arkki mallista käyttämällä makroa Excelissä

📌 Vaihe 2: Kirjoita ja tallenna tarvittava VBA-koodi.

Nyt sinun on kirjoitettava koodi moduulin sisälle ja tallennettava se.

  • Napsauta tätä varten Moduuli1 ja kirjoita seuraava koodi koodiikkunaan. 
 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Minkä arkin etsit?", _ "Lisää arkki, jos sitä ei ole olemassa", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' sheet haslisätty, koska sitä ei ollut olemassa.", _ vbInformation, "Lisää arkki, jos sitä ei ole olemassa" Else MsgBox "Tässä työkirjassa on jo olemassa ''" & addSheetName & _ "''arkki.", _ vbInformation, "Lisää arkki, jos sitä ei ole olemassa" End If End If End  Sub

  • Tämän seurauksena koodiikkuna näyttää seuraavalta.

🔎 Koodi Selitys:

♣ Segmentti 1: 

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String

Tässä osassa olemme ilmoittaneet makron nimen ja muuttujien nimet.

♣ Segmentti 2: 

 addSheetName = Application.InputBox("Mitä arkkia etsit?", _ "Lisää arkki, jos sitä ei ole", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name

Tässä osassa olemme luoneet syöttölaatikon, jonka kautta voimme syöttää etsittävän tiedoston nimen.

♣ Segmentti 3: 

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Arkki ''" & addSheetName & _ "''' on lisätty, koska sitä ei ollut olemassa.", _ vbInformation, "Lisää arkki, jos sitä ei ole olemassa."

Tässä osassa tarkistetaan, onko vaadittu arkki olemassa työkirjassa. Jos ei, se luo vaaditun arkin ja näyttää viestin tästä muutoksesta.

♣ Segmentti 4: 

 Else MsgBox "''" & addSheetName & _ "''arkki on jo olemassa tässä työkirjassa.", _ vbInformation, "Lisää arkki, jos ei ole olemassa" End If End Sub

Tässä osassa olemme käsitelleet tulosta, jos haluttu arkki on jo olemassa työkirjassa. Tässä tapauksessa näyttöön tulee toinen viestiruutu, jossa ilmoitetaan, että kyseinen arkki on olemassa. Lisäksi tässä osassa lopetamme koodin asianmukaisesti.

  • Paina sen jälkeen Ctrl + S.

  • Tämän jälkeen Microsoft Excel ikkuna tulee näkyviin. Napsauta Ei nappi.

  • Tämän seurauksena Tallenna nimellä ikkuna tulee näkyviin.
  • Valitse sen jälkeen Tallenna tyypiksi: vaihtoehto kuin .xlsm Napsauta sen jälkeen painiketta Tallenna nappi.

Olet siis kirjoittanut ja tallentanut tarvitsemasi koodin.

Huom:

Excel-työkirja on tallennettava osoitteeseen .xlsm Muussa tapauksessa makro ei ole käytössä eikä koodi toimi.

Lue lisää: Excel VBA lisätä arkki muuttujan nimellä (5 ihanteellista esimerkkiä)

📌 Vaihe 3: Suorita koodi

Nyt sinun on ajettava koodi ja tarkistettava tulokset.

  • Voit tehdä tämän napsauttamalla ensin ja ennen kaikkea painiketta Suorita kuvake Microsoft Visual Basic for Applications ikkuna.

  • Tämän seurauksena Makrot ikkuna tulee näkyviin.
  • Valitse sen jälkeen AddSheetIfNotExist makroa ja napsauta Suorita nappi.

  • Tällä hetkellä luotu viestilaatikkomme nimeltä Add Sheet If Not Exist Tässä tapauksessa automaattinen vaihtoehto olisi seuraava. Sheet5 .

  • Kirjoita nyt tarkistusta varten "Huhtikuu" tekstikenttään ja napsauta Ok nappi.

  • Tämän jälkeen näyttöön ilmestyy toinen viestiruutu, jossa kerrotaan, että arkki on jo olemassa.
  • Napsauta Ok nappi.

  • Suorita koodi sen jälkeen uudelleen ja kirjoita "Toukokuu" luodun viestikentän tekstikenttään. Napsauta sen jälkeen painiketta OK nappi.

  • Tämän seurauksena näyttöön ilmestyy toinen viestiruutu, jossa ilmoitetaan, että "Toukokuu" arkkia ei ollut olemassa, ja siksi se loi tämän arkin.
  • Napsauta sen jälkeen OK nappi.

Lopuksi näet, että olet lisännyt arkin, jota ei ollut aiemmin. Työkirja näyttää nyt tältä.

Lue lisää: Excel VBA: Lisää arkki viimeisen jälkeen (3 ihanteellista esimerkkiä)

Päätelmä

Joten tässä artikkelissa olen näyttänyt sinulle kaikki vaiheet lisätä arkki, jos sitä ei ole olemassa Excel VBA: lla. Käy koko artikkeli huolellisesti läpi, jotta ymmärrät sen paremmin ja saavutat halutun tuloksen. Toivottavasti tämä artikkeli on hyödyllinen ja informatiivinen. Jos sinulla on lisäkysymyksiä tai suosituksia, ota rohkeasti yhteyttä minuun.

Ja käy ExcelWIKI paljon lisää tällaisia artikkeleita. Kiitos!

Edellinen viesti Excel LOOKUP vs. VLOOKUP: 3 esimerkillä
Seuraava postaus Yhdistettyjä soluja ei voi kopioida Excelissä (4 ratkaisua)

Hugh West on erittäin kokenut Excel-kouluttaja ja analyytikko, jolla on yli 10 vuoden kokemus alalta. Hän on koulutukseltaan laskentatoimen ja rahoituksen kandidaatti sekä kauppatieteiden maisteri. Hughilla on intohimo opettamiseen, ja hän on kehittänyt ainutlaatuisen opetusmenetelmän, jota on helppo seurata ja ymmärtää. Hänen asiantuntemuksensa Excelistä on auttanut tuhansia opiskelijoita ja ammattilaisia ​​maailmanlaajuisesti parantamaan taitojaan ja menestymään urallaan. Blogissaan Hugh jakaa tietämyksensä maailman kanssa tarjoamalla ilmaisia ​​Excel-opetusohjelmia ja verkkokoulutusta auttaakseen yksilöitä ja yrityksiä saavuttamaan täyden potentiaalinsa.