Arkusz zmiany nazwy VBA

Zmiana nazw arkuszy w programie Excel odbywa się na pasku zadań poniżej arkusze robocze są dostępne przez dwukrotne kliknięcie na nich, ale w VBA używamy metody właściwości Arkusze lub Arkusz, aby zmienić nazwę arkusza, składnia zmiany nazwy arkusza w VBA jest następująca Arkusze („ Stara nazwa arkusza ”) .Nazwa =„ Nowa nazwa arkusza ”.

Zmień nazwę arkusza w Excel VBA

Wszyscy wykonaliśmy to zadanie polegające na zmianie nazwy arkusza zgodnie z naszą tożsamością lub według naszej wygody, prawda? Zmiana nazwy to nie fizyka jądrowa do opanowania, ale jeśli jesteś programistą VBA, musisz znać zadanie zmiany nazwy arkusza. Ponieważ pracujemy z arkuszami roboczymi, używając ich nazw, ważne jest, aby znać znaczenie nazw arkuszy w kodowaniu VBA. W tym artykule pokażemy, jak zmienić nazwę arkusza za pomocą kodowania Excel VBA.

Jak zmienić nazwę arkusza w VBA?

Zmiana nazwy arkusza nie wymaga żadnych specjalnych umiejętności. Musimy tylko odnieść się do nazwy arkusza, który zmieniamy, wprowadzając istniejącą nazwę arkusza.

Na przykład, jeśli chcemy zmienić nazwę arkusza o nazwie „Arkusz 1”, musimy wywołać arkusz według jego nazwy za pomocą obiektu Arkusz.

Arkusze („Arkusz1”)

Po podaniu nazwy arkusza musimy wybrać właściwość „Nazwa”, aby zmienić nazwę arkusza.

Arkusze robocze („Arkusz1”). Nazwa

Teraz musimy ustawić właściwość Name na nazwę zgodnie z naszym życzeniem.

Arkusze robocze („Arkusz1”). Nazwa = „Nowa nazwa”

W ten sposób możemy zmienić nazwę arkusza roboczego w VBA za pomocą właściwości Nazwa.

W kolejnych sekcjach artykułu pokażemy Ci coraz więcej przykładów zmiany lub zmiany nazwy arkusza.

Przykłady zmiany nazw arkuszy w Excel VBA

Poniżej znajdują się przykłady arkusza zmian nazwy VBA.

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

Przykład # 1 - Zmień lub zmień nazwę arkusza za pomocą zmiennych VBA.

Na przykład spójrz na poniższy przykładowy kod.

Kod:

 Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

W powyższym kodzie najpierw zadeklarowałem zmienną jako arkusz roboczy.

 Dim Ws As Worksheet

Następnie ustawiłem odwołanie do zmiennej jako „Arkusz1” za pomocą obiektu arkuszy roboczych.

 Ustaw Ws = Worksheets („Sheet1”)

Teraz zmienna „Ws” zawiera odniesienie do arkusza „Arkusz1”.

Teraz, używając zmiennej „Ws”, zmieniłem nazwę arkusza na „Nowy arkusz”.

Ten kod zmieni nazwę „Arkusz1” na „Nowy arkusz”.

Jeśli uruchomię kod ręcznie lub za pomocą klawisza skrótu F5, ponownie otrzymamy błąd poza zakresem indeksu.

Powód, dla którego otrzymujemy ten błąd, ponieważ w poprzednim kroku już zmieniliśmy arkusz o nazwie „Arkusz1” na „Nowy arkusz”. Ponieważ nie ma już nazwy arkusza roboczego „Arkusz1” nie jest dostępna, VBA zgłasza ten błąd.

Przykład # 2 - Zbierz wszystkie nazwy arkuszy roboczych w jednym arkuszu.

Możemy pobrać wszystkie nazwy skoroszytów w jednym arkuszu. Poniższy kod wyodrębni wszystkie nazwy arkuszy.

Kod:

 Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR As Long For each Ws In ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1). Wybierz ActiveCell.Value = Ws.Name Next Ws End Sub 

Ten kod wyodrębni wszystkie dostępne nazwy arkuszy do arkusza o nazwie „Arkusz główny”.

Przykład # 3 - Ustaw stałą nazwę w arkuszu programu Excel za pomocą VBA

Ponieważ podczas kodowania pracujemy z nazwami arkuszy, ważne jest, aby nadać im trwałe nazwy. Jak nadamy im trwałe nazwy?

Na przykład spójrz na poniższy kod.

Kod:

 Sub Rename_Example3 () Worksheets ("Sheet1"). Wybierz End Sub 

Powyższy kod wybierze Sheet1.

Jeśli Twój skoroszyt jest używany przez wiele osób, jeśli ktoś zmienił nazwę arkusza, otrzymamy błąd poza zakresem indeksu.

Aby tego uniknąć, możemy nadać mu stałą nazwę. Aby ustawić stałą nazwę, wykonaj poniższe czynności.

Krok 1: Wybierz arkusz, na który musimy ustawić stałą nazwę w Edytorze Visual Basic.

Krok 2: Naciśnij klawisz F4, aby wyświetlić okno Właściwości.

Krok 3: W części Nazwa, Właściwość Zmień nazwę na „Nowa nazwa”.

Jak widać, jedna nazwa jest wyświetlana jako „Arkusz1”, aw nawiasie, nowa nazwa jest wyświetlana jako „Nowy arkusz”.

Teraz podczas kodowania użyjemy nowej nazwy zamiast rzeczywistej widocznej nazwy.

Kod:

 Sub Rename_Example3 () NewSheet.Wybierz End Sub 

Teraz wróć do okna arkusza roboczego, nadal widzimy nazwę arkusza jako „Arkusz1”.

Teraz zmienię nazwę arkusza na „Sprzedaż”.

Jeśli uruchomię kod za pomocą klawisza F5 lub ręcznie, to nadal wybierze tylko arkusz o nazwie „Sprzedaż”. Ponieważ nadaliśmy mu stałą nazwę, nadal wybierze tylko ten sam arkusz.