Automātiski izveidot darblapas, izmantojot makro

Satura rādītājs

Šādi jūs izveidojat darbgrāmatas, kā vēlaties

Vai vēlaties savā tabulā izveidot veselu virkni tukšu darblapu un pārdēvēt tās visas atbilstoši savām vēlmēm?

Tas prasa daudz laika, ja to darāt manuāli. Tabulu manuāla pārdēvēšana ir īpaši laikietilpīga.

Ar makro ir vieglāk. Ievadiet tabulu nosaukumus tabulas apgabalā. Sekojošā ilustrācija parāda, kā tas var izskatīties:

Pēc tam izsauciet šādu makro, lai izveidotu tabulas:

Sub FuegeBlaetterMithNamenEin ()
Aptumšojiet apgabalu kā virkni
Dim šūna kā diapazons
Tabulas aptumšošana kā darblapa
Platība = "a1: a24"
Ar ActiveWorkbook
Katrai ActiveSheet šūnai. Diapazons. Šūnas
Iestatīt tabulu = .Sheets.Add (Pēc: =. Sheets (Sheets.Count))
Tabula. Nosaukums = Šūna. Teksts
Nākamā šūna
Beigt ar
Beigt apakš

Ielieciet ar mainīgo apgabalā nosaka, no kura tabulas apgabala tiek ņemti darblapu nosaukumi.

Šajā attēlā parādīta darbgrāmata, kurā tika izveidoti 2010. un 2011. gada mēnešu tabulu nosaukumi:

Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html

Jums palīdzēs attīstību vietā, daloties lapu ar draugiem

wave wave wave wave wave