Jak wstawić tabele na następne x dni
Potrzebujesz arkuszy kalkulacyjnych z nazwiskami z datą? Jest to przydatne, na przykład, jeśli rejestrujesz dane z dnia na dzień i używasz osobnego arkusza roboczego dla każdego wpisu.
Jeśli chcesz zaoszczędzić sobie trudu samodzielnego tworzenia arkuszy i dodawania żądanych wartości dat, może ci pomóc makro. Poniższe makro definiuje liczbę arkuszy roboczych następujących po bieżącej dacie na podstawie bieżącej daty:
Sub FuegeTabellenEin ()
Dim liczba As Integer
Dim i jako liczba całkowita
Number = InputBox („Ile arkuszy do wstawienia?”)
Dla i = 1 Do liczby
Worksheets.Add after: = Worksheets (Worksheets.Count)
Arkusze (Worksheets.Count) .Name = Data + i
Dalej ja
Napis końcowy
Po uruchomieniu makra Excel wyświetla okno wprowadzania. W tym oknie możesz wpisać liczbę arkuszy, które chcesz utworzyć. Poniższa ilustracja pokazuje, jak wygląda to okno:
Wprowadź liczbę arkuszy, które chcesz tutaj. Zaczynając od bieżącej daty, Excel tworzy żądaną liczbę arkuszy kalkulacyjnych i podaje im bieżącą datę, datę następnego dnia i tak dalej. Poniższy rysunek pokazuje, jak może wyglądać wynik:
Wskazówka: Jeśli chcesz wiedzieć, jak wprowadzać i uruchamiać makra w Excelu, krótki opis znajdziesz tutaj: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- w-excel-ein.html