Автоматическое проставление буквы Р в табеле макросом

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

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

Автоматическое проставление буквы Р в табеле макросом (Макросы/Sub)

tvyur

Дата: Четверг, 14.05.2020, 16:03 | Сообщение № 1

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

Ранг: Участник

Сообщений: 70

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

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

Excel 2016

Добрый день. Помогите пожалуйста прописать макрос так, чтобы с его помощью автоматически в табеле проставлялась красным цветом буква "Р" (раб день). Файл прикладываю, в нём описано подробно.

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

tvyur

Сообщение отредактировал tvyur - Четверг, 14.05.2020, 20:35

Ответить

pechkin

Дата: Пятница, 15.05.2020, 13:50 | Сообщение № 2

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

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

Сообщений: 332

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

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

2003

Здравствуйте! Пробуйте, может сгодится...

К сообщению приложен файл: _456.rar (87.0 Kb)

Сообщение отредактировал pechkin - Пятница, 15.05.2020, 14:27

Ответить

tvyur

Дата: Воскресенье, 17.05.2020, 09:32 | Сообщение № 3

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

Ранг: Участник

Сообщений: 70

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

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

Excel 2016

pechkin, Спасибо, вы даже не представляете как вы мне помогаете. У меня у каждого работника свой график работы, и это просто кошмар, делать все вручную безумно сложно. Но, дело в том, что при смене месяца макрос не меняет шал с нечётного на чётный и наоборот с чётного на нечётный, потому как в месяце разное количество дней. Может я хочу решить неразрешимую задачу? В Файле максимально подробно описала, чего хочу увидеть.

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

tvyur

Ответить

Kuzmich

Дата: Воскресенье, 17.05.2020, 10:25 | Сообщение № 4

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

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

Сообщений: 713

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

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

Excel 2003

А разве на планете вам не помогли?
https://www.planetaexcel.ru/forum....=128661

Ответить

tvyur

Дата: Воскресенье, 17.05.2020, 11:51 | Сообщение № 5

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

Ранг: Участник

Сообщений: 70

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

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

Excel 2016

Kuzmich, да , очень помогли, но и тот макрос не меняет чётные дни на нечётные в зависимости от месяца, вот в этом и проблема.

tvyur

Ответить

Kuzmich

Дата: Воскресенье, 17.05.2020, 21:44 | Сообщение № 6

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

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

Сообщений: 713

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

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

Excel 2003

Цитата

макрос не меняет чётные дни на нечётные в зависимости от месяца

Дата у вас в ячейке А22, идея такая вычленяете из даты месяц берете по модулю 2
[vba]

Код

iMonth = Month(Range("A22"))
iMonth = iMonth Mod 2

[/vba]
Если месяц четный то будет 0, нечетный 1
Используете этот признак в коде
[vba]

Код

Cells(45, i + 6 * iMonth) = "Р"
Cells(45, i + 6 * iMonth).Font.Color = -16776961
Cells(46, i + 6 * iMonth) = "Р"
Cells(46, i + 6 * iMonth).Font.Color = -16776961
Cells(51, i).Offset(, 1 - iMonth) = "Р"
Cells(51, i).Offset(, 1 - iMonth).Font.Color = -16776961
Cells(52, i).Offset(, 1 - iMonth) = "Р"
Cells(52, i).Offset(, 1 - iMonth).Font.Color = -16776961
и т.д.

[/vba]

Ответить

tvyur

Дата: Понедельник, 18.05.2020, 08:56 | Сообщение № 7

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

Ранг: Участник

Сообщений: 70

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

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

Excel 2016

Kuzmich, огромное вам спасибо, но я не знаю, куда надо скопировать iMonth = Month(Range("A22")) iMonth = iMonth Mod 2 в тексте макроса. Признак в коде поменяла. Помогите правильно всё сделать, пожалуйста. Спасибо.

К сообщению приложен файл: 6203749.docm (13.4 Kb)

tvyur