Всегда при открытии формы стоит "пн" следующей недели

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всегда при открытии формы стоит "пн" следующей недели (Формулы/Formulas)

Kongа

Дата: Пятница, 10.02.2017, 04:55 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 24

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

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

Excel 2013

Здравствуйте, подскажите, пожлауйста, у меня при открытии в форме автоматически выставляется сегодняшний день, можно ли чтобы отображался всегда "понедельник" следующей недели? То есть если сегодня 10.02.2017, то при открытии формы на этой неделе цифра стояла 13.02.2017 и т.д.
[vba]

Код

Private Sub UserForm_Initialize()
Me.TextBox1 = Format(Date, "dd.mm.yyyy")
End Sub

[/vba]

Ответить

K-SerJC

Дата: Пятница, 10.02.2017, 08:05 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Доброго дня!
вопрос в ветку "вопросы по vba" надо наверное
и файл с вашим примером было бы неплохо приложить

Благими намерениями выстелена дорога в АД.

Ответить

Nic70y

Дата: Пятница, 10.02.2017, 08:08 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

а если сегодня понедельник?

ЮMoney 41001841029809

Ответить

Kongа

Дата: Пятница, 10.02.2017, 08:23 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 24

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

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

Excel 2013

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

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

Сообщение отредактировал Kongа - Пятница, 10.02.2017, 08:24

Ответить

bmv98rus

Дата: Пятница, 10.02.2017, 08:29 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

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

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

Excel 2013/2016

Kongа,
Сперва ответьте для сея и нас на вопро Nic70y, а так по существу прибавить текущая дата + 8 - текущий день недели всегда будет понедельник следующей.

[vba]

Код

Me.TextBox1 = Format(Date + 8 - DatePart("w", Date, vbMonday), "dd.mm.yyyy")

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Пятница, 10.02.2017, 08:33

Ответить

Kongа

Дата: Пятница, 10.02.2017, 08:40 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 24

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

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

Excel 2013

bmv98rus, спасибо огромное и за статью тоже, всё работает как надо.

Ответить

Страница 1 из 1
1