Kaip sukurti visų aktyvios darbaknygės darbalapių sąrašą naudojant VBA makrokomandą
Ar norėtumėte sukurti visų aktyvios darbaknygės lapų lentelę? Naudokite šią makrokomandą:
Sub ShowTableleets ()
Dim Eilutė kaip ilgai
Apšviesti lapą kaip darbalapį
Pritemdyti naują lapą kaip darbalapį
Nustatykite Neublatt = ActiveWorkbook.Worksheets.Add
Eilė = 1
Už kiekvieną „ActiveWorkbook“ lapą. Darbo lapai
Jei lapas. Pavadinimas Naujas lapas. Pavadinimas Tada
Naujas lapas. Ląstelės (1 eilutė) = lapas. Pavadinimas
Linija = eilutė + 1
Pabaiga Jei
Kitas lapas
Pabaiga Sub
Makrokomanda sukuria naują darbalapį aktyvioje darbaknygėje, kurioje išsaugomi visų darbalapių pavadinimai. Iš sąrašo neįtraukiamas tik naujas apžvalgos lapas. Toliau pateiktame paveikslėlyje parodyta, kaip gali atrodyti rezultatas:
Norėdami įvesti makrokomandą, „Excel“ atidarykite VBA redaktorių naudodami klavišų kombinaciją ALT F11. Šiame redaktoriuje pasirinkite komandą INSERT - MODULE ir įveskite makrokomandą. Makrokomandą paleidžiate iš „Excel“ naudodami klavišų kombinaciją ALT F8.
