Создание листов, соответствующих рабочим дням (без выходных)

@Greysis · Регистрация: 25.11.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Необходимо написать макрос,который бы создавал листы,у которых имя соответствует РАБОЧЕМУ дню в месяце и так на весь месяц. т.е. нужно чтобы листы с именем выходного дня не создавались.Возможно ли это?

~~Остап Бонд~~ · 29.03.2018, 09:04

Visual Basic

Sub WorkDaySheets()
Dim d As Date
d = Date
d = DateSerial(Year(d), Month(d), 1)
For d = d To DateAdd("M", 1, d) - 1
  If Weekday(d, 2) < 6 Then
    On Error Resume Next
    Worksheets.Add.Name = d
    If Err Then
      MsgBox d & " уже в наличии.", , "Перестарались!"
      Application.DisplayAlerts = False
      ActiveSheet.Delete
      Application.DisplayAlerts = True
    End If
  End If
Next d
End Sub

@Казанский · 29.03.2018, 09:09

Greysis, для текущего месяца

Visual Basic

Sub bb()
Dim d As Date
  Application.ScreenUpdating = False
  For d = DateSerial(Year(Now), Month(Now) + 1, 0) To DateSerial(Year(Now), Month(Now), 1) Step -1
    If Weekday(d, vbMonday) < 6 Then Worksheets.Add(ActiveSheet).Name = Format(d, "Short Date")
  Next
  Application.ScreenUpdating = True
End Sub

Не по теме:

опоздал :)

@Vlad999 · 29.03.2018, 09:10

Остап Бонд, а как же выходные среди недели? праздничные

@Greysis · 29.03.2018, 09:35 **[ТС]**

Сообщение от Казанский

Format

Ругается здесь

Добавлено через 2 минуты
и еще,они создаются справа налево,а надо наоброт

~~Остап Бонд~~ · 29.03.2018, 09:40

Greysis, кнопку F1 на слове Add нажать попробуйте.
Параметры Before и After как раз про это.

@Greysis · 29.03.2018, 09:48 **[ТС]**

Сообщение от Остап Бонд

Before и After

Пробовал,но если писать следующее

PureBasic

1	After:=Worksheets(Worksheets.Count)

он снова на меня ругается...у меня получалось либо добавить лист в конец(без имени),либо с именем,но в начало,а мне надо и с именем и в конец

Добавлено через 3 минуты

Сообщение от Остап Бонд

Параметры Before и After как раз про это.

прошу прощения,я просто не правильно прописывал,разобрался с этим,осталось только выяснить,как без года название вывести)

~~Остап Бонд~~ · 29.03.2018, 09:54

Сообщение от Greysis

как без года название вывести

Visual Basic

1	Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Format(d, "DD.MM")

@Greysis · 29.03.2018, 09:57 **[ТС]**

Сообщение от Остап Бонд

.Name = Format(d, "DD.MM")

он у меня снова ругается на Format

~~Остап Бонд~~ · 29.03.2018, 10:06

Попробуйте такое (скорее всего кто-то очень умный написал в Вашем проекте свой Format)

Visual Basic

1	VBA.Strings.Format$(d, "DD.MM")

@Greysis · 29.03.2018, 10:35 **[ТС]**

Сообщение от Остап Бонд

VBA.Strings.Format$(d, "DD.MM")

Спасибо,Все работает)

Добавлено через 22 минуты

Сообщение от Остап Бонд

OstaBander

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

~~Остап Бонд~~ · 29.03.2018, 10:47

Если хотите авансом насоздавать листов- вместо Month(d) укажите номер нужного месяца.

~~Остап Бонд~~ Заблокирован
	29.03.2018, 10:47	12
	Если хотите авансом насоздавать листов- вместо Month(d) укажите номер нужного месяца. 1

@Greysis 0 / 0 / 0 Регистрация: 25.11.2015 Сообщений: 121
		1
	Excel Создание листов, соответствующих рабочим дням (без выходных) 29.03.2018, 08:27. Показов 1007. Ответов 11 Метки нет (Все метки) Здравствуйте! Необходимо написать макрос,который бы создавал листы,у которых имя соответствует РАБОЧЕМУ дню в месяце и так на весь месяц. т.е. нужно чтобы листы с именем выходного дня не создавались.Возможно ли это? 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	29.03.2018, 09:10	4
	Остап Бонд, а как же выходные среди недели? праздничные 0

@Greysis 0 / 0 / 0 Регистрация: 25.11.2015 Сообщений: 121
	29.03.2018, 09:35 [ТС]	5
	Сообщение от Казанский Format Ругается здесь Добавлено через 2 минуты и еще,они создаются справа налево,а надо наоброт 0

~~Остап Бонд~~ Заблокирован
	29.03.2018, 09:40	6
	Greysis, кнопку F1 на слове Add нажать попробуйте. Параметры Before и After как раз про это. 1

@Greysis 0 / 0 / 0 Регистрация: 25.11.2015 Сообщений: 121
	29.03.2018, 09:57 [ТС]	9
	Сообщение от Остап Бонд .Name = Format(d, "DD.MM") он у меня снова ругается на Format 0

@Greysis 0 / 0 / 0 Регистрация: 25.11.2015 Сообщений: 121
	29.03.2018, 10:35 [ТС]	11
	Сообщение от Остап Бонд VBA.Strings.Format$(d, "DD.MM") Спасибо,Все работает) Добавлено через 22 минуты Сообщение от Остап Бонд OstaBander Последний вопрос. А что нужно будет изменить,когда нужно будет чтобы создавал листы следующего,последующего,...,и т.д. месяцев? 0

Создание листов, соответствующих рабочим дням (без выходных)

Решение