Определяем день ( рабочий или выходной)

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определяем день ( рабочий или выходной) (Макросы/Sub)

cekist

Дата: Воскресенье, 17.09.2017, 23:10 | Сообщение № 1

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

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

Сообщений: 12

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

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

Excel 2013

Доброго времени суток! Возник вопрос как определить рабочие и выходные дни, при наличии столбца с датами (рабочие дни понедельник пятница, выходные соответственно суббота воскресенье).
Проблема также возникает и в том, что в разных файлах разное количество строк.
Возможно прописать в макросе VBA чтобы рядом с датой, в другом столбце автоматически указывало день недели и в соседнем выходной день или рабочий.
Большое спасибо за помощь!!!

К сообщению приложен файл: 5253740.xlsx (53.0 Kb)

Ответить

_Igor_61

Дата: Воскресенье, 17.09.2017, 23:50 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

Здравствуйте! А формулами можно?

К сообщению приложен файл: 7887989.xlsx (98.3 Kb)

Ответить

_Igor_61

Дата: Понедельник, 18.09.2017, 00:15 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 504

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

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

Excel 2007

Ну и те же формулы макросом записал

К сообщению приложен файл: 7962716.xlsm (68.4 Kb)

Ответить

Che79

Дата: Понедельник, 18.09.2017, 00:28 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 1649

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

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

2013 Win, 365 Mac

Цитата _Igor_61, 17.09.2017 в 23:50, в сообщении № 2 ()

А формулами можно?

Вариант

Код

=--(ДЕНЬНЕД(A2;2)>5)

+формат ячеек "Выходной";;"Рабочий"

PS
Вот это не сразу увидел

Цитата cekist, 17.09.2017 в 23:10, в сообщении № 1 ()

в другом столбце автоматически указывало день недели

Код

=--A2

и формат ДДД

Делай нормально и будет нормально!

Сообщение отредактировал Che79 - Понедельник, 18.09.2017, 00:37

Ответить

cekist

Дата: Понедельник, 25.09.2017, 22:24 | Сообщение № 5

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

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

Сообщений: 12

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

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

Excel 2013

Цитата _Igor_61, 18.09.2017 в 00:15, в сообщении № 3 ()

Ну и те же формулы макросом записал
К сообщению приложен файл: 7962716.xlsm(68Kb)

Добрый вечер . Макрос работает , однако возникла проблема . Поскольку он преобразовывает только первые 10000 ячеек . Возможно внести изменения в макрос , чтобы он работал с большим количеством ячеек. Спасибо !!!