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

Старая форма входа

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

Создать сразу новые листы с датами на месяц (Формулы/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

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

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

Сообщений: 16711

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

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

[/vba]
В файле макрос повесил на сочетание Контрл Шифт 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

[moder]Не нужно цитировать весь пост. Об этом есть в Правилах форума[/moder]
Спасибо огромноее Boroda))))))есть несколько нюансов но меня устраивает))))а можно создавать листы по тексту ячеек?)))пишу текст в столбец любой и создаются листы с такими именами и таким количеством выделенных ячеек?))
В любом случае спасибо уже огромное Вам)))

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

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

Ответить

_Boroda_

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

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

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

Сообщений: 16711

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

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

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

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

Так?
[vba]

Код

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

[/vba]
Или так?
[vba]

Код

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

[/vba]