Как создать листы в excel на весь год?

Пользователь

Сообщений: 3 Регистрация: 13.11.2016

13.11.2016 13:34:06

Добрый день. Недавно активно стал пользоваться Excel 2010 года.
Ситуация следующая: "Лист1" я переименовал на "01.01.2016", в этом листе существует таблица. Как мне создать 365 листов, то есть до конца этого года, чтобы в каждом следующем листе сохранилась эта таблица и каждый следующий лист был под датой следующего дня? (то есть если 1ый лист "01.01.2016" то следующий лист автоматом должен "02.01.2016 и т.д" .
Если это реально, прошу помогите решить проблему.
Спасибо!

Vik_tor Пользователь Сообщений: 2445 Регистрация: 19.09.2014	#2 13.11.2016 13:41:01 может полезно будет

gling

Пользователь

Сообщений: 4940 Регистрация: 01.01.1970

13.11.2016 13:46:39

Здравствуйте. Гораздо удобнее хранить данные в одной общей таблице и потом из неё выбирать нужные. Для обобщения данных за месяц, возникнет проблема, как собрать данные с разных листов, подумайте над этим. А для решения Вашей задачи. забейте в поиск "Создать листы по шаблону" или "Создать несколько листов" увидите массу вариантов.

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

13.11.2016 13:52:56

Вариант:

Код

Sub AddSheets()
Dim i As Long, dDate As Date
    Application.ScreenUpdating = False
    For i = 2 To 366
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = CDate(Sheets(i - 1).Name) + 1
    Next
    Application.ScreenUpdating = False
End Sub

Предполагается, что в книге всего один лист и называется он 01.01.2016

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 13.11.2016 13:55:32 А про таблицу я не прочитал )) Тогда не добавлять, а копировать первый ))

vatr15 Пользователь Сообщений: 3 Регистрация: 13.11.2016	#6 13.11.2016 13:58:10 Юрий М, огромное спасибо!!! Весь день по форумам искал! Для моего уровня это гениально)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

13.11.2016 14:00:25

Вот правильный вариант (с копированием листа). В первом варианте создавались новые листы )

Код

Sub AddSheets()
Dim i As Long, dDate As Date
    Application.ScreenUpdating = False
    For i = 2 To 366
'        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(1).Copy After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = CDate(Sheets(i - 1).Name) + 1
    Next
    Application.ScreenUpdating = False
End Sub

Читают тему