VBA Zmiana nazwy arkusza

Zmiana nazwy arkusza w Excelu VBA

Zmiana nazwy dowolnego arkusza Excela jest równie łatwa, jak zmiana nazwy dowolnego pliku. Można to zrobić poprzez dwukrotne kliknięcie na dowolnej nazwie arkusza lub wybierając Zmień nazwę z prawej listy menu. Ale co zrobić, jeśli chcemy zmienić nazwę arkusza Excela za pomocą makra VBA. Z pomocą makra VBA, możemy zmienić nazwę jednego lub więcej niż jednego arkusza Excela w jednym ujęciu. Możemy nawet naprawić nazwę każdego arkusza, aby uniknąć zmiany przez nikogo. Tutaj zobaczymy, wiele sposobów, aby zmienić nazwę dowolnego arkusza.

How to Rename Sheet in Excel Using VBA?

Poniżej znajdują się różne przykłady, aby zmienić nazwę arkusza w Excelu za pomocą kodu VBA.

VBA Rename Sheet – Example #1

Although it is very easy to rename any excel worksheet with the help of VBA. Istnieje wiele sposobów, aby to zrobić, jak również. Tutaj, nazwa naszego arkusza jest domyślnie ustawiony jako „Sheet1”, jak pokazano poniżej, które będziemy renaming.

Krok 1: Dla tego przykładu, będziemy potrzebować modułu, gdzie będziemy robić kodowania. Przejdź do menu Wstaw i wybierz Moduł, jak pokazano poniżej.

Krok 2: Teraz w nowo otwartym Module, napisz podkategorię w nazwie VBA Zmiana nazwy Arkusza lub w dowolnej innej nazwie.

Kod:

Sub VBA_RenameSheet()End Sub

Krok 3: Teraz zdefiniuj zmienną o dowolnej nazwie i przypisz ją do typów danych Arkusza, jak pokazano poniżej. Tutaj nadaliśmy jej nazwę „Arkusz”.

Kod:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

Krok 4: Za pomocą polecenia Ustaw wybierz zmienną Arkusz, jak pokazano poniżej.

Kod:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet =End Sub

Krok 5: Wybierz arkusz, którego nazwę chcemy zmienić za pomocą polecenia Arkusz.

Kod:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")End Sub

Krok 6: Teraz użyj funkcji Arkusz wraz z Nazwa i nadaj nazwę, której nazwę chcemy zmienić. Tutaj wybieramy „Renamed Sheet”.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")Sheet.Name = "Renamed Sheet"End Sub

Krok 7: Teraz, na koniec, skompiluj kod i uruchom go, jeśli nie ma błędu. Aby uruchomić kod, kliknij na przycisk Odtwórz znajdujący się poniżej paska menu, jak pokazano poniżej. Zobaczymy, nasz arkusz zostanie przemianowany z Sheet1 na Renamed Sheet, jak pokazano poniżej.

VBA Zmiana nazwy arkusza – przykład #2

W tym przykładzie zobaczymy znacznie łatwiejszy sposób na zmianę nazwy dowolnego arkusza za pomocą makra VBA. Do tego będziemy potrzebować, inny świeży moduł.

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

Code:

Sub VBA_RenameSheet1()End Sub

Krok 2: Wybierz arkusz, którego nazwę chcemy zmienić za pomocą funkcji Select. W tym przypadku naszym arkuszem jest Arkusz1.

Kod:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectEnd Sub

Krok 3: W następnej linii rozważ funkcję Nazwa z wybranym arkuszem jak na rysunku poniżej.

Kod:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name =End Sub

Krok 4: Wybierz nazwę jaką chcemy nadać po zmianie nazwy arkusza. Wybieramy taką samą nazwę jak w przykładzie 1 jako „Renamed Sheet”

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name = "Renamed Sheet"End Sub

Krok 5: Ponownie skompiluj kod i uruchom go. Zobaczymy, że Arkusz1 otrzyma nową nazwę jako „Zmieniony Arkusz”.

VBA Zmiana Nazwy Arkusza – Przykład #3

Jest jeszcze jeden podobny sposób na zmianę nazwy arkusza Excela z pomocą VBA. Będzie to wyglądać trochę podobnie do procesu, który widzieliśmy w przykładzie 2, ale znacznie łatwiejsze do zapamiętania i przetwarzania.

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

Code:

Sub VBA_RenameSheet2()End Sub

Krok 2: Wybierz arkusz, którego nazwę chcemy zmienić. Tutaj możemy wybrać arkusz poprzez umieszczenie ciągu Arkusz w nawiasach, jak pokazano poniżej. Nie musimy więc wpisywać nazwy arkusza, którego nazwę chcemy zmienić. Tylko sekwencja tego arkusza będzie działać.

Kod:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Krok 3: W następnej linii, rozważ funkcję Nazwa z wybraną sekwencją arkusza, jak pokazano poniżej.

Kod:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(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”.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name = "renamed Sheet"End Sub

Krok 5: Teraz skompiluj kod ponownie i uruchom. Zauważymy, że nazwa Arkusza1 została ponownie zmieniona na „Arkusz o zmienionej nazwie”, jak pokazano poniżej.

VBA Zmiana nazwy arkusza – Przykład #4

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

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

Kod:

Sub VBA_RenameSheet3()End Sub

Krok 2: Wybierz sekwencję arkuszy, której nazwę chcemy zmienić wraz z funkcją Nazwa i nadaj nazwę, przez 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 wdrożyć. Ponownie zauważymy, że nazwa Arkusza1 jest teraz zmieniana jako „rename Sheet”

Pros of Excel VBA Rename Sheet

• Jeśli mamy wiele arkuszy do zmiany nazwy, to użycie kodu VBA jest znacznie lepsze niż proces ręczny.
• Możemy zmienić nazwę dowolnego arkusza Excela przez jedną linię kodu VBA, który widzieliśmy w przykładzie-4.
• Ale ręczna zmiana nazwy dowolnego arkusza jest również prosty sposób na zrobienie tego. Ale VBA Zmiana nazwy arkusza jest bardzo pomocne, gdy tworzymy nowy arkusz i chcemy oddzielić go od innych arkuszy tylko po to, aby go skategoryzować.

Rzeczy do zapamiętania

• Aby uzyskać lepszy widok na zachodzące zmiany, utrzymuj okno VBA równolegle do arkusza Excela, tak aby zmiana nazwy arkusza była widoczna wyraźnie.
• Zapisanie pliku po wykonaniu pracy w formacie Makro umożliwi nam zachowanie kodu również do przyszłej pracy.
• Automatyzacja procesu zmiany nazwy arkusza pomoże nam w skróceniu czasu kategoryzacji arkuszy i danych.

Zalecane artykuły

To jest przewodnik po VBA Rename Sheet. Tutaj omawiamy jak zmienić nazwę arkusza w Excelu za pomocą kodu VBA wraz z kilkoma praktycznymi przykładami i szablonem Excela do pobrania. Możesz również przejść przez nasze inne sugerowane artykuły –

1. VBA Workbook
2. VBA Nazwa Arkusza
3. VBA Unprotect Sheet
4. VBA Protect Sheet

.