Kako dodati list z imenom v Excel VBA (6 preprostih načinov)

Hugh West

02-06-2023 Makroji in Excel VBA
  • Deliti To
Hugh West

V tem članku najdete odgovore na vprašanja o kako dodati list z imenom v Excelu VBA Če iščete takšne edinstvene trike, ste prišli na pravo mesto. 6 enostavno & amp; preizkušeni načini dodajanja lista z imenom v Excelu VBA .

Prenesi delovni zvezek za prakso

Za boljše razumevanje in vadbo lahko prenesete naslednji delovni zvezek programa Excel.

Dodajanje lista z imenom.xlsm

Koda VBA za dodajanje lista z imenom

Uporabili bomo Objekt Sheets za dodajanje lista v Excelu. VBA koda za dodajanje lista z imenom je podobna spodnji kodi.

Sheets.Add ([Before], [After], [Count], [Type])

Pred: To ni obvezno. Doda nov list pred določenim listom.

Po: Tudi ta možnost ni obvezna. Za določenim listom doda nov list.

Število: To je prav tako izbirni parameter. Označuje število listov, ki jih želite dodati.

Vrsta: Vključite se v sistem: Prav tako ni obvezen. Določa vrsto lista. Tukaj je privzeta vrednost xlWorksheet .

6 različnih načinov dodajanja listov z imenom v Excel VBA

V Excelu lahko dodamo nov list z ukazom dodaj ⊕ ikono tik ob imenu lista. Ste kdaj pomislili, da bi isto opravilo avtomatizirali v Excelu? Ne razmišljajte več, ker VBA vam je na voljo.

Tu imamo delovni list z imenom Poročilo o prodaji . Vsebuje Dnevno poročilo o prodaji neke kavarne. V stolpcih B , C in . D , obstajajo imena Prodajni predstavniki , Elementi in Količina oziroma.

Tu bomo dodali druge liste v tem delovnem zvezku s pomočjo Makro VBA .

Pri tem smo uporabili Microsoft Excel 365 različico, lahko uporabite katero koli drugo različico, ki vam ustreza.

1. Dodajanje lista z imenom v Excel VBA

V naši prvi metodi bomo dodali list z imenom iz vnos uporabnika . Če se želite naučiti kaj novega, sledite tem preprostim korakom.

📌 Koraki:

  • Na samem začetku pojdite v Razvijalec zavihek.
  • Drugič, izberite Visual Basic na Koda skupina.
  • Druga možnost je, da pritisnete ALT + F11 za isto nalogo.

Opomba: Prepričajte se, da ste pritisnili ALT tipko na levi strani SPACEBAR Operacija se ne bi izvedla, če bi uporabili druge ALT ključi.

  • Takoj se Microsoft Visual Basic za aplikacije odpre se okno.
  • Kasneje se premaknite v Vstavite zavihek.
  • Nato izberite Modul med možnostmi.

  • Trenutno se odpre koda Modul .
  • Nato napišite naslednjo kodo v 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

Razčlenitev kode

  • Najprej pokličemo postopek Sub kot Add_Sheet_with_Name .
  • Nato določimo vrste spremenljivk.
  • Pozneje smo dodali Ob napaki Nadaljuj naslednji Pri tem se ne upošteva nobenih napak.
  • Nato smo uporabili InputBox za pridobitev imena lista od uporabnika. Prav tako smo shranili besedilni niz iz InputBox v ime lista spremenljivka.
  • Nato, če je ime lista prazna, se koda ne bo nadaljevala.
  • Nazadnje uporabljamo Dodaj.Ime za poimenovanje novo ustvarjenega lista. Pri tem bo ime enako imenu ime lista spremenljivka.

  • V tem trenutku pritisnite Run (⏵) raje pritisnite ikono F5 na tipkovnici.

  • Nenadoma se odpre vnosno polje.
  • Tukaj vnesite ime novega lista. V tem primeru smo zapisali Dobiček v škatli.
  • Pozneje kliknite V REDU .

  • Naša koda se bo torej izvršila in dodala list z imenom Dobiček .

Opomba: Nismo navedli mesta za naš list. Privzeto je nameščen pred aktivnim listom.

Preberite več: Excel VBA za dodajanje listov v drugo delovno knjižico (3 priročni primeri)

2. Uporaba programa Excel VBA za dodajanje lista z imenom pred določenim listom

V našem drugem načinu bomo dodali list z imenom pred določenim listom. Preučimo postopek korak za korakom.

📌 Koraki:

  • Najprej prikažite kodo Modul okno, kot je prikazano v Metoda 1 .
  • Nato vanj vpišite naslednjo kodo. 
 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Poročilo o prodaji").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Bilanca stanja" End Sub

Razčlenitev kode

  • Najprej pokličemo postopek Sub kot Add_Sheet_Before_Specific_Sheet .
  • Nato aktiviramo Poročilo o prodaji To bo zagotovilo, da se bo koda zagnala, če smo na drugem listu.
  • Nato uporabimo Dodaj.Ime za poimenovanje novo ustvarjenega lista. Ta list bo ustvarjen pred listom z imenom Dobiček iz delovnega zvezka. Poleg tega smo list poimenovali kot Bilanca stanja .

  • Nato zaženite kodo, kot je prikazano v Metoda 1 .
  • Tako bo dodal nov list Bilanca stanja pred listom z imenom Dobiček .

Preberite več: Excel VBA za dodajanje lista z imenom spremenljivke (5 idealnih primerov)

3. Uporaba programa Excel VBA za dodajanje lista z imenom za določenim listom

V tej metodi bomo dodali list za listom z imenom Dobiček . Podrobno si oglejmo postopek.

📌 Koraki:

  • Najprej prikažite kodo Modul okno, kot je prikazano v Metoda 1 .
  • Nato vanj vpišite naslednjo kodo. 
 Sub Add_Sheet_After_Specific_Sheet() Delovni listi("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub

Ta koda je skoraj podobna kodi Metoda 2 . Samo, tukaj smo uporabili parameter Po spletni strani in ne Pred Ker želimo dodati nov list, ki bo nasledil določen list.

  • Nato zaženite kodo, kot je prikazano v Metoda 1 .
  • Tako bo dodal nov list Skladišče po listu z imenom Dobiček .

Preberite več: Excel VBA za dodajanje listov, če ne obstajajo (s hitrimi koraki)

4. Vstavljanje lista z imenom na začetek delovnega zvezka

V tem razdelku bomo vstavili nov list na začetek delovnega zvezka v Excelu z uporabo VBA . Zato si brez odlašanja oglejmo, kako to storimo.

📌 Koraki:

  • Najprej prikažite kodo Modul okno, kot je prikazano v Metoda 1 .
  • Nato vanj vpišite naslednjo kodo. 
 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Profil podjetja" End Sub

Tu dodajamo nov delovni list pred prvim listom delovnega zvezka. To pomeni na začetku delovnega zvezka. Zato je zdaj prvi list. Prav tako smo list poimenovali Profil podjetja .

  • Nato zaženite kodo, kot je prikazano v Metoda 1 .
  • Zato bo dodal nov list Profil podjetja na začetku delovnega zvezka.

Preberite več: Excelov makro: ustvarjanje novega lista in preimenovanje (3 idealni primeri)

5. Uporaba programa Excel VBA za dodajanje listov na koncu delovnega zvezka

V tem razdelku bomo dodajanje lista za zadnjim listom delovnega zvezka . Dovolite mi, da vam v nadaljevanju predstavim postopek.

📌 Koraki:

  • Predvsem odprite kodo Modul okno, kot je prikazano v Metoda 1 .
  • Nato vanj prilepite naslednjo kodo. 
 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Izkaz poslovnega izida" End Sub

Razčlenitev kode

  • Najprej kličemo postopek Sub kot Sheet_End_Workbook.
  • Nato uporabimo Dodaj.Ime Ta list bomo ustvarili za zadnjim listom delovnega zvezka. Številko zadnjega lista lahko dobimo iz Sheets.Count Poleg tega smo list poimenovali Izkaz poslovnega izida .

  • Nato zaženite kodo, kot je prikazano v Metoda 1 .
  • Zato bo dodal nov list Izkaz poslovnega izida na koncu delovnega zvezka.

Preberite več: Ustvarjanje novega delovnega zvezka in shranjevanje z uporabo VBA v Excelu

6. Predstavitev več listov z uporabo vrednosti celic z Excel VBA

Pri zadnji metodi bomo v delovni zvezek dodali več listov z imenom iz območja celic z uporabo programa Excel. VBA . Poleg tega bomo uporabnika prosili za vnos območja, iz katerega bo vzeto ime. Zato si oglejmo spodnje korake.

📌 Koraki:

  • Najprej odprite kodo Modul okno, kot je prikazano v Metoda 1 .
  • Nato kopirajte naslednjo kodo in jo prilepite vanj. 
 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

Razčlenitev kode

  • Najprej kličemo postopek Sub kot Add_Multiple_Sheets_Using_Cell_Value.
  • Nato določimo vrste spremenljivk.
  • Nato uporabimo InputBox da od uporabnika pridobi obseg podatkov.
  • Četrtič, aktiviramo list Poročilo o prodaji .
  • Kasneje uporabimo Za vsak naslednji zanko, da bi po vrsti pregledali izbrano območje celic.
  • Nato uporabimo Dodaj.Ime za poimenovanje novo ustvarjenega lista. Te liste bomo ustvarili po aktivnem listu Poročilo o prodaji delovnega zvezka.

  • Zdaj zaženite kodo, kot je prikazano v Metoda 1 .
  • Takoj se Odlično odpre se vnosno polje.
  • Nato vnesite celice v B5:B9 v polju.
  • Na koncu kliknite V REDU .

  • Na koncu vstavi pet listov, poimenovanih po vrednostih celic v B5:B9 obseg. Vsi so po listu Poročilo o prodaji .

Zaključek

Ta članek vsebuje preproste in kratke rešitve za dodajanje listov z imeni z Excelom VBA . Ne pozabite prenesti Praksa datoteka. Zahvaljujemo se vam za branje tega članka, upamo, da vam je bil v pomoč. Če imate kakršna koli vprašanja ali predloge, nam to sporočite v razdelku za komentarje. Obiščite našo spletno stran Odlično da bi raziskali več.

Prejšnja objava VBA za skrivanje vrstic v Excelu (14 metod)
Naslednja objava Kako namestiti Excelov list na eno stran v Wordu (3 preprosti načini)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.