Programy z pakietu MS Office zostały stworzone w sposób przemyślany, a nie jest to tylko moje subiektywne odczucie, ponieważ rzeczywiście znacznie ułatwiają mi codzienną pracę. Ostatnio opublikowaliśmy artykuł dotyczący wstawiania filmów z YouTube w Office 2013, zauważając, że ta funkcjonalność nie była dostępna w MS Excel, ponieważ nie była tam potrzebna. To właśnie jest ta inteligencja, o której mówię – umiejętność rozpoznawania, które funkcje są istotne w danym programie. Dzięki temu niepotrzebne opcje nie zaśmiecają interfejsu. Mimo to zaskoczyło mnie, że chociaż Excel umożliwia dodawanie większej liczby wierszy do arkusza, nie daje możliwości wyboru, ile wierszy chcemy dodać. Można to obejść na kilka sposobów, na przykład wybierając istniejące wiersze do skopiowania, a następnie używając funkcji wstawiania. Można także wielokrotnie powtarzać proces dodawania. Choć jest to wykonalne, wykorzystanie prostego makra może zaoszczędzić czas.
Aby stworzyć makro, konieczne jest zapisanie pliku jako skoroszyt Excel z obsługą makr. W tym celu kliknij rozwijane menu „Zapisz jako typ” w oknie zapisywania i wybierz „Skoroszyt z włączoną obsługą programu Excel (*xlsm)”.
Następnie czas na napisanie makra. Przejdź do zakładki „Widok” i kliknij „Makra”, aby utworzyć nowe. Nadaj mu dowolną nazwę, a następnie kliknij „Utwórz”. Powinno otworzyć się nowe okno.
Ważne są dwie linie: „Sub” i „End Sub”. Linia „Sub” będzie zawierała nazwę Twojego makra, natomiast „End Sub” kończy polecenia w tym makrze. Ponieważ właśnie je stworzyłeś, pomiędzy tymi liniami nie powinno być żadnych innych poleceń, jak pokazano na zrzucie ekranu. Wklej poniższy kod pomiędzy te dwie linie.
Dim CurrentSheet As Object
' Przechodzimy przez wszystkie wybrane arkusze.
For Each CurrentSheet In ActiveWindow.SelectedSheets
' Wstawiamy 5 wierszy na górze każdego arkusza.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Ten fragment kodu wstawi pięć wierszy od samej góry arkusza, co jest oznaczone jako A1:A5. Aby dostosować go do swoich potrzeb, możesz zmienić ten zakres. Pierwsza wartość odnosi się do miejsca, w którym wiersze zostaną dodane. Jeżeli zmienisz go na A100, wiersze zostaną dodane po pierwszych dziewięćdziesięciu dziewięciu wierszach. Po ustaleniu punktu odniesienia musisz określić liczbę wierszy.
Numery wierszy są definiowane przez zakres komórek A1:A5, co oznacza, że wstawione zostanie pięć wierszy. Jeśli chcesz wstawić 25 wierszy zaczynając od A99, dodasz 25 do punktu odniesienia, co da A99 i minus jedną komórkę, czyli A100 + 99 – 1 = A198. Wartość zmienia się jedynie w zakresie wierszy, a litera kolumny pozostaje taka sama. Makro należy aktualizować za każdym razem, gdy chcesz wstawiać nowe wiersze, ale jest to niewielka zmiana, a cały proces działa naprawdę efektywnie, więc warto poświęcić na to czas.