Прошу помощи или совета по обработке анкет. Подскажите, пожалуйста, либо какие-то формулы с условиями, либо макросы для подобной обработки.
Исходные данные: Множество анкет во вкладке "Report".
Задача: Вывести во вкладку "Лист1" к имеющемуся списку данные, отмеченные рыжим (оранжевым) цветом в анкете. Пример прилагаю.
Иными словами, есть список техники (Лист1), к нему необходимо подтянуть данные из Анкет (Report - только отмеченные цветом), анкеты будут постоянно обновляться, поэтому надо сделать так, чтобы Лист1 также обновлялся постоянно. Уникальным параметром для поиска и сопоставления является Серийный Номер машины, т.е. если серийный номер в Анкете совпадает с номером из списка на Листе1, то таблица заполняется. Ну, и еще подвопрос в правильном использовании функции "Флажок", чтобы галочки эти были как-то привязаны к ячейке.
Буду благодарен за любую помощь! Если нужны пояснения - спрашивайте.
Всем привет и с наступившим новым годом!
Прошу помощи или совета по обработке анкет. Подскажите, пожалуйста, либо какие-то формулы с условиями, либо макросы для подобной обработки.
Исходные данные: Множество анкет во вкладке "Report".
Задача: Вывести во вкладку "Лист1" к имеющемуся списку данные, отмеченные рыжим (оранжевым) цветом в анкете. Пример прилагаю.
Иными словами, есть список техники (Лист1), к нему необходимо подтянуть данные из Анкет (Report - только отмеченные цветом), анкеты будут постоянно обновляться, поэтому надо сделать так, чтобы Лист1 также обновлялся постоянно. Уникальным параметром для поиска и сопоставления является Серийный Номер машины, т.е. если серийный номер в Анкете совпадает с номером из списка на Листе1, то таблица заполняется. Ну, и еще подвопрос в правильном использовании функции "Флажок", чтобы галочки эти были как-то привязаны к ячейке.
Буду благодарен за любую помощь! Если нужны пояснения - спрашивайте.Dmitry_P
Если привязать чекбоксы к ячейкам (ПКМ по чекбоксу - Формат - Элемент управления - связь с ячейкой), то можно и формулами, но будет неимоверно "тормозить" Так что на VBA лучше делать (циклом по объектам, проверить каждый на наличие галки, вывести на Лист1 в нужном порядке)
Если привязать чекбоксы к ячейкам (ПКМ по чекбоксу - Формат - Элемент управления - связь с ячейкой), то можно и формулами, но будет неимоверно "тормозить" Так что на VBA лучше делать (циклом по объектам, проверить каждый на наличие галки, вывести на Лист1 в нужном порядке)Serge_007
Разобрался! Не сразу просто понял, что есть ПКМ)))
Тогда подскажи, пожалуйста, какая цепочка формул должна быть? Или хотя бы вообще какие формулы использовать? Как сделать так, чтобы при появлении новой анкеты таблица обновлялась автоматически? Я могу только одну анкету привязать к одной строке таблицы, но на все остальные протянуть просто не получится.
Разобрался! Не сразу просто понял, что есть ПКМ)))
Тогда подскажи, пожалуйста, какая цепочка формул должна быть? Или хотя бы вообще какие формулы использовать? Как сделать так, чтобы при появлении новой анкеты таблица обновлялась автоматически? Я могу только одну анкету привязать к одной строке таблицы, но на все остальные протянуть просто не получится.Dmitry_P
Сомнительно, шатко как-то... Вот пройдите пошагово: [vba]
Код
Sub tt() Dim el As Object For Each el In ActiveSheet.Shapes If el.Name Like "Check Box*" Then If el.DrawingObject.Value = 1 Then Range(el.TopLeftCell.Address).Offset(1).Select Debug.Print Range(el.TopLeftCell.Address).Offset(1).Value End If End If Next End Sub
[/vba] Чтоб было надёжно - думаю нужно каждый чекбокс связывать с ячейкой его значения. Например прописать её адрес хоть в Alternative Text например... Или правее привязанной ячейки. Вообще вся задумка большой геморрой....
Сомнительно, шатко как-то... Вот пройдите пошагово: [vba]
Код
Sub tt() Dim el As Object For Each el In ActiveSheet.Shapes If el.Name Like "Check Box*" Then If el.DrawingObject.Value = 1 Then Range(el.TopLeftCell.Address).Offset(1).Select Debug.Print Range(el.TopLeftCell.Address).Offset(1).Value End If End If Next End Sub
[/vba] Чтоб было надёжно - думаю нужно каждый чекбокс связывать с ячейкой его значения. Например прописать её адрес хоть в Alternative Text например... Или правее привязанной ячейки. Вообще вся задумка большой геморрой....Hugo
Вообще в Alternative Text можно сразу писать нужное возвращаемое значение. Т.е. идём циклом по объектам, если это отмеченный флажок - извлекаем это значение. Теперь задача определить координаты нужной "флажковой" области... Вот над этим нужно поработать кому-то... А если доработать связи с ячейками, рядом с которыми писать возвращаемые значения, и всех их разместить например в одной строке с очередным "MACHINE INFORMATION", то думаю можно сделать формулами.
Вообще в Alternative Text можно сразу писать нужное возвращаемое значение. Т.е. идём циклом по объектам, если это отмеченный флажок - извлекаем это значение. Теперь задача определить координаты нужной "флажковой" области... Вот над этим нужно поработать кому-то... А если доработать связи с ячейками, рядом с которыми писать возвращаемые значения, и всех их разместить например в одной строке с очередным "MACHINE INFORMATION", то думаю можно сделать формулами.Hugo
В качестве небольшого дополнения - прежде чем создать сообщение на любом форуме, крайне желательно почитать форум, хотя бы пару страниц, проникнуться его духом. Это наверняка избавит от большинства неприятных ситуаций.
В качестве небольшого дополнения - прежде чем создать сообщение на любом форуме, крайне желательно почитать форум, хотя бы пару страниц, проникнуться его духом. Это наверняка избавит от большинства неприятных ситуаций.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Уважаемые форумчане, если кто-то сможет дать некоторые пояснения по применению этих формул в моем случае, то кроссов не будет. Вы тут знатоки, а мне с полпинка сложновато прикинуть, как их применить... статья
Уважаемые форумчане, если кто-то сможет дать некоторые пояснения по применению этих формул в моем случае, то кроссов не будет. Вы тут знатоки, а мне с полпинка сложновато прикинуть, как их применить... статьяDmitry_P
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Приношу свои извинения, никого не хотел обидеть 
