Šiame straipsnyje pateikiami atsakymai į jūsų klausimus apie kaip "Excel" pridėti lapą su pavadinimu VBA . jei ieškote tokių unikalių gudrybių, pataikėte į tinkamą vietą. čia aptarsime 6 lengvas & amp; išbandyti būdai, kaip "Excel" pridėti lapą su pavadinimu VBA .

Atsisiųsti praktikos sąsiuvinį

Kad geriau suprastumėte ir praktiškai išbandytumėte, galite atsisiųsti šį "Excel" sąsiuvinį.

VBA kodas, skirtas pridėti lapą su pavadinimu

Naudosime Lapų objektas pridėti lapą "Excel" programoje. Pagrindinis VBA kodas, skirtas pridėti lapą su pavadinimu, atrodo taip, kaip nurodyta toliau.

Prieš: Tai neprivaloma. Jis prideda naują lapą prieš konkretų lapą.

Po: Jis taip pat neprivalomas. Jis prideda naują lapą po konkretaus lapo.

Skaičiuokite: Tai taip pat neprivalomas parametras. Jis nurodo pridėtinių lapų skaičių.

Tipas: Jis taip pat neprivalomas. Jis nurodo lapo tipą. Čia numatytoji reikšmė yra xlWorksheet .

6 skirtingi būdai pridėti lapą su pavadinimu "Excel VBA" programoje

"Excel" programoje galime pridėti naują lapą naudodami komandą add ⊕ piktogramą, esančią šalia lapo pavadinimo. Ar kada nors pagalvojote, kad tą pačią užduotį galima automatizuoti "Excel" programoje? Daugiau negalvokite, nes VBA jums padės.

Čia turime darbalapį, pavadintą Pardavimų ataskaita . Jame yra Dienos pardavimų ataskaita tam tikros kavinės. Stulpeliuose B , C ir D , yra pavadinimų Pardavimų atstovai , Prekės , ir Kiekis atitinkamai.

Čia pridėsime kitus šios darbo knygos lapus naudodami VBA makrokomandos .

Čia mes naudojome "Microsoft Excel 365 versiją, galite naudoti bet kurią kitą versiją pagal savo patogumą.

1. Lapo su pavadinimu pridėjimas "Excel VBA" programoje

Pirmuoju metodu pridėsime lapą su pavadinimu iš naudotojo įvestis Jei norite išmokti, atlikite šiuos paprastus veiksmus.

📌 Žingsniai:

• Pačioje pradžioje eikite į Kūrėjas skirtukas.
• Antra, pasirinkite "Visual Basic apie Kodas grupė.
• Arba paspauskite ALT + F11 atlikti tą pačią užduotį.

Pastaba: Būtinai paspauskite ALT klavišą, esantį kairėje SPACEBAR . Operacija nebūtų įvykdyta, jei naudotumėte kitus ALT raktai.

• Akimirksniu "Microsoft Visual Basic for Applications atidaromas langas.
• Vėliau persikelkite į Įdėkite skirtukas.
• Tada pasirinkite Modulis iš parinkčių.

• Šiuo metu jis atveria kodą Modulis .
• Vėliau įrašykite šį kodą į Modulis .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Įveskite lapo pavadinimą ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Kodo suskirstymas

• Pirma, kviečiame Sub procedūrą kaip Add_Sheet_with_Name .
• Tada apibrėžiame kintamųjų tipus.
• Vėliau pridėjome Dėl klaidos tęsti toliau Tai ignoruos bet kokias klaidas.
• Vėliau naudojome InputBox gauti lapo pavadinimą iš naudotojo. Taip pat išsaugojome teksto eilutę iš InputBox į lapo_vardas kintamas.
• Toliau, jei lapo_vardas yra tuščias, tada kodas nebus tęsiamas.
• Galiausiai naudojame Add.Name metodą naujai sukurtam lapui pavadinti. Šiuo atveju pavadinimas bus toks pat, kaip ir lapo_vardas kintamas.

• Šiuo metu paspauskite Bėgti (⏵) piktogramą. F5 ant klaviatūros.

• Staiga atveriamas įvesties langas.
• Čia įveskite naujojo lapo pavadinimą. Šiuo atveju parašėme Pelnas dėžutėje.
• Vėliau spustelėkite GERAI .

• Taigi, mūsų kodas bus įvykdytas ir pridės lapą, pavadintą Pelnas .

Pastaba: Nepaminėjome jokios mūsų lapo vietos. Pagal numatytuosius nustatymus jis dedamas prieš aktyvųjį lapą.

Skaityti daugiau: "Excel VBA" lapo pridėjimas į kitą sąsiuvinį (3 patogūs pavyzdžiai)

2. "Excel VBA" taikymas, norint pridėti lapą su pavadinimu prieš konkretų lapą

Antruoju metodu pridėsime lapą su pavadinimu prieš konkretų lapą. Išnagrinėkime procesą žingsnis po žingsnio.

📌 Žingsniai:

• Pirma, išveskite kodą Modulis langas, kaip parodyta 1 metodas .
• Antra, įrašykite šį kodą.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Pardavimų ataskaita").Activate Sheets.Add(Before:=Sheets("Pelnas")).Name = "Balansas" End Sub 

Kodo suskirstymas

• Pirma, kviečiame Sub procedūrą kaip Add_Sheet_Before_Specific_Sheet .
• Tada aktyvuojame Pardavimų ataskaita Tai užtikrins, kad kodas bus paleistas, jei būsime kitame lape.
• Toliau naudojame Add.Name metodą, kad pavadintumėte naujai sukurtą lapą. Šis lapas bus sukurtas prieš lapą, pavadintą Pelnas Be to, lapą pavadinome kaip Balansas .

• Vėliau paleiskite kodą, kaip parodyta 1 metodas .
• Taip bus pridėtas naujas lapas Balansas prieš lapą, pavadintą Pelnas .

Skaityti daugiau: "Excel VBA" lapo pridėjimas su kintamojo pavadinimu (5 idealūs pavyzdžiai)

3. Naudojant "Excel VBA" po konkretaus lapo pridėti lapą su pavadinimu

Šiuo metodu po lapo, pavadinto Pelnas . Išsamiau apžvelkime procesą.

📌 Žingsniai:

• Iš pradžių išveskite kodą Modulis langas, kaip parodyta 1 metodas .
• Po to į jį įrašykite šį kodą.

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

Šis kodas yra beveik panašus į 2 metodas . tik, čia mes naudojome parametrą Po o ne Prieš . Kadangi norime pridėti naują lapą po konkretaus lapo.

• Vėliau paleiskite kodą, kaip parodyta 1 metodas .
• Taip bus pridėtas naujas lapas Sandėlis po lapo pavadinimu Pelnas .

Skaityti daugiau: "Excel VBA" lapo pridėjimas, jei jo nėra (greiti žingsniai)

4. Darbaknygės pradžioje įterpiamas lapas su pavadinimu

Šiame skyriuje įterpsime naują lapą į "Excel" darbaknygės pradžią naudodami VBA . Taigi, nieko nelaukdami pažiūrėkime, kaip tai padaryti.

📌 Žingsniai:

• Iš pradžių išveskite kodą Modulis langas, kaip parodyta 1 metodas .
• Vėliau į jį įrašykite šį kodą.

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

Šiuo atveju naują darbalapį pridedame prieš pirmąjį sąsiuvinio lapą. Tai reiškia, kad darbalapio pradžioje. Dėl to dabar tai yra pirmasis lapas. Be to, lapą pavadinome Įmonės profilis .

• Tada paleiskite kodą, kaip parodyta 1 metodas .
• Taigi, bus pridėtas naujas lapas Įmonės profilis darbo knygos pradžioje.

Skaityti daugiau: "Excel" makrokomandos: naujo lapo sukūrimas ir pervadinimas (3 idealūs pavyzdžiai)

5. "Excel VBA" naudojimas darbaknygės pabaigoje pridedant lapą

Šiame skyriuje pridėti lapą po paskutinio sąsiuvinio lapo. . Leiskite man pademonstruoti toliau pateiktą procesą.

📌 Žingsniai:

• Pirmiausia atidarykite kodą Modulis langas, kaip parodyta 1 metodas .
• Antra, įklijuokite šį kodą.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Pajamų ataskaita" End Sub 

Kodo suskirstymas

• Pirma, kviečiame Sub procedūrą kaip Sheet_End_Workbook.
• Toliau naudojame Add.Name metodą naujai sukurtam lapui pavadinti. Šį lapą sukursime po paskutinio sąsiuvinio lapo. Paskutinio lapo numerį galime gauti iš Sheets.Count Be to, lapą pavadinome Pelno (nuostolių) ataskaita .

• Po to paleiskite kodą, kaip parodyta 1 metodas .
• Taigi, bus pridėtas naujas lapas Pelno (nuostolių) ataskaita sąsiuvinio pabaigoje.

Skaityti daugiau: Naujo sąsiuvinio sukūrimas ir išsaugojimas naudojant VBA programoje "Excel

6. Kelių lapų pristatymas naudojant ląstelės vertę "Excel VBA

Paskutiniuoju metodu į sąsiuvinį pridėsime kelis lapus su pavadinimu iš ląstelių intervalo, naudodami "Excel VBA . be to, paprašysime naudotojo įvesti diapazoną, iš kurio bus paimtas pavadinimas. Taigi, pažvelkime į toliau nurodytus veiksmus.

📌 Žingsniai:

• Iš pradžių atidarykite kodą Modulis langas, kaip parodyta 1 metodas .
• Vėliau nukopijuokite ir įklijuokite šį kodą.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & amp; " 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 

Kodo suskirstymas

• Pirma, mes kviečiame Sub procedūrą kaip Add_Multiple_Sheets_Using_Cell_Value.
• Tada apibrėžiame kintamųjų tipus.
• Vėliau naudojame InputBox iš naudotojo gauti duomenų diapazoną.
• Ketvirta, aktyvuojame lapą Pardavimų ataskaita .
• Vėliau naudosime Kiekvienam Kitas ciklą, kad paeiliui pereitumėte per pasirinktą ląstelių intervalą.
• Toliau naudojame Add.Name metodą naujai sukurtam lapui pavadinti. Šiuos lapus sukursime po aktyvaus lapo Pardavimų ataskaita sąsiuvinyje.

• Dabar paleiskite kodą, kaip parodyta 1 metodas .
• Akimirksniu Exceldemy atidaromas įvesties langas.
• Tada ląstelėms, esančioms B5:B9 asortimentas dėžutėje.
• Galiausiai spustelėkite GERAI .

• Galiausiai bus įterpta penki lapai, pavadinti pagal langelių reikšmes B5:B9 diapazonas. Jie visi yra po lapo Pardavimų ataskaita .

Išvada

Šiame straipsnyje pateikiami paprasti ir trumpi sprendimai, kaip "Excel" pridėti lapus su pavadinimais VBA Nepamirškite atsisiųsti Praktika failas. Dėkojame, kad perskaitėte šį straipsnį, tikimės, kad jis buvo naudingas. Jei turite klausimų ar pasiūlymų, praneškite mums komentarų skiltyje. Apsilankykite mūsų svetainėje Exceldemy daugiau sužinoti.