Kaip gauti lapų pavadinimus naudojant „VBA“ „Microsoft Excel“
Jei norite sužinoti būdą, kuriuo galite gauti visus matomus lapo pavadinimus, ty neslėptus.
Šiame straipsnyje mes sužinosime, kaip gauti tik matomų lapų pavadinimus naudojant VBA kodą.
Klausimas): Viename faile turiu kelis lapus ir paslėpiau lapus, kurių nenoriu, kad kiti matytų; Noriu kodo, kuris suteiktų man visų matomų lapų pavadinimus.
Tarkime, kad turime 5 lapus ir tyčia paslėpiame tam tikrą lapą.
Norėdami gauti matomų lapų pavadinimą, turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Nukopijuokite žemiau esantį kodą į standartinį modulį
Sub VisibleSheets ()
Dim i kaip sveikasis skaičius, j kaip sveikasis skaičius: j = 1
Ląstelės (1, 1). Dabartinė sritis. Ląstelės. Išvalyti
Jei i = 1 iki lakštų. Skaičiuoti
Jei skaičiuoklės (i) .Matomas = -1 Tada
Ląstelės (j, 1) = lakštai (i). Pavadinimas
j = j + 1
Pabaiga Jei
Kitas
Pabaiga Sub
- Pirmą kartą paleidę kodą, gausite visų esamo lapo lapų pavadinimus A stulpelyje
- Jei paslėpsime Jan lapą, turėsime šį lapų pavadinimų sąrašą
Tokiu būdu, naudojant vba kodą, galime gauti visų matomų lapų pavadinimus.
Atsisiųsti - Kaip gauti lapų pavadinimus naudojant vba - xlsm