Создать сразу новые листы с датами на месяц

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Создать сразу новые листы с датами на месяц (Формулы/Formulas)

111rabotnik

Дата: Понедельник, 14.12.2015, 05:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте, помогите пожалуйста решить вопрос...Проблема в том что каждый месяц мне нужно создавать книгу ексель а вней в зависимости от количества дней в месяце столько и листов с датами...табличка абсолютно одинаковая на каждом листе...расскажите пожалуйста как это можно сделать...на каждом листе таже табличка что и на первом. Только листы со следующей датой на месяц сразу, примерно 30 листов...

К сообщению приложен файл: 4989166.xls (35.0 Kb)

Сообщение отредактировал 111rabotnik - Понедельник, 14.12.2015, 05:31

Ответить

_Boroda_ Дата: Понедельник, 14.12.2015, 09:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16907

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?

Sub tt() Application.ScreenUpdating = 0 sn_ = Sheets(1).Name n_ = Day(WorksheetFunction.EoMonth(CDate(sn_), 0)) For i = n_ To 2 Step -1 sn1_ = Format(i, "00") & Mid(sn_, 3, 8) Sheets(1).Copy After:=Sheets(1) Sheets(2).Name = sn1_ Next i End Sub

В файле макрос повесил на сочетание Контрл Шифт M (латинское)

К сообщению приложен файл: 4989166_1.xls (43.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

111rabotnik

Дата: Понедельник, 14.12.2015, 09:50 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Модератор:
Не нужно цитировать весь пост. Об этом есть в Правилах форума

Спасибо огромноее Boroda))))))есть несколько нюансов но меня устраивает))))а можно создавать листы по тексту ячеек?)))пишу текст в столбец любой и создаются листы с такими именами и таким количеством выделенных ячеек?))
В любом случае спасибо уже огромное Вам)))

К сообщению приложен файл: 8527512.xls (24.0 Kb)

Сообщение отредактировал 111rabotnik - Понедельник, 14.12.2015, 10:00

Ответить

_Boroda_ Дата: Понедельник, 14.12.2015, 10:32 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16907

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не понял вот этой фразы

Цитата 111rabotnik, 14.12.2015 в 09:50, в сообщении № 3 ( писал(а)):

таким количеством выделенных ячеек

Так?

Sub tt() Application.ScreenUpdating = 0 n_ = Selection.Count For i = n_ To 1 Step -1 sn_ = Selection(i).Text If sn_ <> "" Then On Error Resume Next Sheets(sn_).Select If Err.Number Then Sheets(1).Copy After:=Sheets(1) Sheets(2).Name = sn_ Err.Clear End If End If Next i End Sub

Или так?

Sub tt() Application.ScreenUpdating = 0 n_ = Selection.Count For i = 1 To n_ sn_ = Selection(i).Text If sn_ <> "" Then On Error Resume Next Sheets(sn_).Select If Err.Number Then Sheets.Add After:=Sheets(1) Sheets(2).Name = sn_ Sheets(1).Select Err.Clear End If End If Next i End Sub