Redenumirea foilor în Excel se face din bara de activități de mai jos, foile de lucru sunt prezente făcând dublu clic pe ele, dar în VBA folosim Foi de calcul sau metoda de proprietate Foaie de lucru pentru a redenumi foaia, sintaxa pentru a redenumi o foaie în VBA este după cum urmează Foi („ Old Sheet Name "). Nume =" New Sheet name ".
Redenumiți foaia în Excel VBA
Cu toții am făcut această sarcină de a redenumi foaia de lucru conform identității noastre sau în funcție de comoditatea noastră, nu-i așa? Redenumirea nu este o știință a rachetelor de stăpânit, dar dacă sunteți programatorul VBA, atunci trebuie să cunoașteți această sarcină de redenumire a foii de lucru. Deoarece lucrăm cu foi de lucru folosind numele lor, este important să cunoaștem importanța numelor foilor de lucru în codificarea VBA. În acest articol, vă vom arăta cum să redenumiți foaia utilizând codarea Excel VBA.
Cum să redenumiți foaia în VBA?
Schimbarea numelui foii de lucru nu necesită abilități speciale. Trebuie doar să facem referire la numele fișei pe care o schimbăm, introducând numele de foaie existent.
De exemplu, dacă dorim să redenumim foaia denumită „Foaia 1”, atunci trebuie să apelăm foaia după numele acesteia folosind obiectul Foaie de lucru.
Fișe de lucru („Sheet1”)
După menționarea numelui foii, trebuie să selectăm proprietatea „Nume” pentru a redenumi numele foii de lucru.
Fișe de lucru („Sheet1”). Nume
Acum trebuie să setăm proprietatea Name la numele conform dorinței noastre.
Fișe de lucru („Sheet1”). Nume = „Nume nou”
Astfel, putem redenumi numele foii de lucru în VBA folosind proprietatea Name.
În următoarele secțiuni ale articolului, vă vom arăta din ce în ce mai multe exemple de modificare sau redenumire a foii de lucru.
Exemple de redenumire foi de lucru în Excel VBA
Mai jos sunt exemplele foii de redenumire VBA.
Puteți descărca acest șablon de foaie de redenumire VBA aici - Șablon de foaie de redenumire VBAExemplul # 1 - Schimbați sau redenumiți foaia folosind variabile VBA.
Pentru un exemplu, consultați exemplul de cod de mai jos.
Cod:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 
În primul cod de mai sus, am declarat variabila ca Foaie de lucru.
Dim Ws Ca foaie de lucru
Apoi, am setat referința la variabilă ca „Sheet1” folosind foile de lucru obiect.
Set Ws = Worksheets („Sheet1”)
Acum variabila „Ws” deține referința foii de lucru „Sheet1”.
Acum folosind variabila „Ws” am redenumit foaia de lucru ca „Foaie nouă”.
Acest cod va schimba numele „Sheet1” în „New Sheet”.
Dacă rulez codul manual sau prin intermediul tastei de comandă rapidă F5 atunci, din nou, vom primi eroarea Subscript Out of Range.
Motivul pentru care primim această eroare deoarece în pasul anterior în sine am schimbat deja foaia de lucru numită „Foaie1” în „Foaie nouă”. Deoarece nu mai există numele foii de lucru „Sheet1” nu este disponibil VBA aruncă această eroare.
Exemplul # 2 - Obțineți toate numele foilor de lucru într-o singură foaie.
Putem obține toate numele foilor de lucru ale registrului de lucru într-o singură foaie. Codul de mai jos va extrage toate numele foilor de lucru.
Cod:
Sub Renmae_Example2 () Dim Ws as Worksheet Dim LR Long for Each Ws in ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1). Selectați ActiveCell.Value = Ws.Name Next Ws End Sub 
Acest cod va extrage toate numele foilor de lucru disponibile în foaia denumită „Foaia principală”.
Exemplul # 3 - Setați numele permanent la foaia de lucru Excel folosind VBA
Deoarece lucrăm cu nume de foi în codare, este important să le setăm nume permanente. Cum le setăm nume permanente?
Pentru un exemplu, consultați codul de mai jos.
Cod:
Sub Rename_Example3 () Foi de lucru ("Sheet1"). Selectați End Sub 
Codul de mai sus va selecta Sheet1.
Dacă registrul dvs. de lucru este folosit de mulți oameni, dacă cineva a schimbat numele foii de lucru, atunci vom primi eroarea Subscript Out of Range.
Pentru a evita acest lucru, putem seta numele permanent. Pentru a seta numele permanent, urmați pașii de mai jos.
Pasul 1: Selectați foaia pe care trebuie să setăm numele permanent în Visual Basic Editor.
Pasul 2: Apăsați tasta F4 pentru a vedea fereastra Proprietăți.
Pasul 3: Sub Nume, proprietate Schimbați numele în „Nume nou”.
As you can see one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet”.
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window, we can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales”.
If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.
