Automatiškai sukurkite darbalapius naudodami makrokomandą

Turinys

Taip kuriate darbaknyges taip, kaip norite

Ar norite užtikrinti, kad lentelėje sukurtumėte visą eilę tuščių darbalapių ir pervadintumėte juos pagal savo pageidavimus?

Tai užtrunka daug laiko, jei tai darote rankiniu būdu. Lentelių pervadinimas rankiniu būdu užima ypač daug laiko.

Su makrokomandomis lengviau. Įveskite lentelės pavadinimą į lentelės sritį. Toliau pateikta iliustracija parodo, kaip tai gali atrodyti:

Tada sukurkite šią makrokomandą, kad sukurtumėte lenteles:

Sub FuegeBlaetterMithNamenEin ()
Pritemdyti sritį kaip eilutę
„Dim Cell“ kaip diapazonas
Pritemdyti lentelę kaip darbalapį
Plotas = "a1: a24"
Su „ActiveWorkbook“
Kiekvienai langai ActiveSheet.Range .Ląstelės
Nustatyti lentelę = .Sheets.Add (After: =. Sheets (Sheets.Count))
Lentelė. Pavadinimas = langelis. Tekstas
Kitas langelis
Pabaiga su
Pabaiga Sub

Įdėkite su kintamuoju srityje nustato, iš kurios lentelės srities paimti darbalapių pavadinimai.

Šiame paveikslėlyje parodyta darbaknygė, kurioje buvo sukurti 2010 ir 2011 m. Mėnesių lentelių pavadinimai:

Patarimas: Jei norite sužinoti, kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html

Padėsite svetainės plėtrą, dalintis puslapį su draugais

wave wave wave wave wave