Izmantojiet VBA makro, lai izveidotu jaunu darbgrāmatu, kurā ir tieši tik daudz darblapu, cik nepieciešams
Daudzos makro ir jāizveido jaunas darbgrāmatas, kas, piemēram, ir piepildītas ar noteiktu saturu. Svarīgs uzdevums šeit ir izveidot jaunu Excel darbgrāmatu, kurā ir tieši vēlamais izklājlapu skaits.
Šo darbu veic šāds makro. Tas izveido jaunu darbgrāmatu, kurā ir 31. darblapas. Šīs darblapas ir numurētas no 1 līdz 31. Šeit ir piemērotas VBA komandas:
Sub FuegeTabellenEin ()
Dim numurs kā vesels skaitlis
Dim i As Integer
Dim Mappe kā darbgrāmata
Skaitlis = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Iestatīt mapi = darbgrāmatas. Pievienot
Ja i = 1 uz Mappe.Worksheets.Count
Mape. Darblapas (i). Nosaukums = i
Tālāk i
Application.SheetsInNewWorkbook = numurs
Beigt apakš
Kad tas sākas, programma Excel parāda jaunu darbgrāmatu, kurā ir 31 darblapa. Nākamajā attēlā parādīts, kā tas izskatās lapu reģistrā:
Makro norādiet vajadzīgo darblapu skaitu, izmantojot skaitli 31. Mainiet šo skaitli, ja vēlaties, lai darbgrāmatā būtu mazāk vai vairāk darblapu.
Lai ievadītu makro, programmā Excel nospiediet ALT F11, lai atvērtu VBA redaktoru. Izmantojiet komandu INSERT - MODULE, lai ievietotu tukšu moduļa lapu. Lai makro sāktu tieši no programmas Excel, izmantojiet taustiņu kombināciju ALT F8.