Acest articol vă oferă răspunsuri la întrebările dvs. cu privire la cum să adăugați o foaie cu nume în Excel VBA Dacă sunteți în căutarea unor astfel de trucuri unice, ați ajuns la locul potrivit. Aici, vom discuta despre 6 easy & modalități dovedite de a adăuga o foaie cu un nume în Excel VBA .

Descărcați caietul de practică

Puteți descărca următorul registru de lucru Excel pentru o mai bună înțelegere și pentru a vă exersa.

Cod VBA pentru a adăuga o foaie cu nume

Vom folosi Obiect foi pentru a adăuga o foaie în Excel. VBA codul pentru a adăuga o foaie cu numele arată ca cel de mai jos.

Înainte: Este opțional. Adaugă o nouă foaie înainte de o anumită foaie.

După: Este de asemenea opțional. Adaugă o nouă foaie după o anumită foaie.

Numărătoarea: Este, de asemenea, un parametru opțional care indică numărul de foi care trebuie adăugate.

Tip: De asemenea, este opțional și specifică tipul de foaie. Aici, valoarea implicită este xlFoaie de lucru .

6 moduri diferite de a adăuga foaie cu nume în Excel VBA

În Excel, putem adăuga o foaie nouă cu ajutorul funcției add ⊕ chiar lângă numele foii. V-ați gândit vreodată să automatizați aceeași sarcină în Excel? Nu vă mai gândiți, pentru că VBA vă acoperă.

Aici avem o foaie de lucru numită Raport de vânzări Acesta conține Raport zilnic de vânzări de la o anumită cofetărie. În coloane B , C și D , există nume de Reprezentanți de vânzări , Articole , și Cantitate respectiv.

Aici, vom adăuga alte foi în acest registru de lucru cu ajutorul Macro VBA .

Aici, am folosit Microsoft Excel 365 puteți utiliza orice altă versiune, în funcție de preferințele dumneavoastră.

1. Adăugarea foii cu nume în Excel VBA

În prima noastră metodă, vom adăuga o foaie cu numele din fișierul intrarea utilizatorului Dacă sunteți curioși să învățați, urmați acești pași simpli.

📌 Pași:

• La început, mergeți la Dezvoltator tab.
• În al doilea rând, selectați Visual Basic pe Cod grup.
• Alternativ, apăsați ALT + F11 pentru a îndeplini aceeași sarcină.

Notă: Asigurați-vă că apăsați butonul ALT din stânga ecranului SPACEBAR Operațiunea nu se va executa dacă folosiți altă operațiune. ALT chei.

• Instantaneu, se va deschide Microsoft Visual Basic pentru aplicații se deschide fereastra.
• Ulterior, treceți la Introduceți tab.
• Apoi, selectați Modul din opțiuni.

• În prezent, se deschide codul Modul .
• După aceea, scrieți următorul cod în fișierul Modul .

 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 

Defalcarea codului

• În primul rând, apelăm procedura Sub ca Adaugă_foaie_cu_numele .
• Apoi, definim tipurile de variabile.
• Ulterior, am adăugat La eroare, reluați Următorul Aceasta va ignora orice erori.
• După aceea, am folosit InputBox pentru a obține numele foii de la utilizator. De asemenea, am stocat șirul de text din fișierul InputBox în nume_foaie variabilă.
• În continuare, în cazul în care nume_foaie este gol, codul nu va continua.
• În cele din urmă, folosim Add.Name pentru a denumi foaia nou creată. Aici, numele va fi același cu cel al foii nume_foaie variabilă.

• În acest moment, apăsați butonul Fugi (⏵) În schimb, puteți apăsa pictograma F5 pe tastatură.

• Dintr-o dată, se deschide o casetă de introducere a datelor.
• Aici, introduceți numele noii foi. În acest caz, am scris Profit în cutie.
• Ulterior, faceți clic pe OK .

• Deci, codul nostru se va executa și va adăuga o foaie numită Profit .

Notă: Nu am menționat niciun loc pentru foaia noastră. În mod implicit, este plasată înaintea foii active.

Citește mai mult: Excel VBA pentru a adăuga o foaie la un alt registru de lucru (3 exemple practice)

2. Aplicarea Excel VBA pentru a adăuga o foaie cu nume înaintea unei foi specifice

În cea de-a doua metodă, vom adăuga o foaie cu numele înaintea unei anumite foi. Să explorăm procesul pas cu pas.

📌 Pași:

• În primul rând, aduceți codul Modul așa cum se arată în Metoda 1 .
• În al doilea rând, scrieți următorul cod în acest fișier.

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

Defalcarea codului

• În primul rând, apelăm procedura Sub ca Adăugare_foaie_înainte_de_foaie_specifică .
• Apoi, activăm Raport de vânzări Astfel, ne vom asigura că codul se va executa și dacă ne aflăm pe o altă foaie.
• În continuare, folosim Add.Name pentru a denumi foaia nou creată. Această foaie va fi creată înaintea foii numite Profit din registrul de lucru. În plus, am numit foaia ca fiind Bilanț .

• După aceea, rulați codul așa cum se arată în Metoda 1 .
• Astfel, se va adăuga o nouă foaie Bilanț înainte de foaia numită Profit .

Citește mai mult: Excel VBA pentru a adăuga foaie cu nume de variabilă (5 exemple ideale)

3. Utilizarea Excel VBA pentru a adăuga o foaie cu nume după o anumită foaie

În această metodă, vom adăuga o foaie după foaia numită Profit Să vedem procesul în detaliu.

📌 Pași:

• La început, aduceți codul Modul așa cum se arată în Metoda 1 .
• După aceea, scrieți următorul cod.

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

Acest cod este aproape similar cu codul de Metoda 2 . doar, aici am folosit parametrul După mai degrabă decât Înainte de Deoarece dorim să adăugăm noua foaie după o anumită foaie.

• După aceea, rulați codul așa cum se arată în Metoda 1 .
• Astfel, se va adăuga o nouă foaie Depozit după foaia numită Profit .

Citește mai mult: Excel VBA pentru a adăuga o foaie dacă nu există (cu pași rapizi)

4. Inserarea foii cu nume la începutul registrului de lucru

În această secțiune, vom insera o foaie nouă la începutul unui registru de lucru în Excel folosind VBA Așa că, fără alte întârzieri, să vedem cum o facem.

📌 Pași:

• Inițial, aduceți codul Modul așa cum se arată în Metoda 1 .
• După aceea, scrieți următorul cod în acest fișier.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Profilul companiei" End Sub 

Aici, adăugăm noua foaie de lucru înainte de prima foaie a registrului de lucru. Aceasta înseamnă la începutul registrului de lucru. Ca urmare, acum este prima foaie. De asemenea, am numit foaia de lucru Profilul companiei .

• Apoi, rulați codul așa cum se arată în Metoda 1 .
• Prin urmare, se va adăuga o nouă foaie Profilul companiei la începutul registrului de lucru.

Citește mai mult: Macro Excel: Creați o foaie nouă și redenumiți-o (3 exemple ideale)

5. Utilizarea Excel VBA pentru a adăuga o foaie la sfârșitul unui registru de lucru

În această secțiune, vom adăugați o foaie după ultima foaie din registrul de lucru Permiteți-mi să vă demonstrez procesul de mai jos.

📌 Pași:

• În primul rând, deschideți codul Modul așa cum se arată în Metoda 1 .
• În al doilea rând, lipiți următorul cod în această pagină.

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

Defalcarea codului

• În primul rând, apelăm procedura Sub ca Sheet_End_Workbook.
• În continuare, folosim Add.Name pentru a denumi foaia nou creată. Vom crea această foaie după ultima foaie a registrului de lucru. Putem obține numărul ultimei foi din metoda Foi.Count În plus, am numit foaia Contul de profit și pierdere .

• După aceea, rulați codul așa cum se arată în Metoda 1 .
• Prin urmare, se va adăuga o nouă foaie Contul de profit și pierdere la sfârșitul caietului de lucru.

Citește mai mult: Crearea unui nou registru de lucru și salvarea utilizând VBA în Excel

6. Introducerea foilor multiple utilizând valoarea celulei prin Excel VBA

Pentru ultima metodă, vom adăuga mai multe foi în registrul de lucru cu numele dintr-un interval de celule folosind Excel VBA În plus, vom cere utilizatorului să introducă intervalul pentru a lua numele. Așadar, să ne uităm la pașii de mai jos.

📌 Pași:

• La început, deschideți codul Modul așa cum se arată în Metoda 1 .
• După aceea, copiați următorul cod și lipiți-l acolo.

 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 

Defalcarea codului

• În primul rând, apelăm procedura Sub ca Add_Multiple_Sheets_Using_Cell_Value.
• Apoi, definim tipurile de variabile.
• După aceea, folosim InputBox pentru a obține intervalul de date de la utilizator.
• În al patrulea rând, activăm foaia Raport de vânzări .
• Mai târziu, vom folosi un Pentru fiecare Următorul buclă pentru a trece prin intervalul de celule selectat, unul câte unul.
• În continuare, folosim Add.Name pentru a denumi foaia nou creată. Vom crea aceste foi după foaia activă Raport de vânzări a caietului de lucru.

• Acum, rulați codul așa cum se arată în Metoda 1 .
• Instantaneu, se va deschide Exceldemy se deschide caseta de introducere a datelor.
• Apoi, dați celulelor din tabelul B5:B9 în cutie.
• În cele din urmă, faceți clic pe OK .

• În cele din urmă, se va introduce cinci foile numite după valorile celulelor din B5:B9 Toate sunt după foaie. Raport de vânzări .

Concluzie

Acest articol oferă soluții simple și scurte pentru adăugarea de foi cu nume de către Excel VBA Nu uitați să descărcați Practică Vă mulțumim că ați citit acest articol, sperăm că v-a fost de ajutor. Vă rugăm să ne anunțați în secțiunea de comentarii dacă aveți întrebări sau sugestii. Vă rugăm să vizitați site-ul nostru web Exceldemy pentru a explora mai mult.