Kaip sukurti ir pavadinti darbalapius remiantis sąrašu per „Excel“ makrokomandą

„Excel“ leidžia jums labai laisvai pritaikyti naudotojo patirtį naudodamiesi makrokomandomis .

Ši pamoka parodys, kaip sukurti ir pavadinti darbalapius naudojant esamą sąrašą per makrokomandą .

Sukurti darbalapius naudojant sąrašą „Excel“ makro

Šis kodas gali padėti automatiškai sukurti ir pervadinti darbalapius, remiantis kitame lape esančiu sąrašu:

 Sub CreateSheetsFromAList ()
„MyCell“ asortimentas, „MyRange As Range“
Nustatyti „MyRange“ = lapai („Santrauka“). „Range“ („A10“)
Nustatyti „MyRange“ = diapazonas („MyRange“, „MyRange.End“ (xlDown))
Kiekvienam „MyCell In MyRange“
Lapai.Pridėkite po: = Lakštai („Sheets.Count“) sukuria naują darbalapį
Lapai (Sheets.Count) .Name = MyCell.Value “pervardina naują darbo lapą
Kitas „MyCell“
Pabaiga

Vaizdas: © „Microsoft“.