Цитата:
Сообщение от Oscar
Программа называется "ИТМ"
|
Цитата:
Сообщение от sumy-mebel
мелкому предпринимателю
|
Вот и я о том же. Не у всех миллиардные обороты и не всем нужны массы отчётов. Т.е. купить громадного монстра для поднятия песчинки. Пока изучишь эту громадину и добьёшься от него требуемого, проще бывает в экселе сбацать формулу или макрос. Плюс независимость, плюс оперативность, плюс экономия денежных средств, плюс, если потом дорастёшь до ИТМ, лучше будешь соображать что там к чему.
Но это всё лирика на тему полезности данной темы. Вернёмся к нашим "баранам", а конкретно к примеру
sparkfire.
Опять же работаем самостоятельно. Во вложении файл с макросом, который находит в списке последнюю строку, переходит на строку ниже и вставляет туда скопированные зачения.
Вначале дополним данные, в В1 введём формулу = СЕГОДНЯ(), которая будет отображать текущую дату (сегодня 15.01.13, завтра в ней будет стоять 16.01.13 и т.д.)
Далее пишем макрос.
' Копируем наши данные за день
Range("B1:B11").Select
Selection.Copy
' Переходим в конец списка по столбцу "A" и смещаемся вниз на свободную ячейку
Range("A29").Activate
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
' Вставляем скопированное специальной вставкой с опциями только значения и транспонировать (т.е. значения столбца преобразуем в строку)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Присваиваем выполнение этого макроса нашей "волшебной кнопке". Жмём её для тестирования (несколько раз).
Работает!
Задание: Изучаем, пробуем подставлять разные данные в голубые ячейки, поменять системную дату, посмотреть, как реагирует на неё формула =СЕГОДНЯ(), самостоятельно оттестировать на своих данных.
Задание посложнее: Создать кнопку и написать к ней макрос, который
- копирует данные с нескольких листов (см. пример 5)
- располагает их друг за другом на листе "Отчёты за день" в последней строке списка
ПС: Обещанные диаграммы будут и даже их анализ следуют.
Обещанные конфетки осваивающим макросы
Как-то руководитель кострукторско-технологического отдела поручил мне помочь сотруднице (молодой и превлекательной
) в расчёте норм расхода на серию изделий.
Серия была такая нехилая. Модульная система. Десятка три конструкций и типоразмеров у каждой по ширине, глубине, высоте и в разных исполнениях: отделка такая, обивка сякая, фурнитура этакая плюс варианты по техпроцессу. Работа не сложная (плюсуй, перемножай, будь внимателен и аккуратен). Работала девушка в экселе. За три дня сделала процентов 20, но из-за монотонности, пошли ошибки (начотдела выборочно проверял), поэтому было принято решение процесс усилить и ускорить (верхнее руководство давило).
Расчёты по времени на эту работу начальник произвёл следующие. В 3 дня один делает 20%, значит вдвоём за три дня 40%, то есть через неделю, если поднажать и выйти в выходные, расчёты будут готовы. Ну там проверить, туда сюда - плюс пару дней. Итого через восемь дней вся цифирь должна была уйти наверх, о чём этому верху на планёрке и было доложено.
Нам выделили отдельный кабинет, дабы никто не шумел над ухом, освободили от текучки. Вперёд, родина вас не забудет!
...
В общем, день у меня ушёл на написание макроса, пол-дня на его отладку. (Кстати, девушка продолжала в это время монотонно долбить проект вручную). Макрос был запущен в конце дня на ночь, а с утра я своей коллеге показал полностью готовую работу.
Сравнивая результаты, находили ещё кучу ошибок в работе, проделанной моей симпатичной сотрудницей.
...
Точно в срок принеся готовую работу все сотрудники недоумённо косились на нас:
- А отчего это вы такие загорелые? От мониторов, что ли?