Krok po kroku: Zmienianie nazwy arkusza programu Excel za pomocą zawartości komórki za pomocą makra

Ten artykuł został napisany przez Raddini Rahayu, microsoft MVP.

Sprawa

Poniżej znajdują się tygodniowe raporty aktywności sprzedaży. Na przykład w tym przypadku jest 15 osób. Administratorka anny przypisuje jej podsumowanie poszczególnych danych sprzedaży w jednym pliku, w którym wszystkie sprzedaż są rozdzielone w każdym arkuszu. Aby łatwo rozmieszczać dane, każdy arkusz, na który naała swoje imię i nazwisko, odpowiada nazwie sprzedaży w tym arkuszu. Na początku Iza dobrze się z tym czuje, ale gdy więcej danych i wymagań dotyczących szybkiego przetwarzania sprawia jej przytłaczanie. Aby to pokonać, Nancy chce, aby arkusze z nazwami zmieniały się automatycznie zgodnie z nazwą sprzedaży na każdym arkuszu bez ręcznego zmieniania nazwy.

błąd użytkownika

Rozwiązania

Najlepszymi rozwiązaniami tego problemu jest użycie makra. To makro zaprojektowano dla każdego arkusza w tym pliku, niezależnie od liczby arkuszy. Nazwa każdego arkusza zmieni się zgodnie z nazwą sprzedaży, która została określona w tym samym miejscu na każdym arkuszu.

Jak wykonać

Pierwszy krok

  • Projektowanie formatów raportów i określanie lokalizacji komórki, w której ma się znaleźć nazwa sprzedaży. W tym przypadku ta lokalizacja znajduje się w komórce J2. Ten format raportu powinien być taki sam w każdym arkuszu.

  • Zachowaj nazwę domyślną arkuszy (Arkusz1, Arkusz2, Arkusz3 itp.).

    pierwszy krok

Ostatni krok

Krok kodowania makr

Gdy poznamy lokalizację komórki, w której zostanie umieszczona nazwa sprzedaży, możemy przejść do następnego kroku, Kodowanie makrem.

  1. Na karcie Deweloper wybierz pozycję Visual Basic w kategorii Kod lub naciśnij kombinację klawiszy Alt+F11 na klawiaturze, aby wyświetlić okno języka Visual Basic.

    Zostanie wyświetlone okno Języka Visual Basic

  2. W oknie projektu okienko zadań pozycję Report.xlsx(Nazwa skoroszytu), a następnie w menu Wstaw wybierz polecenie Moduł i napisz następujący skrypt:

    Sub RenameSheet()
    
    Dim rs As Worksheet
    
    For Each rs In Sheets
    rs.Name = rs.Range("B5")
    Next rs
    
    End Sub
    

    pisanie skryptu

  3. Naciśnij klawisz F5 na klawiaturze, jeśli debugowanie nie zostanie otwarte, zamknij okno języka Visual Basic i powróć do programu Excel. Jeśli skrypt został debugowania, sprawdź ponownie swój skrypt.

  4. Wróć do programu Excel i zobacz, co się stanie, jeśli kody są poprawne, teraz nazwa każdego arkusza zostanie zmieniona zgodnie z nazwą sprzedaży istniejącą w każdym arkuszu. wynik skuteczny To wszystko. Mamy nadzieję, że będzie przydatna.

Zastrzeżenie dotyczące innych firm

Produkty innych firm omówione w tym artykule są wytwarzane przez producentów niezależnych od firmy Microsoft. Firma Microsoft nie udziela żadnych gwarancji, dorozumianych ani żadnego innego rodzaju, w odniesieniu do wydajności lub niezawodności tych produktów.