Arkusz zmiany nazwy VBA - Jak zmienić nazwę arkusza w programie Excel za pomocą VBA?

• Zmień nazwę arkusza w programie Excel VBA

Zmień nazwę arkusza w programie Excel VBA

Zmiana nazwy dowolnego arkusza programu Excel jest tak prosta, jak zmiana nazwy dowolnego pliku. Można to zrobić, klikając dwukrotnie dowolną nazwę arkusza roboczego lub wybierając polecenie Zmień nazwę z listy menu po prawej stronie. Ale co, jeśli chcemy zmienić nazwę arkusza programu Excel za pomocą makra VBA. Za pomocą VBA Macro możemy zmienić nazwę jednego lub więcej arkuszy Excela w jednym ujęciu. Możemy nawet naprawić nazwę dowolnego arkusza roboczego, aby nikt go nie zmienił. Zobaczymy tutaj wiele sposobów na zmianę nazwy dowolnego arkusza.

Jak zmienić nazwę arkusza w programie Excel za pomocą VBA?

Poniżej znajdują się różne przykłady zmiany nazwy arkusza w programie Excel przy użyciu kodu VBA.

Możesz pobrać ten szablon arkusza zmiany nazwy arkusza VBA tutaj - Szablon arkusza zmiany nazwy arkusza VBA

Arkusz zmiany nazwy VBA - przykład nr 1

Chociaż bardzo łatwo jest zmienić nazwę dowolnego arkusza programu Excel za pomocą VBA. Można to zrobić na wiele sposobów. Tutaj nazwa naszego arkusza jest domyślnie ustawiona na „Arkusz1”, jak pokazano poniżej, którego nazwę zmienimy.

Krok 1: W tym przykładzie potrzebowalibyśmy modułu, w którym będziemy kodować. Przejdź do menu Wstaw i wybierz Moduł, jak pokazano poniżej.

Krok 2: Teraz w nowo otwartym module napisz podkategorię w nazwie arkusza zmiany nazwy VBA lub pod inną nazwą.

Kod:

 Sub VBA_RenameSheet () End Sub 

Krok 3: Teraz zdefiniuj zmienną o dowolnej nazwie i przypisz ją do typów danych arkusza roboczego, jak pokazano poniżej. Tutaj nazwaliśmy go „ Arkusz ”.

Kod:

 Sub VBA_RenameSheet () Dim Arkusz jako arkusz roboczy Koniec Sub 

Krok 4: Za pomocą polecenia Ustaw wybierz opcję Zmienna arkusza, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet () Dim Arkusz jako Arkusz zestawu arkuszy = Koniec Sub 

Krok 5: I wybierz arkusz, którego nazwę musimy zmienić za pomocą polecenia arkusza roboczego .

Kod:

 Sub VBA_RenameSheet () Dim Arkusz jako Arkusz Arkusz Ustaw Arkusz = Arkusze („Arkusz1”) Koniec Sub 

Krok 6: Teraz użyj funkcji Arkusz wraz z Nazwą i przypisz nazwę, której nazwę chcemy zmienić. Tutaj wybieramy „ Zmieniony arkusz ”.

Kod:

 Sub VBA_RenameSheet () Dim Arkusz jako zestaw arkuszy Arkusz = Arkusze („Arkusz1”) Arkusz.Name = „Zmieniono nazwę arkusza” Koniec Sub 

Krok 7: Teraz w końcu skompiluj kod i uruchom go, jeśli wystąpi błąd. Aby uruchomić kod, kliknij przycisk Odtwórz znajdujący się pod paskiem menu, jak pokazano poniżej. Zobaczymy, że nasz arkusz zostanie przemianowany z Sheet1 na Renamed Sheet, jak pokazano poniżej.

Arkusz zmiany nazwy VBA - przykład 2

W tym przykładzie zobaczymy znacznie łatwiejszy sposób na zmianę nazwy dowolnego arkusza za pomocą makra VBA. Do tego potrzebowalibyśmy innego świeżego modułu.

Krok 1: Otwórz moduł i napisz podkategorię Zmień nazwę VBA, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet1 () End Sub 

Krok 2: Wybierz arkusz, którego nazwę chcemy zmienić za pomocą funkcji Select . Tutaj nasz arkusz to Arkusz1 .

Kod:

 Sub VBA_RenameSheet1 () Arkusze („Arkusz1”) Wybierz End Sub 

Krok 3: W następnym wierszu rozważ funkcję Nazwa z wybranym arkuszem, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet1 () Arkusze („Arkusz1”). Wybierz Arkusze („Arkusz1”). Nazwa = End Sub 

Krok 4: Wybierz nazwę, którą chcemy nadać po zmianie nazwy arkusza. Wybieramy tę samą nazwę, co w przykładzie-1 jako „ Renamed Sheet ”

 Sub VBA_RenameSheet1 () Arkusze („Arkusz1”). Wybierz Arkusze („Arkusz1”). Nazwa = „Zmień nazwę arkusza” End Sub 

Krok 5: Ponownie skompiluj kod i uruchom go. Zobaczymy, że arkusz1 otrzyma nazwę zmienioną pod nową nazwą jako „Zmień nazwę arkusza ”.

Arkusz zmiany nazwy VBA - przykład nr 3

Jest jeszcze jeden podobny sposób zmiany nazwy arkusza programu Excel za pomocą VBA. To wyglądałoby trochę podobnie do procesu, który widzieliśmy w przykładzie 2, ale o wiele łatwiejsze do zapamiętania i przetworzenia.

Krok 1: Otwórz moduł i napisz nową podkategorię arkusza zmiany nazwy VBA, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet2 () End Sub 

Krok 2: Wybierz arkusz, którego nazwę chcemy zmienić. Tutaj możemy wybrać arkusz, umieszczając sekwencję arkusza w nawiasach, jak pokazano poniżej. Więc nie musimy wpisywać nazwy arkusza, aby zmienić jego nazwę. Działa tylko sekwencja tego arkusza.

Kod:

 Sub VBA_RenameSheet2 () Sheets (1) .Wybierz End Sub 

Krok 3: W następnym wierszu rozważ funkcję Nazwa z wybraną sekwencją arkuszy, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet2 () Sheets (1). Select Sheets (1) .Name = End Sub 

Krok 4: Teraz wprowadź nazwę, którą chcemy nadać wybranemu Arkuszowi1. Rozważmy nazwę, którą widzieliśmy w powyższych przykładach, jako „ Arkusz o zmienionej nazwie ”.

Kod:

 Sub VBA_RenameSheet2 () Sheets (1). Select Sheets (1) .Name = "przemianowany arkusz" End Sub 

Krok 5: Teraz ponownie skompiluj kod i uruchom. Zauważymy, że Arkusz1 został teraz ponownie przemianowany na „r enamed Sheet ”, jak pokazano poniżej.

Arkusz zmiany nazwy VBA - przykład 4

W tym przykładzie zobaczymy, jak zmienić nazwę dowolnego arkusza roboczego za pomocą tylko jednego wiersza kodu.

Krok 1: Otwórz moduł i napisz podkategorię arkusza zmiany nazwy VBA, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet3 () End Sub 

Krok 2: Wybierz sekwencję arkuszy, którą chcemy zmienić nazwę wraz z funkcją Nazwa i podaj nazwę, pod którą chcemy zmienić nazwę tego arkusza, jak pokazano poniżej.

Kod:

 Sub VBA_RenameSheet3 () Sheets (1) .Name = "rename Sheet" End Sub 

Krok 3: Teraz po prostu uruchom kod, aby go zaimplementować. Ponownie zobaczymy, że Arkusz 1 został teraz przemianowany na „ Zmień nazwę Arkusza ”

Plusy Excel VBA Zmień nazwę arkusza

• Jeśli mamy zmienić nazwę wielu arkuszy, użycie kodu VBA jest znacznie lepsze niż proces ręczny.
• Możemy zmienić nazwę dowolnego arkusza programu Excel za pomocą jednego wiersza kodu VBA, który widzieliśmy w przykładzie-4.
• Chociaż ręczna zmiana nazwy dowolnego arkusza jest również prostym sposobem na zrobienie tego. Ale zmiana nazwy arkusza VBA jest bardzo pomocna, gdy tworzymy nowy arkusz i chcemy go oddzielić od innych arkuszy, aby go skategoryzować.

Rzeczy do zapamiętania

• Aby uzyskać lepszy wgląd w zachodzące zmiany, ustaw okno VBA równolegle do arkusza programu Excel, aby zmiana nazwy arkusza była wyraźnie widoczna.
• Zapisanie pliku po zakończeniu pracy w formacie włączania makr pozwoli nam zachować kod również do przyszłej pracy.
• Automatyzacja procesu zmiany nazwy arkusza pomoże nam skrócić czas kategoryzacji arkuszy i danych.

Polecane artykuły

Jest to przewodnik po arkuszu zmiany nazwy VBA. Tutaj omawiamy, jak zmienić nazwę arkusza w programie Excel za pomocą kodu VBA wraz z kilkoma praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

1. Kompletny przewodnik do skoroszytu VBA
2. Funkcja POŚREDNIE w programie Excel
3. Samouczki na temat funkcji VBA Count
4. Jak korzystać z funkcji Excel XOR?