Як вставити таблиці на наступні x днів
Вам потрібні електронні таблиці з іменами з датою? Це корисно, наприклад, якщо ви записуєте дані за день і використовуєте окремий аркуш для кожного запису.
Якщо ви хочете позбавити себе від створення власних аркушів та додавання бажаних значень дати, вам може допомогти макрос. Наступний макрос визначає кількість робочих листів, які слідують за поточною датою на основі поточної дати:
Sub FuegeTabellenEin ()
Яскраве число як ціле число
Dim i як ціле число
Number = InputBox ("Скільки аркушів вставити?")
Для i = 1 до числа
Робочі листи. Додати після: = Робочі аркуші (Робочі листи. Кількість)
Робочі листи (Worksheets.Count) .Name = Дата + i
Далі i
End Sub
Після запуску макросу програма Excel покаже вікно введення. У цьому вікні ви можете ввести кількість аркушів, які потрібно створити. Наступна ілюстрація показує, як виглядає це вікно:
Введіть тут потрібну кількість робочих аркушів. Починаючи з поточної дати, Excel потім створює потрібну кількість електронних таблиць і надає їм поточну дату, дату наступного дня тощо. Наступний малюнок показує, як може виглядати результат:
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, ви знайдете короткий опис тут: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
