Szybkie wstawianie nazwanego arkusza

Szef polecił Ci przygotowanie półrocznego podsumowania obrotów z uwzględnieniem wszystkich oddziałów firmy. Cały raport będzie się składał z kilkudziesięciu identycznych zestawień znajdujących się w oddzielnych arkuszach. Rozpoczynasz więc przygotowywanie kolejnych arkuszy... Wybierasz z menu Wstaw polecenie Arkusz. Następnie klikasz na etykiecie arkusza prawym przyciskiem myszy i z menu podręcznego wybierasz Zmień nazwę. Wpisujesz... Stop! Chyba nie masz zamiaru powtarzać tych czynności 50 razy dla każdego oddziału z osobna? Zrób to dużo szybciej, korzystając z naszego triku!

Aby przyspieszyć wstawianie nowych arkuszy i każdorazowe nadawanie im nazwy, proponujemy Ci skorzystać z prostego makra, które będziesz uruchamiać za pomocą dowolnego skrótu klawiaturowego.

1. Otwórz skoroszyt, w którym mają znaleźć się nowe arkusze i wciśnij kombinację klawiszy lewy Alt + F11. Otworzy się Edytor VBA.

2. Z menu Insert wybierz polecenie Module i wpisz (przekopiuj) kod:

Sub WstawNazwanyArkusz()
Dim Nazwa As Variant
Nazwa = InputBox("Wpisz nazwę dla nowego arkusza:", "Nazwa nowego arkusza")
If Nazwa = "" Then GoTo brak Else Sheets.Add.Name = Nazwa
Exit Sub
brak:
Sheets.Add
End Sub

3. Zapisz i zamknij Edytor VBA.

4. Wciśnij na klawiaturze kombinację klawiszy lewy Alt + F8 lub z menu Narzędzia wybierz polecenie Makro/Makra... Pojawi się okno dialogowe Makro.

5. Zaznacz na liście WstawNazwanyArkusz i kliknij przycisk Opcje...

6. Jeśli kursor jest ustawiony w małym polu Klawisz skrótu, wciśnij na klawiaturze Shift + Q.

Uwaga
Przy nadawaniu skrótu klawiaturowego zachowaj ostrożność. Wybierz taką kombinację klawiszy, która domyślnie nie obsługuje często używanych przez Ciebie poleceń Excela (np. Kopiuj - Ctrl + C).

Rys. 1. Przypisanie makra do skrótu klawiaturowego

7. Kliknij OK i zamknij okno Makro.

Aby teraz wstawić nowy arkusz:

8. Wciśnij zdefiniowaną kombinację klawiszy.

9. W oknie dialogowym wpisz nazwę oddziału firmy i kliknij OK lub wciśnij na klawiaturze Enter.

Rys. 2. Szybkie nadawanie nazwy nowemu arkuszowi

Uwaga
Gdy nie wpiszesz nazwy dla nowego arkusza, Excel wstawi domyślną (np. Arkusz4).