See artikkel annab vastused teie küsimustele, mis käsitlevad kuidas lisada Excelis nime sisaldav leht VBA . kui otsite selliseid unikaalseid trikke, siis olete jõudnud õigesse kohta. Siin arutame, kuidas 6 lihtne & järeleproovitud viisid Exceli lehe lisamiseks koos nimega VBA .

Lae alla praktiline töövihik

Võite alla laadida järgmise Exceli töövihiku, et sellest paremini aru saada ja seda ise harjutada.

VBA kood lehe lisamiseks koos nimega

Me kasutame Lehtede objekt lehe lisamiseks Excelis. Põhiline VBA kood lehe lisamiseks, mille nimi näeb välja nagu allpool.

Enne: See on vabatahtlik. See lisab uue lehe enne konkreetset lehte.

Pärast: Ka see on vabatahtlik. See lisab uue lehe pärast konkreetset lehte.

Krahv: See on samuti valikuline parameeter. See näitab lisatavate lehtede arvu.

Tüüp: See on samuti valikuline. See määrab lehe tüübi. Siin on vaikimisi väärtuseks xlWorksheet .

6 erinevat võimalust Exceli VBAs lehe lisamiseks nimega lehega

Excelis saame lisada uue lehe käsuga add ⊕ ikoon kohe lehe nime kõrval. Kas olete kunagi mõelnud sama ülesande automatiseerimisele Excelis? Ärge mõelge enam, sest VBA on teid katnud.

Siin on meil tööleht nimega Müügiaruanne See sisaldab Igapäevane müügiaruanne teatud kohvikus. Veergudes B , C ja D , on nimed Müügiesindajad , Artiklid ja Kogus vastavalt.

Siinkohal lisame selle töövihiku teised lehed abiga VBA makro .

Siinkohal oleme kasutanud Microsoft Excel 365 versiooni, võite kasutada mis tahes muud versiooni vastavalt oma mugavusele.

1. Lehe lisamine koos nimega Excel VBAs

Meie esimeses meetodis lisame lehe, mille nimi pärineb dokumendist kasutaja sisestus Kui olete uudishimulik õppima, järgige neid lihtsaid samme.

📌 Sammud:

• Kohe alguses minge Arendaja vahekaart.
• Teiseks, valige Visual Basic kohta Kood rühm.
• Teise võimalusena vajutage ALT + F11 sama ülesande täitmiseks.

Märkus: Veenduge, et vajutate ALT klahvi vasakul pool SPACEBAR Operatsioon ei toimu, kui kasutate teisi operatsioone. ALT võtmed.

• Kohe, kui Microsoft Visual Basic for Applications aken avaneb.
• Hiljem liikuda Sisesta vahekaart.
• Seejärel valige Moodul valikutest.

• Praegu avab see koodi Moodul .
• Seejärel kirjutage järgmine kood faili Moodul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Koodide lahtimõtestamine

• Esiteks, me kutsume Sub-protseduuri kui Add_Sheet_with_Name .
• Seejärel määratleme muutujatüübid.
• Hiljem lisasime Vea korral Jätka järgmist See ignoreerib kõiki vigu.
• Pärast seda kasutasime InputBox et saada kasutajalt lehe nimi. Samuti salvestasime teksti stringi alates InputBox sisse lehe_nimi muutuv.
• Järgnevalt, kui lehe_nimi on tühi, siis koodiga ei jätkata.
• Lõpuks kasutame me Add.Name meetodiga, et anda vastloodud lehele nimi. Siin on nimi sama mis lehe_nimi muutuv.

• Sel hetkel vajutage Jooks (⏵) Pigem võite vajutada F5 klaviatuuril.

• Järsku avaneb sisestusaken.
• Siin sisestage uue lehe nimi. Antud juhul kirjutasime Kasum kastis.
• Hiljem klõpsake OK .

• Niisiis, meie kood käivitub ja lisab lehe nimega Kasum .

Märkus: Me ei ole maininud meie lehe kohta. Vaikimisi paigutatakse see enne aktiivset lehte.

Loe edasi: Excel VBA lehe lisamiseks teisele töövihikule (3 praktilist näidet)

2. Exceli VBA rakendamine lehe lisamiseks nimega enne konkreetset lehte

Meie teises meetodis lisame konkreetse lehe ees oleva lehe nime. Uurime protsessi samm-sammult.

📌 Sammud:

• Esiteks, tooge üles kood Moodul aken nagu näidatud Meetod 1 .
• Teiseks kirjutage sinna järgmine kood.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Koodide lahtimõtestamine

• Esiteks, me kutsume Sub-protseduuri kui Add_Sheet_Before_Specific_Sheet .
• Seejärel aktiveerime Müügiaruanne leht. See tagab, et kood käivitub, kui me oleme teisel lehel.
• Järgmisena kasutame me Add.Name meetodiga, et anda vastloodud lehele nimi. See leht luuakse enne lehte nimega Kasum töövihikust. Lisaks oleme nimetanud lehe nimeks Bilanss .

• Seejärel käivitage kood, nagu on näidatud Meetod 1 .
• Seega, see lisab uue lehe Bilanss enne lehte nimega Kasum .

Loe edasi: Exceli VBA muutuja nimega lehe lisamiseks (5 ideaalset näidet)

3. Exceli VBA kasutamine lehe lisamiseks nimega pärast konkreetset lehte

Selles meetodis lisame lehe järele lehe nimega Kasum Vaatame protsessi üksikasjalikult.

📌 Sammud:

• Kõigepealt tooge üles kood Moodul aken nagu näidatud Meetod 1 .
• Pärast seda kirjutage sinna järgmine kood.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

See kood on peaaegu sarnane koodiga Meetod 2 . lihtsalt, siin kasutasime parameetrit Pärast mitte Enne . sest me tahame lisada uue lehe, mis järgneb konkreetsele lehele.

• Seejärel käivitage kood, nagu on näidatud Meetod 1 .
• Seega, see lisab uue lehe Ladu pärast lehe nimega Kasum .

Loe edasi: Exceli VBA lehe lisamiseks, kui seda ei ole olemas (koos kiirete sammudega)

4. Lehe lisamine koos nimega töövihiku alguses

Selles jaotises lisame Exceli töövihiku algusesse uue lehe, kasutades selleks VBA . Niisiis, ilma pikema viivituseta, vaatame, kuidas me seda teeme.

📌 Sammud:

• Esialgu tooge üles kood Moodul aken nagu näidatud Meetod 1 .
• Seejärel kirjutage sinna järgmine kood.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Company Profile" End Sub 

Siin lisame uue töölehe enne töövihiku esimest lehte. See tähendab, et töövihiku alguses. Selle tulemusena on see nüüd esimene leht. Samuti andsime lehele nime Ettevõtte profiil .

• Seejärel käivitage kood, nagu on näidatud Meetod 1 .
• Seega, see lisab uue lehe Ettevõtte profiil töövihiku alguses.

Loe edasi: Exceli makro: uue lehe loomine ja ümbernimetamine (3 ideaalset näidet)

5. Exceli VBA kasutamine lehe lisamiseks töövihiku lõpus

Selles osas me lisada leht pärast töövihiku viimast lehte Lubage mul järgnevalt protsessi demonstreerida.

📌 Sammud:

• Eelkõige avage kood Moodul aken nagu näidatud Meetod 1 .
• Teiseks, kleepige sinna järgmine kood.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Kasumiaruanne" End Sub 

Koodide lahtimõtestamine

• Esiteks kutsume Sub-protseduuri Sheet_End_Workbook.
• Järgmisena kasutame me Add.Name meetodiga, et anda vastloodud lehele nimi. Me loome selle lehe pärast töövihiku viimast lehte. Viimase lehe numbri võime saada järgmisest Lehed.Count Lisaks sellele oleme nimetanud lehe Kasumiaruanne .

• Pärast seda käivitage kood, nagu on näidatud Meetod 1 .
• Seega, see lisab uue lehe Kasumiaruanne töövihiku lõpus.

Loe edasi: Uue töövihiku loomine ja salvestamine VBA abil Excelis

6. Mitme lehe tutvustamine Exceli VBA abil, kasutades lahtri väärtust

Viimase meetodi puhul lisame Exceli abil mitu lehte töövihikusse, mille nimi on pärit rakkude vahemikust. VBA . Lisaks palume kasutajal sisestada vahemik, et võtta nimi. Niisiis, vaatame alljärgnevaid samme.

📌 Sammud:

• Kõigepealt avage kood Moodul aken nagu näidatud Meetod 1 .
• Seejärel kopeeri järgmine kood ja kleebi see sinna sisse.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Koodide lahtimõtestamine

• Esiteks kutsume Sub-protseduuri Add_Multiple_Sheets_Using_Cell_Value.
• Seejärel määratleme muutujatüübid.
• Pärast seda kasutame InputBox et saada kasutajalt andmevalik.
• Neljandaks, aktiveerime lehe Müügiaruanne .
• Hiljem kasutame Iga järgmise jaoks tsükkel, et läbida valitud lahtrite vahemik ükshaaval.
• Järgmisena kasutame me Add.Name meetodiga, et anda vastloodud lehele nimi. Me loome need lehed pärast aktiivset lehte Müügiaruanne töövihikust.

• Nüüd käivitage kood, nagu on näidatud Meetod 1 .
• Kohe, kui Exceldemy avaneb sisendkast.
• Seejärel andke lahtritele B5:B9 vahemik karbis.
• Lõpuks klõpsake OK .

• Lõpuks sisestab ta viis lehed, mis on nimetatud lahtri väärtuste järgi B5:B9 vahemikus. Nad kõik on pärast lehe Müügiaruanne .

Kokkuvõte

See artikkel pakub lihtsaid ja lühikesi lahendusi Exceliga nimedega lehtede lisamiseks VBA Ärge unustage alla laadida Praktika fail. Täname teid selle artikli lugemise eest, loodame, et see oli kasulik. Palun andke meile teada kommentaaride sektsioonis, kui teil on küsimusi või ettepanekuid. Palun külastage meie veebisaiti Exceldemy rohkem uurida.