Доброго времени суток. Столкнулся со следующей проблемой. Необходимо сделать график выходов на большое количество сотрудников, а забивать ручками сами понимаете накладно. Можно ли сделать эту работу автоматической с помощью именованных диапазонов или макросом? В примере два листа и в каждом прописано конкретно что нужно сделать. Заранее спасибо всем кто откликнется.
Доброго времени суток. Столкнулся со следующей проблемой. Необходимо сделать график выходов на большое количество сотрудников, а забивать ручками сами понимаете накладно. Можно ли сделать эту работу автоматической с помощью именованных диапазонов или макросом? В примере два листа и в каждом прописано конкретно что нужно сделать. Заранее спасибо всем кто откликнется.Jester
Ну а в итоге-то что должно быть? Графики рабочих дублировать графики мастеров? Или я не так понял?
В итоге должно получиться если в планировании я выбираю допустим бригаду Сидорова (лист 2), то при запуске макроса автоматически заполняется график ему и его подчиненным.
Ну а в итоге-то что должно быть? Графики рабочих дублировать графики мастеров? Или я не так понял?
В итоге должно получиться если в планировании я выбираю допустим бригаду Сидорова (лист 2), то при запуске макроса автоматически заполняется график ему и его подчиненным.Jester
А тупо скопировать листы, сделать по кол-ву месяцев в году, нельзя? Какие данные меняются на листах?
Нет нельзя. Меняется сам график. Можно записать макрос копирования каждой строки графика, но если я сделаю это на 200 человек то смогу работать с таким только дома. А где Вы видели желающих делать работу на дому? На работе компьютер слабый он помрет сразу. К тому же есть еще одна загвоздка. Численность меняется чуть ли не каждый месяц и нужно или удалять людей или добавлять.
А тупо скопировать листы, сделать по кол-ву месяцев в году, нельзя? Какие данные меняются на листах?
Нет нельзя. Меняется сам график. Можно записать макрос копирования каждой строки графика, но если я сделаю это на 200 человек то смогу работать с таким только дома. А где Вы видели желающих делать работу на дому? На работе компьютер слабый он помрет сразу. К тому же есть еще одна загвоздка. Численность меняется чуть ли не каждый месяц и нужно или удалять людей или добавлять.Jester
Сообщение отредактировал Jester - Среда, 17.02.2016, 08:53
Так, а что там меняется? Цвета, цифры? Это нельзя сделать "условным форматированием" и формулами? Я например не понимаю зависимости, что и от чего должно меняться. Объясните подробнее, может даже короткий пример приведите, плиз. Так же сообщите, надо ли график сохранять за прошедшие дни, или можно "плясать" от СЕГОДНЯ?
Так, а что там меняется? Цвета, цифры? Это нельзя сделать "условным форматированием" и формулами? Я например не понимаю зависимости, что и от чего должно меняться. Объясните подробнее, может даже короткий пример приведите, плиз. Так же сообщите, надо ли график сохранять за прошедшие дни, или можно "плясать" от СЕГОДНЯ?IWI
Сообщение отредактировал IWI - Среда, 17.02.2016, 12:15
Прикрутил к Вашему файлу что у меня было. Посмотрите, подойдет?
Кнопка "Разнести график" на листе График. За основу берет цвета заливки ФИО мастеров на листе "план графика". Сверяет цвет заливки с Рабочий и вставляет соответствующий график из Мастера. Удаляет пустые строки на листе График при условии, что заливка где фио рабочего будет белая или "нет заливки"
При 3-х мастерах и 450 рабочих у меня разносит за 1 сек. (комп офисный, правда двухядерный)
Файл не прикрепляет. Сейчас с телефона выложу
Прикрутил к Вашему файлу что у меня было. Посмотрите, подойдет?
Кнопка "Разнести график" на листе График. За основу берет цвета заливки ФИО мастеров на листе "план графика". Сверяет цвет заливки с Рабочий и вставляет соответствующий график из Мастера. Удаляет пустые строки на листе График при условии, что заливка где фио рабочего будет белая или "нет заливки"
При 3-х мастерах и 450 рабочих у меня разносит за 1 сек. (комп офисный, правда двухядерный)
Файл не прикрепляет. Сейчас с телефона выложуdevilkurs
Прикрутил к Вашему файлу что у меня было. Посмотрите, подойдет?
Спасибо огромное. Это почти то, что нужно. А как сделать чтобы после заполнения убрать цвета, сохранив выделение цветом выходных дней? (условное форматирование). А еще лучше не по цвету а по фамилии мастера (фамилии планирую вынести напротив каждого рабочего вне границ печати)
Прикрутил к Вашему файлу что у меня было. Посмотрите, подойдет?
Спасибо огромное. Это почти то, что нужно. А как сделать чтобы после заполнения убрать цвета, сохранив выделение цветом выходных дней? (условное форматирование). А еще лучше не по цвету а по фамилии мастера (фамилии планирую вынести напротив каждого рабочего вне границ печати)Jester
Сообщение отредактировал Jester - Четверг, 18.02.2016, 09:53
Jester, вечер добрый. Определите в каком столбце будете ставить ФИО мастера. Если делать через ФИО мастера (устанавливаться будет из выпадающего списка напротив каждого рабочего), то цвет заливки вообще не нужен будет? Я думаю визуально будет удобнее если чисто на ФИО мастера цвет заливки будет стоять (можно через условное форматирование сделать)
Jester, вечер добрый. Определите в каком столбце будете ставить ФИО мастера. Если делать через ФИО мастера (устанавливаться будет из выпадающего списка напротив каждого рабочего), то цвет заливки вообще не нужен будет? Я думаю визуально будет удобнее если чисто на ФИО мастера цвет заливки будет стоять (можно через условное форматирование сделать)devilkurs
devilkurs, доброго времени суток. прикладываю файл, в котором расписано что да как. Файл конечно пожат и порезан до невозможности, но вроде бы изложил в нем как должно быть. и там есть Макрос2 посмотрите как работает. Мне надо так же, но желательно диапазоном. Чтобы я в черновике составил график, нажал на кнопку Заполнить или Разнести и все готово. Повторюсь график очень большой на 1100 строк и присутствуют пустые строки как разделение людей по бригадам или по назначению если хотите.
devilkurs, доброго времени суток. прикладываю файл, в котором расписано что да как. Файл конечно пожат и порезан до невозможности, но вроде бы изложил в нем как должно быть. и там есть Макрос2 посмотрите как работает. Мне надо так же, но желательно диапазоном. Чтобы я в черновике составил график, нажал на кнопку Заполнить или Разнести и все готово. Повторюсь график очень большой на 1100 строк и присутствуют пустые строки как разделение людей по бригадам или по назначению если хотите.Jester
Sub todaym() ' Дата Сегодня Макрос Range("Q1") = DateSerial(Year(Date), Month(Date), 1) End Sub Sub NextM() ' Следующий месяц Макрос Range("Q1") = DateAdd("m", 1, Range("Q1")) End Sub Sub Beform() ' Месяц ДО Макрос Range("Q1") = DateAdd("m", -1, Range("Q1")) End Sub
[/vba]
Я не совсем понял что Вы хотите: Макрос2 копирует некую строку и вставляет ее на лист График в выделенные диапазоны Я так понял: На листе Черновик какой будет график? Как сейчас? Т.е. в одной строке ФИО мастера и его график (только по графе смена(а часы?)). А на листе График будет уже разнесен график рабочих (с тремя графами Смена, часы и ....) напротив каждого Рабочего в столбце AQ будет указан ФИО Мастера. Таким образом надо будет пробежать по столбцу AQ и если есть совпадение по ФИО мастера, то вставить график смен с листа Черновик. Так?
Jester упростил макросы ваши: [vba]
Код
Sub todaym() ' Дата Сегодня Макрос Range("Q1") = DateSerial(Year(Date), Month(Date), 1) End Sub Sub NextM() ' Следующий месяц Макрос Range("Q1") = DateAdd("m", 1, Range("Q1")) End Sub Sub Beform() ' Месяц ДО Макрос Range("Q1") = DateAdd("m", -1, Range("Q1")) End Sub
[/vba]
Я не совсем понял что Вы хотите: Макрос2 копирует некую строку и вставляет ее на лист График в выделенные диапазоны Я так понял: На листе Черновик какой будет график? Как сейчас? Т.е. в одной строке ФИО мастера и его график (только по графе смена(а часы?)). А на листе График будет уже разнесен график рабочих (с тремя графами Смена, часы и ....) напротив каждого Рабочего в столбце AQ будет указан ФИО Мастера. Таким образом надо будет пробежать по столбцу AQ и если есть совпадение по ФИО мастера, то вставить график смен с листа Черновик. Так?devilkurs
в столбце AN поправил формулу на столбец AQ добавил выпадающий список на Листе График - кнопка Добавить сотрудника на листе Черновик - 2 кнопки Что исправить?
Jester Посмотрите.
в столбце AN поправил формулу на столбец AQ добавил выпадающий список на Листе График - кнопка Добавить сотрудника на листе Черновик - 2 кнопки Что исправить?devilkurs
devilkurs, вроде бы пока все. Сказать я счастлив - ничего не сказать. Вы мне очень сильно помогли. Осталось заполнить график и разобраться с часами. И попробую освоить Ваш код, чтобы смочь сделать что-то подобное. Очень-очень большое спасибо.
devilkurs, вроде бы пока все. Сказать я счастлив - ничего не сказать. Вы мне очень сильно помогли. Осталось заполнить график и разобраться с часами. И попробую освоить Ваш код, чтобы смочь сделать что-то подобное. Очень-очень большое спасибо.Jester