Excel VBA este un instrument puternic și la îndemână pentru a efectua sarcini destul de rapid într-o cantitate mare. Puteți aplica mai multe condiții și obține rezultate diferite pe baza condițiilor individuale prin VBA. Acum, uneori, este posibil să doriți să verificați dacă o anumită foaie există în registrul de lucru. Și, dacă nu, este posibil să fie nevoie să creați acea foaie. În acest articol, vă voi arăta toți pașii pentru a adăugați o foaie dacă nu există, utilizând Excel VBA.

Excel VBA: Adăugați o foaie dacă nu există (o vizualizare rapidă)

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Foaia ''" & addSheetName & _ "''' area fost adăugată deoarece nu exista.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

Introduceți într-un nou modul pentru a aplica codul de mai sus.

Descărcați caietul de practică

Puteți descărca gratuit caietul nostru de practică de aici!

Pași pentru a aplica codul VBA pentru a adăuga o foaie în Excel dacă nu există

Să zicem că aveți un registru de lucru care conține 4 foi de lucru numite ianuarie, februarie, martie și aprilie. Fiecare foaie conține raportul de vânzări din luna următoare. Acum, trebuie să găsiți câteva foi în registrul de lucru și să adăugați foaia dacă nu există. Puteți urma instrucțiunile pas cu pas de mai jos pentru a realiza acest lucru.

📌 Pasul 1: Introduceți un nou modul

În primul rând, trebuie să inserați un modul pentru a scrie cod VBA.

• Pentru a face acest lucru, la început, mergeți la rubrica Dezvoltator tab>> Visual Basic instrument.

• Ca urmare, se va Microsoft Visual Basic pentru aplicații va apărea o fereastră.
• Ulterior, mergeți la Introduceți tab>> Modul instrument.

Astfel, un nou modul numit Modul1 a fost creat.

Citește mai mult: Cum să adăugați foaie cu nume în Excel VBA (6 moduri simple)

Lecturi similare

• Crearea unui nou registru de lucru și salvarea utilizând VBA în Excel
• Excel VBA: Creați un nou registru de lucru și dați-i un nume (6 exemple)
• Cum să creați o foaie nouă din șablon utilizând macro în Excel

📌 Pasul 2: Scrieți și salvați codul VBA necesar

Acum, trebuie să scrieți codul în interiorul modulului și să îl salvați.

• Pentru a face acest lucru, faceți clic pe butonul Modul1 și scrieți următorul cod în fereastra de cod.

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Foaia ''" & addSheetName & _ "''' area fost adăugată deoarece nu exista.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End  Sub 

• Ca urmare, fereastra de cod va arăta după cum urmează.

🔎 Codul Explicație:

♣ Segmentul 1:

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

În această parte, am declarat numele macro și numele variabilelor.

♣ Segmentul 2:

 addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

În această parte, am creat o casetă de introducere a datelor. Prin intermediul acestei casete de introducere a datelor, putem introduce numele fișierului pe care trebuie să îl găsim.

♣ Segmentul 3:

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "Foaia ''" & addSheetName & _ "''' a fost adăugată deoarece nu exista.", _ vbInformation, "Add Sheet If Not Exist" 

În această parte, verificăm dacă foaia necesară există în registrul de lucru. În caz contrar, se va crea foaia necesară și se va afișa un mesaj despre această modificare.

♣ Segmentul 4:

 Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

În această parte, am lucrat cu rezultatul în cazul în care foaia necesară există deja în registrul de lucru. În acest scenariu, va apărea o altă casetă de mesaj care vă va informa că această foaie există. În plus, în această parte, încheiem codul în mod corespunzător.

• După aceea, apăsați Ctrl + S.

• Ulterior, un Microsoft Excel Faceți clic pe butonul Nu buton.

• Ca urmare, se va Salvați ca va apărea o fereastră.
• În continuare, alegeți opțiunea Salvați ca tip: opțiune ca .xlsm Ulterior, faceți clic pe butonul Salvați buton.

Astfel, ați scris și salvat codul necesar.

Notă:

Trebuie să salvați registrul de lucru Excel în .xlsm În caz contrar, macroul nu va fi activat și codul nu va funcționa.

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

📌 Pasul 3: Executați codul

Acum, trebuie să rulați codul și să verificați rezultatele.

• Pentru a face acest lucru, în primul rând, faceți clic pe butonul Rulați din fereastra Microsoft Visual Basic pentru aplicații fereastră.

• Ca urmare, se va Macros va apărea o fereastră.
• Ulterior, alegeți opțiunea AddSheetIfNotExist și faceți clic pe butonul Rulați buton.

• În acest moment, caseta de mesaje creată de noi, numită Adaugă foaie dacă nu există Aici, opțiunea automată ar fi Foaie5 .

• Acum, pentru verificare, scrieți "Aprilie" în caseta de text și faceți clic pe butonul Ok buton.

• Ulterior, veți vedea că va apărea o altă casetă de mesaj care vă va spune că foaia există deja.
• Faceți clic pe butonul Ok buton.

• După aceea, rulați din nou codul și scrieți "Mai" în căsuța de text a căsuței de mesaje create. Ulterior, faceți clic pe butonul OK buton.

• Ca urmare, veți vedea o altă casetă de mesaj care va apărea și care vă va informa că "Mai" nu exista și, prin urmare, a creat această foaie.
• În continuare, faceți clic pe butonul OK buton.

În cele din urmă, puteți vedea că ați adăugat o foaie care nu exista înainte. Și, registrul de lucru ar arăta astfel acum.

Citește mai mult: Excel VBA: Adăugați o foaie după ultima foaie (3 exemple ideale)

Concluzie

Deci, în acest articol, v-am arătat toți pașii pentru a adăuga o foaie dacă nu există cu Excel VBA. Parcurgeți cu atenție întregul articol pentru a-l înțelege mai bine și pentru a obține rezultatul dorit. Sper că ați găsit acest articol util și informativ. Dacă aveți întrebări sau recomandări suplimentare, nu ezitați să mă contactați.

Și, vizitați ExcelWIKI pentru multe alte articole ca acesta. Mulțumesc!