Kā izveidot visu darblapu sarakstu aktīvajā darbgrāmatā, izmantojot VBA makro
Vai vēlaties izveidot visu aktīvās darbgrāmatas lapu tabulu? Izmantojiet šādu makro:
ApakšrunaTabulas lapas ()
Aptumšot rindu tik ilgi
Izkaltēt lapu kā darblapu
Aptumšot jaunu lapu kā darblapu
Iestatiet Neublatt = ActiveWorkbook.Worksheets.Add
Rinda = 1
Par katru lapu ActiveWorkbook. Darblapas
Ja lapa. Nosaukums Jauna lapa. Nosaukums Tad
Jauna lapa. Šūnas (1. rinda) = lapa. Nosaukums
Līnija = līnija + 1
Beigas Ja
Nākamā lapa
Beigt apakš
Makro izveido jaunu darblapu aktīvajā darbgrāmatā, kurā tiek saglabāti visu darblapu nosaukumi. No saraksta tiek izslēgta tikai jaunā pārskata lapa. Sekojošais attēls parāda, kā var izskatīties rezultāts:
Lai ievadītu makro, atveriet VBA redaktoru programmā Excel, izmantojot taustiņu kombināciju ALT F11. Šajā redaktorā atlasiet komandu INSERT - MODULE un ievadiet makro. Jūs sākat makro no Excel, izmantojot taustiņu kombināciju ALT F8.
