ПРЕЗАСТР

1. Использование макросов Excel в проекте «Перестройка Мурино»

Авторы: Вяльшин Артур,
Стружинский Александр
Предмет: Информатика
2025 год

2. EXEL

Анализа данных
Управления информацией
Базы данных
Расчеты и формулы
Списки и каталоги
Статистика и отчеты
Планирование
и
учет
Финансовые модели
Автоматизации
Визуализации
Макросы (как наши)
Диаграммы и графики Шаблоны
Автоматические расчеты
Сводные таблицы

3. 1

• Графики
1

4. Цель проекта (макросов)

Создать набор макросов, которые помогут:
• Автоматизировать ввод данных по строительству
• Строить графики роста населения и инфраструктуры
• Анализировать динамику цен на жильё
• Формировать отчёты по кварталам

5. Макрос 1 – Добавления самих рабочих

• Описание: Макрос добавляет новых рабочих

6. Макрос 3 – Построение графика роста населения

Описание:
Создаёт линейный график на основе данных из таблицы.
Указывает диапазон данных, тип графика и заголовок.
Код VBA:
Sub CreatePopulationChart()
Dim chartObj As ChartObject
Set chartObj = ActiveSheet.ChartObjects.Add(Left:=300, Width:=400, Top:=50, Height:=250)
chartObj.Chart.ChartType = xlLine
chartObj.Chart.SetSourceData Source:=Range("A1:B10")
chartObj.Chart.HasTitle = True
chartObj.Chart.ChartTitle.Text = "Рост населения Мурино"
Поснение:
End Sub
Sub CreatePopulationChart(): Начало макроса.
Dim chartObj As ChartObject: Создаёт переменную для графика.
Set chartObj = ...: Создаёт график на листе Excel с заданными размерами и положением.
chartObj.Chart.ChartType = xlLine: Устанавливает тип графика как “линейный”.
chartObj.Chart.SetSourceData ...: Указывает диапазон ячеек A1:B10 как источник данных для графика. Важно: убедитесь, что в этом диапазоне
содержатся данные (годы и численность населения).
chartObj.Chart.HasTitle = True: Добавляет заголовок к графику.
chartObj.Chart.ChartTitle.Text = ...: Устанавливает заголовок графика.

7. Макрос 4 – Создание квартального отчёта

Описание:
Добавляет новый лист в книгу Excel.
Переименовывает лист, добавляя текущую дату в имя.
Заполняет первые три ячейки первой строки заголовками: “Квартал”, “Количество построек”, “Общая площадь”.
Выводит сообщение об успешном создании отчёта.
Код VBA:
Sub CreateQuarterReport()
Sheets.Add.Name = "Отчёт_" & Format(Date, "YYYY_MM_DD")
Cells(1, 1).Value = "Квартал"
Cells(1, 2).Value = "Количество построек"
Cells(1, 3).Value = "Общая площадь"
MsgBox "Отчёт успешно создан!", vbInformation
End Sub
Sub CreateQuarterReport(): Начало макроса.
Sheets.Add.Name = ...: Добавляет новый лист и присваивает ему имя “Отчёт_” + текущая дата.
Cells(1, 1).Value = ...: Записывает текст “Квартал” в ячейку A1 (первая строка, первый столбец).
Cells(1, 2).Value = ...: Записывает текст “Количество построек” в ячейку B1 (первая строка, второй столбец).
Cells(1, 3).Value = ...: Записывает текст “Общая площадь” в ячейку C1 (первая строка, третий столбец).
MsgBox ...: Выводит сообщение об успешном создании отчёта.

8. Вывод

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