Šajā rakstā sniegtas atbildes uz jūsu jautājumiem par kā pievienot lapu ar nosaukumu programmā Excel VBA Ja meklējat šādus unikālus trikus, esat nonācis īstajā vietā. Šeit mēs apspriedīsim 6 viegli & amp; pārbaudīti veidi, kā pievienot lapu ar nosaukumu programmā Excel VBA .

Lejupielādēt Practice Workbook

Labākai izpratnei un praksei varat lejupielādēt šādu Excel darbgrāmatu.

VBA kods, lai pievienotu lapu ar nosaukumu

Mēs izmantosim Loksnes objekts lai pievienotu lapu programmā Excel. VBA kods, lai pievienotu lapu ar nosaukumu, izskatās, kā parādīts tālāk.

Pirms: Tas nav obligāti. Tā pievieno jaunu lapu pirms konkrētas lapas.

Pēc: Tā arī nav obligāta. Tā pievieno jaunu lapu pēc konkrētas lapas.

Skaitīt: Tas arī ir izvēles parametrs. Tas norāda pievienojamo lapu skaitu.

Veids: Tas arī nav obligāts. Tas norāda lapas veidu. Šeit noklusējuma vērtība ir šāda. xlWorksheet .

6 dažādi veidi, kā pievienot lapu ar nosaukumu programmā Excel VBA

Programmā Excel mēs varam pievienot jaunu lapu, izmantojot komandu add ⊕ ikona tieši blakus lapas nosaukumam. Vai esat kādreiz domājuši par tāda paša uzdevuma automatizēšanu programmā Excel? Nedomājiet vairāk, jo VBA jums ir pieejams.

Šeit mums ir darblapa ar nosaukumu Pārdošanas pārskats . Tajā ir Ikdienas pārdošanas pārskats no konkrētas kafejnīcas. Slejās B , C un D , ir nosaukumi Pārdošanas pārstāvji , Preces , un Daudzums attiecīgi.

Šeit mēs pievienosim citas lapas šajā darbgrāmatā, izmantojot VBA makro .

Šeit mēs izmantojām Microsoft Excel 365 versiju, jūs varat izmantot jebkuru citu versiju atbilstoši jūsu ērtībām.

1. Loksnes pievienošana ar nosaukumu programmā Excel VBA

Mūsu pirmajā metodē mēs pievienosim lapu ar nosaukumu no lietotāja ievadi . Ja vēlaties uzzināt vairāk, izpildiet šos vienkāršos norādījumus.

📌 Soļi:

• Pašā sākumā dodieties uz Izstrādātājs cilne.
• Otrkārt, izvēlieties Visual Basic par Kods grupa.
• Alternatīvi nospiediet ALT + F11 lai veiktu to pašu uzdevumu.

Piezīme: Noteikti nospiediet ALT taustiņš kreisajā pusē SPACEBAR . Operācija netiks izpildīta, ja izmantosiet citus ALT atslēgas.

• Uzreiz Microsoft Visual Basic lietojumprogrammām tiek atvērts logs.
• Vēlāk pārvietojieties uz Ievietot cilne.
• Pēc tam atlasiet Modulis no iespējām.

• Pašlaik tas atver kodu Modulis .
• Pēc tam ierakstiet šādu kodu Modulis .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Lūdzu, ievadiet lapas nosaukumu ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Koda sadalījums

• Pirmkārt, mēs izsaucam Sub procedūru kā Add_Sheet_with_Name .
• Pēc tam tiek definēti mainīgo tipi.
• Vēlāk mēs pievienojām Kļūdas gadījumā atsākt Nākamais Šis paziņojums ignorēs visas kļūdas.
• Pēc tam mēs izmantojām InputBox lai iegūtu lapas nosaukumu no lietotāja. Tāpat mēs saglabājām teksta virkni no InputBox uz lapas_nosaukums mainīgs.
• Tālāk, ja lapas_nosaukums ir tukšs, tad kods netiks turpināts.
• Visbeidzot, mēs izmantojam Add.Name metode, lai dotu nosaukumu jaunizveidotajai lapai. Šajā gadījumā nosaukums būs tāds pats kā lapas_nosaukums mainīgs.

• Šajā brīdī nospiediet Run (⏵) ikonu. Drīzāk varat nospiest F5 uz tastatūras.

• Pēkšņi tiek atvērts ievades lodziņš.
• Šeit ievadiet jaunās lapas nosaukumu. Šajā gadījumā mēs rakstījām. Peļņa kastē.
• Vēlāk noklikšķiniet uz LABI .

• Tādējādi mūsu kods tiks izpildīts un tiks pievienota lapa ar nosaukumu Peļņa .

Piezīme: Mēs neesam minējuši vietu mūsu lapai. Pēc noklusējuma tā ir novietota pirms aktīvās lapas.

Lasīt vairāk: Excel VBA, lai pievienotu lapu citai darbgrāmatai (3 praktiski piemēri)

2. Excel VBA izmantošana, lai pievienotu lapu ar nosaukumu pirms konkrētas lapas

Izmantojot otro metodi, mēs pievienosim lapu ar nosaukumu pirms konkrētas lapas. Izpētīsim šo procesu soli pa solim.

📌 Soļi:

• Vispirms izceliet kodu Modulis logs, kā parādīts 1. metode .
• Otrkārt, ierakstiet tajā šādu kodu.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Pārdošanas pārskats").Activate Sheets.Add(Before:=Sheets("Peļņa")).Name = "Bilances lapa" End Sub 

Koda sadalījums

• Pirmkārt, mēs izsaucam Sub procedūru kā Add_Sheet_Before_Specific_Sheet .
• Pēc tam mēs aktivizējam Pārdošanas pārskats Tas nodrošinās, ka kods tiks palaists, ja mēs atrodamies citā lapā.
• Tālāk mēs izmantojam Add.Name metode, lai nosauktu jaunizveidoto lapu. Šī lapa tiks izveidota pirms lapas ar nosaukumu Peļņa Turklāt mēs esam nosaukuši lapu kā Bilance .

• Pēc tam palaidiet kodu, kā parādīts 1. metode .
• Tādējādi tiks pievienota jauna lapa Bilance pirms lapas ar nosaukumu Peļņa .

Lasīt vairāk: Excel VBA, lai pievienotu lapu ar mainīgo nosaukumu (5 ideāli piemēri)

3. Izmantojot Excel VBA, lai pievienotu lapu ar nosaukumu pēc konkrētas lapas

Šajā metodē mēs pievienosim lapu pēc lapas ar nosaukumu Peļņa . Apskatīsim šo procesu sīkāk.

📌 Soļi:

• Vispirms izvadiet kodu Modulis logs, kā parādīts 1. metode .
• Pēc tam tajā ierakstiet šādu kodu.

 Sub Add_Sheet_After_Specific_Sheet() Darblapas("Profit").Aktivizēt Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Šis kods ir gandrīz līdzīgs kodam 2. metode . Tikai šeit mēs izmantojām parametru Pēc nevis Pirms . Tā kā mēs vēlamies pievienot jaunu lapu, kas seko konkrētai lapai.

• Pēc tam palaidiet kodu, kā parādīts 1. metode .
• Tādējādi tiks pievienota jauna lapa Noliktava pēc lapas ar nosaukumu Peļņa .

Lasīt vairāk: Excel VBA, lai pievienotu lapu, ja tās nav (ar ātriem soļiem)

4. Loksnes ar nosaukumu ievietošana darbgrāmatas sākumā

Šajā sadaļā mēs ievietosim jaunu lapu darbgrāmatas sākumā programmā Excel, izmantojot VBA . Tāpēc bez kavēšanās aplūkosim, kā mēs to darām.

📌 Soļi:

• Sākotnēji izvadiet kodu Modulis logs, kā parādīts 1. metode .
• Pēc tam tajā ierakstiet šādu kodu.

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

Šeit mēs pievienojam jauno darblapu pirms darbgrāmatas pirmās lapas. Tas nozīmē, ka darbgrāmatas sākumā. Rezultātā tagad tā ir pirmā lapa. Arī mēs nosaucām lapu Uzņēmuma profils .

• Pēc tam palaidiet kodu, kā parādīts 1. metode .
• Tādējādi tiks pievienota jauna lapa Uzņēmuma profils darba burtnīcas sākumā.

Lasīt vairāk: Excel makro: jaunas lapas izveide un pārdēvēšana (3 ideāli piemēri)

5. Excel VBA izmantošana, lai pievienotu lapu darbgrāmatas beigās

Šajā sadaļā mēs pievienot lapu pēc darbgrāmatas pēdējās lapas. . Ļaujiet man parādīt turpmāk aprakstīto procesu.

📌 Soļi:

• Galvenokārt atveriet kodu Modulis logs, kā parādīts 1. metode .
• Otrkārt, ielīmējiet tajā šādu kodu.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Peļņas un zaudējumu aprēķins" End Sub 

Koda sadalījums

• Pirmkārt, mēs izsaucam procedūru Sub kā Sheet_End_Workbook.
• Tālāk mēs izmantojam Add.Name Mēs izveidosim šo lapu pēc darbgrāmatas pēdējās lapas. Mēs varam iegūt pēdējās lapas numuru no Sheets.Count Turklāt mēs esam nosaukuši lapu Peļņas un zaudējumu aprēķins .

• Pēc tam palaidiet kodu, kā parādīts 1. metode .
• Tādējādi tiks pievienota jauna lapa Peļņas un zaudējumu aprēķins darba burtnīcas beigās.

Lasīt vairāk: Jaunas darbgrāmatas izveide un saglabāšana, izmantojot VBA programmā Excel

6. Vairāku lapu ieviešana, izmantojot šūnu vērtību ar Excel VBA

Pēdējai metodei mēs pievienosim vairākas lapas darbgrāmatā ar nosaukumu no šūnu diapazona, izmantojot Excel. VBA . Turklāt mēs lūgsim lietotājam ievadīt diapazonu, lai ņemtu nosaukumu. Tātad, aplūkosim turpmāk minētos soļus.

📌 Soļi:

• Vispirms atveriet kodu Modulis logs, kā parādīts 1. metode .
• Pēc tam nokopējiet un ielīmējiet šādu kodu.

 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 

Koda sadalījums

• Pirmkārt, mēs izsaucam procedūru Sub kā Add_Multiple_Sheets_Using_Cell_Value.
• Pēc tam tiek definēti mainīgo tipi.
• Pēc tam mēs izmantojam InputBox lai no lietotāja iegūtu datu diapazonu.
• Ceturtkārt, mēs aktivizējam lapu Pārdošanas pārskats .
• Vēlāk mēs izmantojam Par katru nākamo cilpa, lai atlasīto šūnu diapazonu šķērsotu pa vienai.
• Tālāk mēs izmantojam Add.Name metodi, lai nosauktu jaunizveidoto lapu. Mēs izveidosim šīs lapas pēc aktīvās lapas. Pārdošanas pārskats darba burtnīcā.

• Tagad palaidiet kodu, kā parādīts 1. metode .
• Uzreiz Exceldemy tiek atvērts ievades lodziņš.
• Pēc tam piešķiriet šūnām B5:B9 diapazons lodziņā.
• Visbeidzot, noklikšķiniet uz LABI .

• Visbeidzot, tas ievietos pieci loksnes, kas nosauktas pēc šūnu vērtībām B5:B9 diapazons. Tie visi ir pēc lapas Pārdošanas pārskats .

Secinājums

Šajā rakstā sniegti vienkārši un īsi risinājumi, kā pievienot lapas ar nosaukumiem, izmantojot Excel VBA . Neaizmirstiet lejupielādēt Prakse failu. Paldies, ka izlasījāt šo rakstu, mēs ceram, ka tas bija noderīgs. Lūdzu, informējiet mūs komentāru sadaļā, ja jums ir kādi jautājumi vai ieteikumi. Lūdzu, apmeklējiet mūsu tīmekļa vietni. Exceldemy lai izpētītu vairāk.