Jak uzyskać nazwy arkuszy za pomocą VBA w programie Microsoft Excel?
Jeśli chcesz znaleźć sposób, w jaki możesz uzyskać wszystkie nazwy arkusza, które są widoczne, tj. Nie są ukryte.
W tym artykule dowiemy się, jak uzyskać nazwy tylko widocznych arkuszy za pomocą kodu VBA.
Pytanie): Mam wiele arkuszy w jednym pliku i ukryłem arkusze, których nie chcę, aby inni widzieli; Potrzebuję kodu, który poda mi nazwy wszystkich widocznych arkuszy.
Załóżmy, że mamy 5 arkuszy i celowo ukrywamy konkretny arkusz.
Aby uzyskać nazwy widocznych arkuszy, musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Skopiuj poniższy kod w standardowym module
Widoczne arkusze podrzędne()
Dim i As Integer, j As Integer: j = 1
Komórki(1, 1).Bieżący region.Komórki.Wyczyść
Dla i = 1 do arkuszy. Liczba
Jeśli Arkusze(i).Widoczny = -1 Wtedy
Komórki(j, 1) = Arkusze(i).Nazwa
j = j + 1
Zakończ, jeśli
Następny
Napis końcowy
- Przy pierwszym uruchomieniu kodu otrzymasz nazwy wszystkich arkuszy w bieżącym arkuszu w kolumnie A
- Jeśli ukryjemy arkusz Jan, będziemy mieli następującą listę nazw arkuszy
W ten sposób możemy uzyskać nazwy wszystkich widocznych arkuszy za pomocą kodu vba.
Pobierz - Jak uzyskać nazwy arkuszy za pomocą vba - xlsm