Jak zmienić nazwy arkuszy roboczych na podstawie wartości komórek w programie Excel?
Zmiana nazw arkuszy jest zwykle stosowana w naszej pracy w programie Excel, ale czy kiedykolwiek próbowałeś zmienić nazwy arkuszy na podstawie wartości komórek? Oczywiście możesz ręcznie zmienić nazwy arkuszy, ale tutaj ten samouczek przedstawia kilka sztuczek, które mogą szybko zmienić nazwy wielu arkuszy roboczych na podstawie wartości komórek, co może zaoszczędzić czas pracy.
Zmień nazwy arkuszy roboczych na podstawie określonej komórki za pomocą VBA
Zmień nazwy arkuszy roboczych na podstawie określonej komórki za pomocą opcji Zmień nazwę wielu arkuszy
Zmień nazwy arkuszy na podstawie zakresu zawartości komórek za pomocą opcji Zmień nazwę wielu arkuszy
Zmień nazwy arkuszy roboczych na podstawie określonej komórki za pomocą VBA
Za pomocą poniższego VBA możesz zmienić nazwę względnego arkusza roboczego na podstawie określonej komórki.
1. Wybierz komórkę, na podstawie której chcesz zmienić nazwę arkusza, w tym przypadku wybierz komórkę A1. Zobacz zrzut ekranu:
2. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
3. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego Moduł okno.
VBA: Zmień nazwy arkuszy roboczych na podstawie określonych wartości komórek.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
4. naciśnij F5 klucz do uruchomienia kodu VBA. Następnie wszystkie arkusze robocze zostały nazwane przez każdą względną wartość komórki A1.
Zmień nazwy arkuszy roboczych na podstawie określonej komórki za pomocą opcji Zmień nazwę wielu arkuszy
Jeśli Kutools dla programu Excel, nie musisz zapisywać kodu VBA, możesz użyć rozszerzenia Zmień nazwę wielu arkuszy roboczych funkcja, aby szybko zmienić nazwę całego arkusza na podstawie ich względnych komórek.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Włącz skoroszyt, dla którego chcesz zmienić nazwy jego arkuszy.
2. kliknij Kutools Plus > Ćwiczenie > Zmień nazwy arkuszy roboczych. Zobacz zrzut ekranu:
3. Następnie w wyskakującym oknie dialogowym zaznacz arkusze, których nazwy chcesz zmienić Szablony do nauki okienku i wybierz jeden z plików Zmień nazwę opcji potrzebujesz, tutaj zamienię nazwę arkusza, a następnie sprawdź Zmień nazwy arkuszy z określoną komórkąi wybierz komórkę, której nazwę chcesz zmienić. Zobacz zrzut ekranu:
4. kliknij Ok. Teraz nazwy arkuszy są zmieniane z określoną zawartością komórek.
Ale czasami potrzebna jest zmiana nazwy wielu arkuszy roboczych na podstawie zakresu wartości komórek, jak pokazano na poniższym zrzucie ekranu, w tym przypadku możesz wybrać poniżej metoda.
Zmień nazwy arkuszy na podstawie zakresu zawartości komórek za pomocą opcji Zmień nazwę wielu arkuszy
Z Zmień nazwę wielu arkuszy roboczych of Kutools dla programu Excel, możesz również zmienić nazwy arkuszy na podstawie wybranego zakresu.
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. kliknij Kutools Plus > Ćwiczenie > Zmień nazwy arkuszy roboczych. Zobacz zrzut ekranu:
2. w Zmień nazwę wielu arkuszy roboczych w oknie dialogowym, musisz określić następujące ustawienia:
(1) Wybierz arkusze, z których chcesz zmienić nazwę Lista arkuszy;
(2) Sprawdź Z określonego zakresu opcja i wybierz wartości komórek, na podstawie których chcesz zmienić nazwę;
(3) Określ plik Zmień nazwę opcji, możesz sprawdzić Wstaw przed oryginalną nazwą arkusza, Wstaw za oryginalną nazwą arkuszalub Zastąp oryginalną nazwę arkuszai możesz wyświetlić podgląd odpowiedniego wyniku w oknie dialogowym.
3. kliknij Ok, a następnie możesz zobaczyć, że wszystkie wybrane arkusze robocze zostały zmienione na podstawie określonych wartości komórek.
Zastąp oryginalną nazwę arkusza
Wstaw przed oryginalną nazwą arkusza
Wstaw za oryginalną nazwą arkusza
Dzięki narzędziu Rename Worksheets możesz także zmieniać nazwy arkuszy z określonym prefiksem lub sufiksem. Kliknij tutaj, aby dowiedzieć się więcej o zmianie nazwy wielu arkuszy roboczych.
Zmień nazwę wielu arkuszy na podstawie wartości komórek
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!