Макросы VBA

Задача

Каждый день собрать данные из трёх файлов (лаборатория контроля и сваренные стыки) в форму отчёта и разослать по списку.

Решение

«Обновить СПК» находит данные за нужный день во всех файлах, заполняет форму и сохраняет на шару. «Отправить СПК» рассылает отчёт через Outlook с темой и подписью. «СПК с динамикой» раз в неделю собирает отчёты за 7 дней в сводный файл.

Результат

Час работы — 10 секунд. И это лишь один из десятков таких ежедневных отчётов.

Задача

Проверить все стыки в отчётах: размеры и материал, допуск сварщика, оптимальность клейма по проценту контроля.

Решение

Макрос забирает отчёты из папки, подгружает только нужное из базы сварщиков и журнала. Размеры и материал сверяются с журналом (зелёный — совпало, красный — нет, с подсказкой), клеймо — с допусками, а по % контроля предлагается оптимальное клеймо. В форме отмечаются правки, макрос ставит подпись проверяющего и сохраняет отчёт с перечнем изменений в имени файла.

Результат

Четыре часа проверки — один час.

Задача

Для каждого стыка наряд-задания подобрать сварщика с допуском на диаметр, толщину и материал — и так, чтобы не назначать лишний контроль на линии.

Решение

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

Результат

Четыре часа — пять минут, на выходе готовое наряд-задание с клеймами.

Задача

Проверить, что у каждого из 500 000 стыков журнала сварщик имел допуск на этот диаметр, толщину и материал на дату сварки.

Решение

Одна кнопка: импорт всего журнала и базы сварщиков, проверка каждого стыка, допуск есть — зелёный, нет — красный.

Результат

Месяц ручной проверки — 10 минут.

Задача

Найти в журнале стыки без технологической карты и проставить каждому подходящую.

Решение

Макрос работает прямо в журнале: импортирует перечень техкарт, находит стыки без карты и подбирает её по материалу, диаметру, толщине и способу сварки.

Результат

Час работы — одна минута.