Kā izveidot un nosaukt darblapas, pamatojoties uz sarakstu, izmantojot Excel makro

Excel ļauj jums diezgan daudz brīvības pielāgot lietotāja pieredzi, izmantojot makro .

Šī apmācība parādīs, kā izveidot un nosaukt darblapas, izmantojot makro izmantojot esošo sarakstu .

Izveidojiet darblapas, izmantojot sarakstu, izmantojot Excel makro

Šis kods var palīdzēt jums automātiski izveidot un pārdēvēt darblapas, pamatojoties uz citu lapu sarakstu:

 Sub CreateSheetsFromAList ()
Dim MyCell kā diapazons, MyRange as Range
Iestatīt MyRange = Lapas ("Kopsavilkums") Diapazons ("A10")
Iestatīt MyRange = diapazons (MyRange, MyRange.End (xlDown))
Par katru MyCell In MyRange
Lapas.Pievienot pēc: = Loksnes (Sheets.Count) 'izveido jaunu darblapu
Lapas (Sheets.Count) .Name = MyCell.Value ”pārdēvē jauno darblapu
Nākamais MyCell
Beigt Sub