Главная

Простые макросы — Страница 5

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

Честно говоря, уже не помню, для каких целей разрабатывался этот макрос )
Что-то типа поиска созвездий на карте неба.

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

Смотрите также ещё одну бесполезную программу для рисования точек и линий, только выполненную на Visual Basic 6

Перенос выделенных строк в файлы на сервере
Перенос выделенных строк в файлы на сервере

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

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

В коде указываются настройки программы:

' ExportFolder$ - папка, в файлы которой требуется копировать выделенные строки
Public Const ExportFolder$ = "\\Server\Files\MyFolder\"

Фортепиано в Excel
Скриншот программы «Фортепиано в Excel»

Данная программа позволяет воспроизводить звуки нажатием на кнопки, расположенные на листе Excel

При нажатии кнопки ЗАПУСК на листе рисуется клавиатура.
Ширина черных и белых клавиш зависит от ширины столбцов А и В соответственно.

 

(добавлено в новой версии)

Секундомер в Excel - для фиксации времени автогонки
Скриншот секундомера автогонки - 4 независимых таймера на 4 круга

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

 

Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 - по одному на каждого гонщика)

По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП - и секундомер начнёт фиксировать время следующего круга.

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

 

Автоподбор высоты в Excel
Скриншот надстройки автоподбора высоты ячеек

Надстройка для автоподбора высоты строк в Excel.

Загрузка данных из текстового файла в таблицу Excel
Скриншот программы загрузки списка температур из текстового файла

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

В данном примере макрос загружает из текстового файла (формата CSV) список минимальных и максимальных температур за указанный год.

Год выбирается на листе из выпадающего списка.

На листе запуска всего 2 кнопки - первая запускает макрос загрузки данных, вторая - очищает заполненную таблицу.

Надстройка для поиска в Excel с выводом результатов на новый лист
Скриншот результатов поиска с выводом на отдельный лист

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

 

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

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

Смотрите также надстройку для поиска с выводом результатов на форму

Назначение кнопок надстройки:

 - поле для ввода искомого текста. Нажатие клавиши Enter запускает поиск.

 - удаление листа с результатами поиска. (выполняется автоматически при повторном поиске)

 - кнопки для включения (красная) и выключения (белая) режима подсветки значений, больших, чем введенное число
(число запрашивается в диалоговом окне при нажатии на красную лампочку)

 

Объединение файлов по списку их имён
Скриншот программы поиска и объединения файлов

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

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

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

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

Если для какого-то из номеров смет не найден подходящий файл, ячейка с номером сметы помечается красным цветом.

 

Далее производится копирование первых листов отобранных файлов во вновь созданный сводный файл, при этом имена листов заменяются номерами смет.

Все листы в созданном файле сортируются по именам (поалфавиту).

 

Сформированный файл сохраняется в специальной папке под автоматически формируемым уникальным именем (с указанием даты и времени создания)

Если выбрана опция «Применить эталонную смету», то на каждый из листов созданного сводного файла копируется 2 диапазона из файла-эталона

(подставляются значения цен по-умолчанию)

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

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

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

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

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

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