Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическое проставление буквы Р в табеле макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое проставление буквы Р в табеле макросом (Макросы/Sub)
Автоматическое проставление буквы Р в табеле макросом
tvyur Дата: Четверг, 14.05.2020, 16:03 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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


tvyur

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

Автор - tvyur
Дата добавления - 14.05.2020 в 16:03
pechkin Дата: Пятница, 15.05.2020, 13:50 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 280
Репутация: 37 ±
Замечаний: 0% ±

2003
Здравствуйте! Пробуйте, может сгодится...
К сообщению приложен файл: _456.rar(87.0 Kb)


Сообщение отредактировал pechkin - Пятница, 15.05.2020, 14:27
 
Ответить
СообщениеЗдравствуйте! Пробуйте, может сгодится...

Автор - pechkin
Дата добавления - 15.05.2020 в 13:50
tvyur Дата: Воскресенье, 17.05.2020, 09:32 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
pechkin, Спасибо, вы даже не представляете как вы мне помогаете. У меня у каждого работника свой график работы, и это просто кошмар, делать все вручную безумно сложно. Но, дело в том, что при смене месяца макрос не меняет шал с нечётного на чётный и наоборот с чётного на нечётный, потому как в месяце разное количество дней. Может я хочу решить неразрешимую задачу? В Файле максимально подробно описала, чего хочу увидеть.
К сообщению приложен файл: _789_.xlsm(109.2 Kb)


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

Автор - tvyur
Дата добавления - 17.05.2020 в 09:32
Kuzmich Дата: Воскресенье, 17.05.2020, 10:25 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 485
Репутация: 98 ±
Замечаний: 0% ±

Excel 2003
А разве на планете вам не помогли?
https://www.planetaexcel.ru/forum....=128661
 
Ответить
СообщениеА разве на планете вам не помогли?
https://www.planetaexcel.ru/forum....=128661

Автор - Kuzmich
Дата добавления - 17.05.2020 в 10:25
tvyur Дата: Воскресенье, 17.05.2020, 11:51 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - tvyur
Дата добавления - 17.05.2020 в 11:51
Kuzmich Дата: Воскресенье, 17.05.2020, 21:44 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 485
Репутация: 98 ±
Замечаний: 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]
 
Ответить
Сообщение
Цитата
макрос не меняет чётные дни на нечётные в зависимости от месяца

Дата у вас в ячейке А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]

Автор - Kuzmich
Дата добавления - 17.05.2020 в 21:44
tvyur Дата: Понедельник, 18.05.2020, 08:56 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, огромное вам спасибо, но я не знаю, куда надо скопировать iMonth = Month(Range("A22")) iMonth = iMonth Mod 2 в тексте макроса. Признак в коде поменяла. Помогите правильно всё сделать, пожалуйста. Спасибо.
К сообщению приложен файл: 6203749.docm(13.4 Kb)


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

Автор - tvyur
Дата добавления - 18.05.2020 в 08:56
pechkin Дата: Понедельник, 18.05.2020, 09:35 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 280
Репутация: 37 ±
Замечаний: 0% ±

2003
Здравствуйте! С помощью Kuzmich получилось так. Проверяйте
К сообщению приложен файл: 123-.rar(88.0 Kb)
 
Ответить
СообщениеЗдравствуйте! С помощью Kuzmich получилось так. Проверяйте

Автор - pechkin
Дата добавления - 18.05.2020 в 09:35
tvyur Дата: Понедельник, 18.05.2020, 11:20 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
pechkin, Kuzmich, УРА!!!!!!!!!!!!!!!ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!!!ОГРОМНЫЙ ВАМ РЕСПЕКТ!!!!!!!!!!!!!! hands hands hands

Приезжайте в Крым на море!


tvyur
 
Ответить
Сообщениеpechkin, Kuzmich, УРА!!!!!!!!!!!!!!!ПОЛУЧИЛОСЬ!!!!!!!!!!!!!!!!!!ОГРОМНЫЙ ВАМ РЕСПЕКТ!!!!!!!!!!!!!! hands hands hands

Приезжайте в Крым на море!

Автор - tvyur
Дата добавления - 18.05.2020 в 11:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическое проставление буквы Р в табеле макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!