Excel макросы для учета

Полезные макросы Excel для автоматизации рутинной работы с примерами применения для разных задач.

Примеры макросов для автоматизации работы

Макросы для фильтра сводной таблицы в Excel.
Как автоматизировать фильтр в сводных таблицах с помощью макроса? Исходные коды макросов для фильтрации и скрытия столбцов в сводной таблице.

Макрос для создания сводной таблицы в Excel.
Как автоматически сгенерировать сводную таблицу с помощью макроса? Исходный код VBA для создания и настройки сводных таблиц на основе исходных данных.

Макросы для изменения формата ячеек в таблице Excel.
Как форматировать ячейки таблицы макросом? Изменение цвета шрифта, заливки и линий границ, выравнивание. Автоматическая настройка ширины столбцов и высоты строк по содержимому с помощью VBA-макроса.

Макрос для копирования и переименования листов Excel.
Как одновременно копировать и переименовывать большое количество листов одним кликом мышкой? Исходный код макроса, который умеет одновременно скопировать и переименовать любое количество листов.



Большинство малых и средних коммерческих организаций решают задачи учета материальных ценностей (товаров или продукции) с помощью приложения Microsoft Excel. В этой статье мы рассмотрим пример на данную тему из реальной практики. Выполненная автоматизация книги Microsoft Excel позволяет сократить число рутинных действий в офисной работе, а также обеспечить контроль возможных ошибок пользователя.

Рассмотрим достаточно стандартную ситуацию, когда наша организация занимается торговлей — закупкой товаров и последующей их продажей. В этом случае необходимо вести точный учет номенклатуры (количества товаров, цен поступления и продажи). Начнем нашу разработку с листа под названием Номенклатура (рис. 2.16). Этот лист играет роль регистра или справочника товаров. В каждой строке содержится информация о конкретной позиции номенклатуры (название товара, цена поступления, цена продажи, а также количество в наличии). Цель программной разработки заключается в создании листов управления, которые позволят корректировать количество товаров при их поступлении либо отгрузке, а также вносить изменения в цену товара. В целом автоматизированная книга должна предоставить удобный интерфейс для менеджеров. Этот интерфейс обеспечат два листа — Поступление и Отгрузка.

Напрямую работа с листом, показанным на рис. 2.16, нежелательна. Конечно, менеджер при поступлении либо продаже товаров может напрямую вносить в него данные. Например, при приходе новой партии стенок «Уют» в количестве 5 штук по новой цена 25 770 рублей можно просто скорректировать и количество единиц на складе, и цену поступления. Однако это и не очень удобно, и является «плацдармом» для возможных ошибок со стороны пользователя. Удобнее создать лист управления (рис. 2.17) с элементами, обеспечивающими удобный интерфейс. А сам лист Номенклатура далее мы скроем (эта возможность легко реализуется с помощью сервиса приложения Microsoft Excel), так что он будет недоступен напрямую для пользователя. Разумеется, после этого можно ввести защиту на структуру книги (с указанием пароля). В результате пользователи могут работать с листом Номенклатура только с помощью интерфейса, реализованного на других листах.

При поступлении товара, уже имеющегося на складе, но по новой цене, следует определиться с пересчетом цены поступления. Для определенности предположим, что в подобном случае в качестве цены поступления товаров устанавливается цена последней поставки.

Перейдем к детальному рассмотрению листа, представленного на рис. 2.17, который позволяет менеджеру в удобной форме внести новое поступление уже имеющегося товара, а также добавлять новые позиции номенклатуры.

Левая половина листа Поступление предназначена для новых поступлений товаров, которые уже имеются в информационной базе (на листе Номенклатура). Для этого элемент управления «Поле со списком» (расположен в районе ячейки A3) заполняется названиями товаров, присутствующими на листе Номенклатура. Это действие производится при открытии рабочей книги (текст необходимой для этого процедуры приведен в листинге 2.21). В программном коде предполагается, что в качестве значения свойства Name поля со списком выбрано Spk.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

' Листинг 2.21. Процедура, выполняемая при открытии книги
Private Sub Workbook_Open()
' Очистка списка
Worksheets("Поступление").Spk.Clear
' Подсчет количества товаров в информационной базе
N = 0
While Worksheets("Номенклатура").Cells(N + 2, 1).Value <> ""
    N = N + 1
Wend
' Заполнение списка
For i = 1 To N
    Worksheets("Поступление").Spk.AddItem Worksheets(3).Cells(i + 1, 1).Value
Next
Worksheets("Поступление").Spk.ListIndex = -1
End Sub

Когда пользователь выбирает название товара в поле со списком, то в ячейку С5 на листе Поступление заносится цена из соответствующей строки листа Номенклатура книги. Для этого процедуру, выполняемую при щелчке по элементу «Поле со списком», следует оформить так, как показано в листинге 2.22. В ней также нет ничего принципиально нового по сравнению с ранее рассмотренными примерами.

1
2
3
4
5

' Листинг 2.22. Процедура обработки щелчка на поле со списком
Private Sub Spk_Click()
Range("C5").Value = Worksheets(3).Cells(Spk.ListIndex + 2, 2).Value
Range("C6").Value = ""
End Sub

Теперь пользователь должен в ячейку C6 внести количество единиц нового поступления указанного товара. Для повышения защищенности от случайных действий мы разместили на листе еще поле для пароля. Это обыкновенное текстовое окно. Щелчок на кнопке Внести позволит обновить цену и количество товаров па листе Номенклатура только в случае правильного указания пароля. Для текстового окна установим следующие свойства:

• Name — Pass;
• PasswordChar — *.

Это обеспечит отображение «звездочек» при наборе пароля (набранное пользователем слово будет скрыто от посторонних глаз). Таким образом, мы подошли к написанию процедуры для внесения информации о новом поступлении (увеличении числа указанных товаров и возможном изменении цены) на третий лист. В листинге 2.23 приведена процедура, выполняемая при щелчке на кнопке Внести. В качестве пароля здесь рассматривается комбинация 357.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

' Листинг 2.23. Обработка щелчка на кнопке Внести
Private Sub CommandButton1_Click()
If Pass.Text = "327" Then
' Обновление цены поступления
Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 2).Value = Range("C5").Value
' Коррекция количества
Col = Range("C6").Value
Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 4).Value = _
Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 4).Value + Col
    MsgBox "Данные внесены"
    Pass.Text = ""
Else
    MsgBox "Ошибка пароля! Данные не внесены"
End If
End Sub

Здесь при введении пароля 357 процедура добавит на третий лист внесенное пользователем количество товара и скорректирует цену. После этого на экран выводится информационное сообщение о том, что данные внесены, и затем очищается поле пароля. При ошибочном пароле никаких изменений на листе Номенклатура не производится.

Перейдем теперь к рассмотрению правой части (в отличие от левой, она выделяется более темным оттенком) рис. 2.17. Этот фрагмент листа необходимо использовать для внесения нового товара (с указанием количества). В листинге 2.24 приведена процедура, которая выполняет данное функциональное действие в этом случае.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

' Листинг 2.24. Обработка щелчка на кнопке Внести новый товар
Private Sub CommandButton_Click()
' Подсчет числа внесенных товаров на листе Номенклатура
N = 0
While Worksheets("Nomen").Cells(N + 2, 1).Value <> ""
    N = N + 1
Wend
' Проверка пароля внесенного в правое текстовое поле
If Pass2.Text = "35791" Then
    Worksheets("Номенклатура").Cells(N + 2, 1).Value = Range("G3").Value
    Worksheets("Номенклатура").Cells(N + 2, 2).Value = Range("G4").Value
    Worksheets("Номенклатура").Cells(N + 2, 4).Value = Range("G5").Value
    MsgBox "Данные внесены"
    Pass2.Text = ""
Else
    MsgBox "Ошибка пароля! Данные не внесены"
End If
End Sub

В правой части листа расположены два элемента управления — кнопка и текстовое окно для пароля. Можно было бы оставить одно поле пароля для левой и для правой части листа. Однако предложенный здесь вариант повышает функциональность разработки. В качестве значения свойства Name мы выбрали Pass2. Сформулируем порядок действий пользователя при работе с правой частью листа:

• в ячейку G3 вводится название нового товара;
• в ячейке G4 указывается цена;
• ячейка G5 отводится для количества единиц товара;
• пользователь вводит пароль, и щелчок на кнопке Внести новый товар фиксирует (если пароль правильный) введенную информацию на листе Номенклатура.

В начале процедуры CommandButton2_Click подсчитывается (для этого используется переметшая N) количество ячеек с информацией о товарах на листе Номенклатура. После этого информация о новом товаре записывается в очередную свободную строку листа.

Теперь перейдем к другому листу — Отгрузка (рис. 2.18), который используется при продаже товаров. На листе Отгрузка расположено три элемента управления: поле со списком (Name — Spk), поле для пароля (Name — Pass3) и кнопка (Name — CommandButton1).

Для заполнения списка необходимо скорректировать ранее (листинг 2.21) рассмотренную процедуру Workbook_Open. Теперь она должна выглядеть так, как показано в листинге 2.25.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

' Листинг 2.25. Процедура, выполняемая при открытии книги (вариант 2)
Private Sub Workbook_Open()
Worksheets("Поступление").Spk.Clear
Worksheets("Отгрузка").Spk.Clear
' Подсчет уже имеющихся товаров
N = 0
While Worksheets("nomen").Cells(N + 2, 1).Value <> ""
    N = N + 1
Wend
' Заполнение списков
For i = 1 To N
    Worksheets("Поступление").Spk.AddItem Worksheets(3).Cells(i + 1, 1).Value
    Worksheets("Отгрузка").Spk.AddItem Worksheets(3).Cells(i + 1, 1).Value
Next
Worksheets("Поступление").Spk.ListIndex = -1
Worksheets("Отгрузка").Spk.ListIndex = -1
End Sub

На очереди следующая процедура (листинг 2.26), которая выполняется при щелчке на поле со списком. В результате в соответствующие ячейки листа Отгрузка будет внесено количество единиц указанного товара на складе, а также его цена продажи (рис. 2.19).

1
2
3
4
5

' Листинг 2.26. Процедура, выполняемая при щелчке на поле со списком
Private Sub Spk_Click()
Range("E6").Value = Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 4).Value
Range("E7").Value = Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 3).Value
End Sub

Теперь пользователь должен указать (в ячейке E6), какое количество единиц отгружается (для ориентировки и контроля с помощью предыдущей процедуры мы внесли имеющееся количество товаров на складе). Процедура, представленная в листинге 2.27 (выполняется при щелчке на кнопке Отгрузить), позволяет скорректировать в базе данных количество единиц товара, имеющегося в наличии.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

' Листинг 2.27. Процедура, выполняемая при щелчке на кнопке Отгрузить
Private Sub CommandButton1_Click()
If Pass3.Text = "775" Then
    ColPrais = Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 4).Value
    Col = Range("E6").Value
If Col > ColPrais Then
    MsgBox "Такого количества на складе нет"
Exit Sub
End If
Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 3).Value = Range("E7").Value
ColPrais = ColPrais - Col
Worksheets("Номенклатура").Cells(Spk.ListIndex + 2, 4).Value = ColPrais
    MsgBox "В базу внесена информация"
Pass.Text = ""
Spk_Click
Else
    MsgBox "Ошибка пароля!"
End If
End Sub

После внесения изменений информация на экране будет обновлена — пользователь увидит уже скорректированное значение (за счет вызова процедуры Spk_Click, которую мы ранее уже разработали). Теперь для обеспечения ранее оговоренной функциональности необходимо скрыть лист Номенклатура. Пользователи в этом случае будут использовать разработанные листы Поступление и Отгрузка.

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

Время на прочтение
7 мин

Количество просмотров 311K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

VBA (Visual Basic for Applications) — это упрощенная версия Visual Basic, встроенная в множество продуктов линейки Microsoft Office. Она позволяет писать программы прямо в файле конкретного документа. Вам не требуется устанавливать различные IDE — всё, включая отладчик, уже есть в Excel.

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

Теперь давайте подумаем, на каком примере мы будем изучать VBA. Недавно мне потребовалось красиво оформить прайс-лист, выглядевший, как таблица. Идём в гугл, набираем «прайс-лист» и качаем любой, который оформлен примерно так (не сочтите за рекламу, пожалуйста):

То есть требуется, чтобы было как минимум две группы, по которым можно объединить товары (в нашем случае это будут Тип и Производитель — в таком порядке). Для того, чтобы предложенный мною алгоритм работал корректно, отсортируйте товары так, чтобы товары из одной группы стояли подряд (сначала по Типу, потом по Производителю).

Результат, которого хотим добиться, выглядит примерно так:

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

Кодим

Для начала требуется создать кнопку, при нажатии на которую будет вызываться наша програма. Кнопки находятся в панели «Разработчик» и появляются по кнопке «Вставить». Вам нужен компонент формы «Кнопка». Нажали, поставили на любое место в листе. Далее, если не появилось окно назначения макроса, надо нажать правой кнопкой и выбрать пункт «Назначить макрос». Назовём его FormatPrice. Важно, чтобы перед именем макроса ничего не было — иначе он создастся в отдельном модуле, а не в пространстве имен книги. В этому случае вам будет недоступно быстрое обращение к выделенному листу. Нажимаем кнопку «Новый».

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice()
    MsgBox "Hello World!"
End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает
' Перегрузка в VBA отсутствует
Sub foo(a As String, b As String)
    ' Exit Sub ' Это значит "выйти из процедуры"
    MsgBox a + ";" + b
End Sub' Функция. Вовращает Integer
Function LengthSqr(x As Integer, y As Integer) As Integer
    ' Exit Function
    LengthSqr = x * x + y * y
End FunctionSub FormatPrice()
    Dim s1 As String, s2 As String
    s1 = "str1"
    s2 = "str2"
    If s1 <> s2 Then
        foo "123", "456" ' Скобки при вызове процедур запрещены
    End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит
    Dim i As Integer
    ' Цикл всегда состоит из нескольких строк
    For i = 1 To 10
        res = res + CStr(i) ' Конвертация чего угодно в String
        If i = 5 Then Exit For
    Next iDim x As Double
    x = Val("1.234") ' Парсинг чисел
    x = x + 10
    MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки
    x = 5 / 0
    MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err
    x = 5 / 0
    MsgBox "OK!"
    GoTo ne

On Error GoTo 0 ' Отключаем обработку ошибок

    ' Циклы бывает, какие захотите
    Do While True
        Exit DoLoop 'While True
    Do 'Until False
        Exit Do
    Loop Until False
    ' А вот при вызове функций, от которых хотим получить значение, скобки нужны.
    ' Val также умеет возвращать Integer
    Select Case LengthSqr(Len("abc"), Val("4"))
    Case 24
        MsgBox "0"
    Case 25
        MsgBox "1"
    Case 26
        MsgBox "2"
    End Select' Двухмерный массив.
    ' Можно также менять размеры командой ReDim (Preserve) - см. google
    Dim arr(1 to 10, 5 to 6) As Integer
    arr(1, 6) = 8Dim coll As New Collection
    Dim coll2 As Collection
    coll.Add "item", "key"
    Set coll2 = coll ' Все присваивания объектов должны производится командой Set
    MsgBox coll2("key")
    Set coll2 = New Collection
    MsgBox coll2.Count
End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

Надеюсь, что этого Вам хватит, чтобы не пугаться кода и самостоятельно написать какое-нибудь домашнее задание по информатике. По ходу поста я буду ненавязчиво знакомить Вас с новыми конструкциями.

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice()
    Sheets("result").Cells.Clear
    Sheets("data").Activate
End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate
Dim r As Range
Set r = Range("A1")
r.Value = "123"
Set r = Range("A3,A5")
r.Font.Color = vbRed
r.Value = "456"
Set r = Range("A6:A7")
r.Value = "=A1+A3"

Теперь давайте поймем алгоритм работы нашего кода. Итак, у каждой строчки листа data, начиная со второй, есть некоторые данные, которые нас не интересуют (ID, название и цена) и есть две вложенные группы, к которым она принадлежит (тип и производитель). Более того, эти строки отсортированы. Пока мы забудем про пропуски перед началом новой группы — так будет проще. Я предлагаю такой алгоритм:

1. Считали группы из очередной строки.
2. Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
   1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
3. После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String
    GetCol = Chr(Asc("A") + Col)
End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range
    Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row))
End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range
    Set GetCell = Range(GetCol(Col) + CStr(Row))
End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Глобальные переменные

Option Explicit ' про эту строчку я уже рассказывал
Dim CurRow As Integer
Const GroupsCount As Integer = 2
Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice()
    Dim I As Integer ' строка в data
    CurRow = 1
    Dim Groups(1 To GroupsCount) As String
    Dim PrGroups(1 To GroupsCount) As String

"data").Activate
    I = 2
    Do While True
        If GetCell(0, I).Value = "" Then Exit Do
        ' ...
        I = I + 1
    Loop
End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer
For I2 = 1 To GroupsCount
    Groups(I2) = GetCell(I2, I)
Next I2
' ...
For I2 = 1 To GroupsCount ' VB не умеет копировать массивы
    PrGroups(I2) = Groups(I2)
Next I2
I =  I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount
    If Groups(I2) <> PrGroups(I2) Then
        Dim I3 As Integer
        For I3 = I2 To GroupsCount
            AddHeader I3, Groups(I3)
        Next I3
        Exit For
    End If
Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String)
    GetCellS("result", 1, CurRow).Value = Name
    CurRow = CurRow + 1
End Sub

Теперь надо перенести всякую информацию в result

For I2 = 0 To DataCount - 1
    GetCellS("result", I2, CurRow).Value = GetCell(I2, I)
Next I2

Подогнать столбцы по ширине и выбрать лист result для показа результата

После цикла в конце FormatPrice

Sheets("Result").Activate
Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String)
    Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge
    ' Чтобы не заводить переменную и не писать каждый раз длинный вызов
    ' можно воспользоваться блоком With
    With GetCellS("result", 0, CurRow)
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        Select Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
        Case 2 ' Производитель
            .Font.Size = 12
        End Select
        .HorizontalAlignment = xlCenter
    End With
    CurRow = CurRow + 1
End Sub

Уже лучше:

Осталось только сделать границы. Тут уже нам требуется работать со всеми объединёнными ячейками, иначе бордюр будет только у одной:

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String)
    With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow))
        .Merge
        .Value = Name
        .Font.Italic = True
        .Font.Name = "Cambria"
        .HorizontalAlignment = xlCenterSelect Case Ty
        Case 1 ' Тип
            .Font.Bold = True
            .Font.Size = 16
            .Borders(xlTop).Weight = xlThick
        Case 2 ' Производитель
            .Font.Size = 12
            .Borders(xlTop).Weight = xlMedium
        End Select
        .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline
    End With
    CurRow = CurRow + 1
End Sub

Осталось лишь добится пропусков перед началом новой группы. Это легко:

В начале FormatPrice

Dim I As Integer ' строка в  data
CurRow = 0 ' чтобы не было пропуска в самом начале
Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then
    CurRow = CurRow + 1
    Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: CurRow = 0 CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. Если кто-нибудь подскажет человеческих файлохостинг, залью туда.

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.

Макрос записывается двумя способами: автоматически и вручную. Воспользовавшись первым вариантом, вы просто записываете определенные действия в Microsoft Excel, которые выполняете в данный момент времени. Потом можно будет воспроизвести эту запись. Такой метод очень легкий и не требует знания кода, но применение его на практике довольно ограничено. Ручная запись, наоборот, требует знаний программирования, так как код набирается вручную с клавиатуры. Однако грамотно написанный таким образом код может значительно ускорить выполнение процессов.

Создание макросов

В Эксель создать макросы можно вручную или автоматически. Последний вариант предполагает запись действий, которые мы выполняем в программе, для их дальнейшего повтора. Это достаточно простой способ, пользователь не должен обладать какими-то навыками кодирования и т.д. Однако, в связи с этим, применить его можно не всегда.

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

Создать макрос в Excel с помощью макрорекордера

Для начала проясним, что собой представляет макрорекордер и при чём тут макрос.

Макрорекордер – это вшитая в Excel небольшая программка, которая интерпретирует любое действие пользователя в кодах языка программирования VBA и записывает в программный модуль команды, которые получились в процессе работы. То есть, если мы при включенном макрорекордере, создадим нужный нам ежедневный отчёт, то макрорекордер всё запишет в своих командах пошагово и как итог создаст макрос, который будет создавать ежедневный отчёт автоматически.

Этот способ очень полезен тем, кто не владеет навыками и знаниями работы в языковой среде VBA. Но такая легкость в исполнении и записи макроса имеет свои минусы, как и плюсы:

• Записать макрорекордер может только то, что может пощупать, а значит записывать действия он может только в том случае, когда используются кнопки, иконки, команды меню и всё в этом духе, такие варианты как сортировка по цвету для него недоступна;
• В случае, когда в период записи была допущена ошибка, она также запишется. Но можно кнопкой отмены последнего действия, стереть последнюю команду которую вы неправильно записали на VBA;
• Запись в макрорекордере проводится только в границах окна MS Excel и в случае, когда вы закроете программу или включите другую, запись будет остановлена и перестанет выполняться.

Для включения макрорекордера на запись необходимо произвести следующие действия:

• в версии Excel от 2007 и к более новым вам нужно на вкладке «Разработчик» нажать кнопочку «Запись макроса»
• в версиях Excel от 2003 и к более старым (они еще очень часто используются) вам нужно в меню «Сервис» выбрать пункт «Макрос» и нажать кнопку «Начать запись».

 Sub ОтносительныеСсылки() ' ' ОтносительныеСсылки Макрос ' ' ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Excel" ActiveCell.Offset(1, 0).Range("A1").Select End Sub 

Приветствую на странице, которую каждый начинающий VBA-программист просто обязан добавить в закладки. Сейчас расскажу почему.

Макросы могут сэкономить массу времени. Можно автоматизировать небольшие задачи (ссылка на примеры), или создавать целые проекты автоматизации. Нажал кнопку и макрос выполнил работу целого отдела (вот я вообще не преувеличиваю).

Если Вы не знаете, что такое макрос в Excel и для чего они нужны, то рекомендую начать обучение с бесплатного самоучителя. Сборник готовых примеров, конечно, тоже поможет, но лучше начать с основ, а потом уже переходить к практике.

В этой огромной статье я собрал уже более 200 макросов, для удобства разбил их по группам.

Вы сможете использовать эти коды, даже если до этого не использовали VBA.

Работа с Excel файлами (WorkBook)

• Как создать файл Excel с помощью VBA
• Как сохранить файл в Excel при изменении определенной ячейки или диапазона
• Как сохранить файл в Excel перед закрытием
• Как защитить лист в книге перед закрытием
• Как снятие защиту с листа при открытии Excel файла
• Как открыть Excel файл на нужном листе
• Как открыть Excel файл, определенный пользователем
• Как определить, открыт ли Excel файл
• Как определяем, существует ли Excel файл в папке
• Как обновить все связи в открытых Excel файлах
• Как закрыть сразу все Excel файлы
• Как открыть все Excel файлы в папке
• Как распечатать все Excel файлы в папке
• Как не дать закрыть Excel файл до тех пор, пока не заполнит ячейку
• Как создать резервную копию текущего Excel файла с сегодняшней датой

Назад к списку тем

Работа с листами Excel файла (WorkSheets)

• Как добавить новый лист и присвоить имя
• Как удалить все листы, кроме активного
• Как скрыть все, кроме активного рабочего листа
• Как отобразить все листы книги
• Как переместить рабочие листы книги
• Как сортировать листы по названию
• Как сгруппировать листы по цвету ярлычка
• Как скопировать лист в новый Excel файл
• Как создать новый Excel файл для каждого листа
• Как распечатать листы
• Как защитить все листы
• Как снять защиту со всех листов
• Как создать оглавление со списком листов
• Как изменить масштаб листа с помощью двойного клика
• Как выделить столбец активной строки на листе 

Назад к списку тем

Работа с диапазонами (Range)

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

• Как выбрать и изменить форматирование диапазона
• Как создать и выбрать именованный диапазон
• Как сделать перебор диапазона ячеек
• Как выбрать и форматировать диапазон
• Как вставить пустые строки в диапазон
• Как отобразить все скрытые строки и столбцы
• Как удалить пустые строки
• Как удалить пустые столбцы
• Как отобрать и отформатировать все формулы на листе
• Как найти первую пустую строку или столбец
• Как применить дополнительный цвет заливки
• Как отсортировать диапазоны по двойному щелчку
• Как ограничить диапазон прокрутки в той или иной области
• Как автоматически задать область печати листа

Назад к списку тем

Макросы для работы с данными

Эта часть посвящена управлению данными: их очистке, форматированию и т. д.

• Как скопировать и вставить диапазон
• Как преобразовать все формулы в диапазон с значениями
• Как преобразовать текстовые значения в числовые
• Как преобразовать тире в минус
• Как удалить лишние пробелы из всех ячеек в диапазоне
• Как отсечь слева 5 знаков в каждой ячейке диапазона
• Как добавить в ячейку недостающие нули
• Как заменить пустые ячейки нулём
• Как добавить текст в начало или конец ячейки
• Как создать макрос преобразования данных
• Как очистить данные от непечатаемых символов
• Как выделить дубликаты в диапазоне данных
• Как скрыть повторяющиеся строки
• Как выборочно скрыть стрелки автофильтра
• Как скопировать отфильтрованные строки в новый Excel файл
• Как создать новый лист для каждого элемента в автофильтре
• Как показать отфильтрованные столбцы в строке состояния

Назад к списку тем

Макросы для сводных таблиц

• Как создать обратную совместимость сводной таблицы
• Как обновить все сводные таблицы книги
• Как создать список всех сводных таблиц книги
• Как создать все сводные таблицы, используя единый кэш
• Как скрыть все промежуточные итоги в сводной таблице
• Как изменить названия всех полей сводной
• Как принудительно суммировать значения для всех полей сводной
• Как применить числовой формат для всех элементов данных
• Как сортировать поля сводной в алфавитном порядке
• Как применить пользовательскую сортировку к элементам данных
• Как поставить защиту на сводную таблицу
• Как применить ограничения сводного поля
• Как автоматически удалять листы с детализацией
• Как распечатать сводную таблицу для каждого значения фильтра
• Как для каждого элемента фильтра создать новый Excel файл
• Как подготовить диапазон данных для сводной таблицы

Назад к списку тем

Макросы для графиков

• Как изменить размер диаграмм на рабочем листе
• Как привязать график к определенному диапазону
• Как создать набора бессвязных диаграмм
• Как распечатать всех диаграммы на рабочем листе
• Как отметить первое и последнее значение на графике
• Как сопоставить цвет диаграммы и исходных данных
• Как сопоставить цвет точек графика и исходных данных

Назад к списку тем

Макросы для отправки писем из Excel

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

Назад к списку тем

Макросы для работы с Access

• Как выполнить запрос Access из Excel
• Как запустить макрос Access из Excel
• Как открыть отчет Access из Excel
• Как открыть форму Access из Excel
• Как сжать базу данных Access из Excel

Назад к списку тем

Макросы для работы с MS Word

• Как отправить данные из Excel в Word документ
• Как сделать слияние с Word документом

Назад к списку тем

Макросы для работы с PowerPoint

• Как отправить данные Excel в PowerPoint
• Как отправить график из Excel в PowerPoint
• Как преобразовать рабочую книгу в презентацию PowerPoint

Назад к списку тем

Уже добавили страницу в закладки? Зря, я же пополняю список)

• Надстройка PastePictures для MS Excel: общие сведения

  Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.
  Основные функции программы:

  вставка фото из папки (поиск по имени файла)
  вставка картинок по ссылкам из таблицы
  поиск изображений в гугл по данным с листа Excel
  экспорт изображений с листа в файлы…

• 

  Программа «Прайс лист», выполненная в виде надстройки для Excel, позволяет легко автоматизировать обработку прайс-листов.
  Вспомните ситуацию: поставщики в очередной раз прислали свои прайс-листы в Excel — конечно, в совершенно разных форматах — и вам нужно объединить данные из всех этих файлов в одну таблицу. А составители этих таблиц будто специально хотели усложнить вам жизнь…

• 

  Программа предназначена для сравнения и подстановки значений в таблицах Excel.
  Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
  и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
  надстройка «Lookup» поможет сделать это нажатием одной кнопки.
   
  То же самое можно сделать при помощи формулы =ВПР(), но:

  формулы…

• 

  
  Программа предназначена для создания и печати этикеток, наклеек, ценников и квитанций на основании данных в таблице Excel.

  При помощи этой программы вы можете:

  распечатать ценники на товар, взяв данные из прайс-листа

  сформировать этикетки и наклейки для заданных строк вашей таблицы

  подготовить квитанции для оплаты услуг ЖКХ (счета за водоснабжение, канализацию, электроэнергию)…

• 

  
  Программа предназначена для формирования (заполнения) договоров купли-продажи.
   
  Исходными данными выступает таблица сделок, и шаблон договора, в который при помощи формул подставляются значения из заданной строки таблицы сделок.
  Для запуска программы достаточно нажать зеленую кнопку — и сразу же начнётся формирование договоров (файлов Excel из одного листа) в автоматически созданной папке…

• Данный макрос предназначен для поиска адресов электронной почты на листе Excel, с последующим выводом найденных адресов на отдельный лист.
  В прикреплённом файле, на первом листе («исходные данные»), ячейки заполнены неструктурированной информацией (смесь фамилий, адресов почты, прочей ненужной информации)
  Макрос вычленяет из текста ячеек адреса электронной почты, и выводит все найденные…

• 

  
  Надстройка SearchText предназначена для поиска заданного текста в книге Excel, с выводом результатов поиска на отдельный лист.
   
  При запуске надстройка формирует панель инструментов, с которой осуществляется запуск всех макросов:

  В Excel 2007 и 2010 панель инструментов можно найти на вкладке «Надстройки»:

  Надстройка SearchText является расширенной версией надстройки для…

• 

  
  Программа предназначена для сравнения цен конкурентов из их прайсов с прайс-листом вашей организации.

  ВНИМАНИЕ: Недавно разработана многофункциональная программа для обработки прайс-листов

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

  Исходными данными для программы являются:

  ваш прайс…

• К примеру, есть у вас несколько десятков (или сотен) текстовых файлов с подобным содержимым:
  (количество файлов, и количество строк данных в каждом файле не ограничено)
  1c04;1J0-698-151-G;1 комплект тормозных накладок;1J0698151G;1J0698151G;5;1
  1c04;1H0698151A;Тормозные колодки;1H0698151A;1H0698151A;1;1
  1c04;1K0-698-151-B;Тормозные колодки;1K0698151B;1K0698151B;2;1
  А надо из всего этого…

• 

  
  База данных «Преподаватели» предназначена для автоматизации работы администрации учебных заведений.

  Программа обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

  Эта база данных представляюет собой урезанную и немного изменённую версию программы АИСС СПК.

  Программа обеспечивает:

  Хранение полной…

• 

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

  Надстройка SearchExcel является упрощённой версией надстройки для поиска на всех листах книги Excel
  Смотрите также надстройку для…

• 

  Макрос FilenamesWithValues предназначен для получения списка файлов Excel из заданной папки, и загрузки значений из каждого найденного файла.
  В отдельной ячейке задаётся путь к папке, которая будет просмотрена в поисках файлов Excel.
  При формировании списка файлов проставляются гиперссылки на найденные файлы, указывается дата создания файла.
  Из каждого файла загружаются значения с…

• 

  
  Программа предназначена для работы с заказами, оформляемыми менеджерами на выставках.

  Основные функции программы:

  создание (заполнение) новых заказов

  редактирование существующих заказов

  объединение нескольких заказов в один

  формирование заявки на продукцию на основании данных их сформированных заказов

  Для каждого заказа предусмотрен выбор клиента из базы данных (если клиент…

• 

  
  Программа АИСС «СПК» предназначена для автоматизации работы приемной комиссии колледжей и техникумов.

  АИСС обеспечивает выполнение всех необходимых операций по приему документов, поиску и анализу информации, составлению отчетов.

  Назначением программы является автоматизация труда работника приёмной комиссии учебного заведения.

  Программа обеспечивает:

  Хранение полной…

• 

  
  Программа предназначена для загрузки списка товаров из актов о приеме-передаче основных средств.
  Поддерживаются акты по формам № ОС-3.1 и № ОС-3.3, возможно добавить поддержку актов других форм (в формате Excel).
  При запуске макроса, выводится диалоговое окно выбора папки, после чего, в выбранной папке, производится поиск всех файлов Excel.
  Для каждого из найденных файлов Excel, программа…

• 

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

  Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.

   

  Особенность программы — возможность учёта и администрирования узлов связи с нестандартными…

• 

  Программа позволяет сформировать отчёты по базе данных больницы.
  Кроме того, реализован ввод данных в базу о новых пациентах.

   

• 

  
  Программа предназначена для обработки объявлений о продаже недвижимости.
   

  Основная задача программы — обработка списка телефоннных номеров из объявлений, с целью фильтрации этого списка.
  Это позволяет выделить объявления от частных лиц,
  удалив из общего списка предложения от агенств недвижимости.
   
  Программа умеет:

  разносить номера из ячеек по разным столбцам или строкам…

• 

  
  Программа предназначена для формирования прайс-листов на ноутбуки с соответствии с требованиями интернет-каталога Onliner.by

  Основные функции программы:

  (учитываются цены фирм-конкурентов, цены onliner.by и надбавка фирмы)

  загрузка каталога ноутбуков (названия, характеристики, цены) с сайта onliner.by в файл Excel, и обновление этого каталога

  назначение соответствий моделей…

• 

  
  Программа предназначена для составления учебного расписания.
  На отдельных листах хранится список преподавателей вуза, список групп и занятий у этих групп по дням недели.
  Макрос делает выборку по всем преподавателям (или по выбранному преподавателю),
  фильтрует по заданной группе (курсу), если не выбрана опция «все курсы»,
  сортирует по времени начала занятия, группирует по дню…

• 

  
  Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel.
  Автор: VictorM

  Особенности надстройки:

  задаваемая пользователем глубина поиска в подпапках

  простановка гиперссылок на листе Excel на найденные файлы

  вывод дополнительных характеристик файла

  (размер файла, дата создания файла, полный путь)

  изменяемая маска поиска (поиск по части имени файла, по…

• 

  Программа предназначена для формирования заданий на производство.
  Исходными данными выступают таблицы Excel и файлы XML.
  При конвертации таблиц происходит обработка данных и перестановка столбцов.
  При запуске программа формирует панель инструментов с 6 кнопками — для обработки файлов различной структуры.

• 

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

  ВНИМАНИЕ: Описанная в данной статье программа послужила прототипом для новой, многофункциональной программы, где пользователь сам может настраивать обработку прайс-листов

  Новая программа объединения и обработки прайс-листов доступна на сайте для…

• 

  Программа предназначена для преобразования файлов формата .HTM с объявлениями о продаже недвижимости (файлы являются результатом сохранения веб-страниц с сайтов публикации объявлений) в формат Microsoft Excel.
  Программа производит анализ текста объвлений, распознаёт значения площади и этажности, отделяет второстепенные данные (комментарий) из текста объявления, преобразует различные форматы цен (…

• 

  
  Программа анализирует поступившие заказы с интернет-магазина (письма в программе Outlook), извлекает необходимые данные из писем (в формате HTML), и формирует сводную таблицу заказов
   
  Файл программы состоит из 2 листов — на первом листе находятся кнопки запуска, на втором — шаблон создаваемой сводной таблицы заказов.
   

  Принцип работы программы:

  при нажатии зеленой кнопки,…

• 

  
  Программа предназначена для работы с заявками на оборудование.

  Цели программы:

  автоматизация составления и редактирования заявок

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

  формирование отчётов по категориям и типам заявок

  стандартизация печатной формы заявок

  разграничение доступа на работу с базой данных заявок

   …

• 

  
  Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно.
  Используйте функцию ПродолжительностьМедиафайла:
  (функцию можно использовать как в макросах, так и на листе Excel)
  Sub Пример_Использования_Функции_ПродолжительностьМедиафайла()
  Путь = «E:MusicMODERN_TALKING With_a_little_love.mp3″…

• 

  
  Программа предназначена для импорта данных о соискателях с сайта superjob.ru
  В качестве исходных данных для макроса, используется ссылка на результат поиска на сайте superjob.ru
  (которую можно получить, забив искомый текст в строке поиска сайта, и скопировав URL страницы результатов поиска из адресной строки браузера).
  Во время выполнения кода, происходит авторизация на сайте путем…

• 

  
  Программа предназначена для сбора данных из отчётов нефтедобывающих компаний.
   
  Исходными данными выступают файлы оперативной отчётности следующих типов:

  Добыча

  Переработка

  Сбыт

  Сервис

  Анализ

  На распределение

   
  Во втором столбце таблицы перечислены названия компаний, чьи отчеты программа будет обрабатывать,
  а в строке заголовка — список месяцев, данные по по…

• 

  
  Программа предназначена для вывода отчёта по мероприятиям налоговой инспекции.
   

  Исходные данные для обработки расположены на других листах того же файла Excel: 

  перечень мероприятий налогового контроля, проведенных в отношении контрагентов

  поручения об истребовании документов (информации)

  запросы в кредитные организации о предоставлении сведений по операциям на счетах…

• 

  
  Программа собирает в таблицу Excel номера телефонов из объявлений на сайте abw.by
  В ячейке листа Excel указывается количество дней, за которые будут обрабатываться объявления с сайта.
  (если указано 0 дней — обрабатываются только объявления за сегодняшнюю дату, если 1 день — сегодняшние и вчерашние, и т.д.
  Количество дней неограничено — влияет только на время загрузки данных)
  В каждом…

• 

  
  Макрос предназначен для создания сводной таблицы и диаграммы для отчёта по трафику.

  В качестве исходных данных выступает таблица со статистикой доступа в интернет — сформированная программой создания отчётов по статистике

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

  При…

• 

  
  Макрос предназначен для загрузки в Excel списка подпапок заданной папки
  Для каждой из найденных папок производится поиск всех подпапок, и для каждой подпапки из списка выводится необходимая информация (в частности, количество файлов и подпапок, а также размер папки в байтах)
  Для всех ячеек с названиями папок и подпапок макрос проставляет гиперссылки, позволяющие быстро получить доступ к нужному…

• 

  
  Данная программа предназначена для ввода данных о заказе и сортировки заказов по группам.

  Программа представляет собой шаблон Excel для создания, сортировки и сведения в общую таблицу, заказов различных категорий.
  (категории можно менять вручную на отдельном листе).
  Сотрудник регистрирует своё имя, выбирая его из выпадающего списка, а после выбора ФИО, в соседние поля подтягивается…

• 

  
  Программа предназначена для обработки отчётов управления по сделкам с ценными бумагами

  Основные функции программы:

  Создание новых отчётов управления (за следующий квартал) на основании текущих отчётов

  Внесение изменений и дополнений в существующие отчёты

  Формирование сводной таблицы по вкладам для оценки роста, а также коэффициентов ликвидности и версификации вкладов

  Обработка…

• 

  

  Программа позволяет загружать котировки различных валют из файлов формата .HTM, и анализировать их при различных параметрах анализа.
  Все котировки разбиваются на отдельные блоки (временные диапазоны для разбивки задаются на форме настроек), и анализ производится по каждому блоку в отдельности.
  Есть возможность исключить из расчётов данные за пятницу.
  Изменение параметров вычисления значений BS…

• 

  
  Программа предназначена для выборки данных из текстовых файлов, которые были сгенерированны инвентаризационной программой
  В качестве исходных данных для макроса используются текстовые файлы, в которых находится информация о конфигурации компьютеров
  (на каждый компьютер приходится по 3 файла).
  Работу макроса можно разделить на следующие этапы:

  Выбор папки с данными по всем компьютерам…

• 

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

  В качестве исходных данных программа принимает:

  логин абонента

  дату начала и окончания периода сбора статистики

   

  Особенности программы:

  формирование отчётов по всему трафику, или только по оплачиваемому

  создание листа итогов с диаграммой (сразу видно, с какого сайта был…

• 

  
  Программа предназначена для формирования отчёта по серверам компании (список технических характеристик, IP адресов, установленного программного обеспечения)
  В качестве исходных данных для программы имеется выгрузка из Help Desk системы Acme в формате XLS, но этот отчёт, хоть и содержит все необходимые данные, крайне неудобен для анализа и дальнейшей обработки:

  Программа производит поиск…

• 

  
  Программа предназначена для объединения однотипных файлов в единый сводный файл.
  Перед запуском программы требуется выбрать папку, содержащую файлы смет.
  При запуске программа загружает из выбранной папки список файлов, соответствующих заданной маске,
  и для каждого имени файла, заданного в первом столбце ли листе запуска, подбирает подходящий по имени файл.
  Если для какого-то из номеров смет не…

• 

  
  Программа предназначена для анализа ожидаемой доходности различных портфелей

  (рассматриваются всевозможные комбинации проектов)

  При помощи формул типа =СЛЧИС() на листах с характеристиками проектов генерируются различные комбинации исходных значений, на основании которых формулами рассчитывается доходность проекта.

  Методом Монте-Карло формируются массивы значений (по одному массиву для…

• 

  
  Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам.
  При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с…

• 

  

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

• 

  
  Программа предназначена для формирования коммерческих предложений по наружной рекламе.
  В качестве исходных данных выступает файл Excel со списком рекламных объектов.

  Список объектов должен содержать следующую информацию (в отдельных столбцах):

  адрес рекламной конструкции (щита)

  сторона рекламного щита или перетяжки (А, Б, В, и т.п.)

  ссылки на фото и карту рекламной конструкции
  (…

• 

  Программа позволяет в процессе ввода новых данных в таблицу Excel отслеживать наличие совпадений с записями из «черного списка», расположенного на отдельном листе.
   

  Особенности данной программы:

  поиск частичных совпадений (адреса могут совпадать лишь частично, при сравнении файмилий не учитываются 2 последних буквы, и т.д.)
  можно изменить «точность» совпадения — в…

• 

  
  Надстройка предназначена для формирования оглавления прайс-листов, расположенных на отдельных листах книги Excel.

  При запуске программа формирует панель инструментов:

  Особенности программы:

  группировка строк каждого прайс-листа

  формирование обратных ссылок с прайс-листов на оглавление