Макросы и программы для Excel в категории «Средства Windows»

Макросы, использующие в своей работе функционал Windows - WMI, реестр, WinAPI и т.п.
  • Выпадающий календарь в ячейке листа Excel
    Надстройка samradDatePicker (русифицированная) для облегчения ввода даты в ячейки листа Excel. Добавляет в контекстное меня ячеек пункт выбора даты, а при выделении ячеек, содержащих дату, справа от ячейки отображает значок календаря. Поместите файл надстройки из вложения в папку автозагрузки Excel (C:\Program Files\Microsoft Office\OFFICExx\XLSTART). В контекстном меню ячеек...
  • Макрос VBA загрузки списка файлов из папки
    Функция VBA для получения списка файлов из папки, с учётом выбранной глубины поиска в подпапках   Пример в файле FilenamesCollection.xls выводит список файлов на чистый лист новой книги (формируя заголовки)  Пример в файле FilenamesCollectionEx.xls более функционален - он, помимо списка файлов из папки, отображает размер файла, и дату его создания, а также формирует в ячейках...
  • Если вам нужно рассылать письма из Excel,воспользуйтесь готовым решением в виде надстройки FillDocuments Ознакомьтесь с возможностями и способами рассылки писем из Excel Макрос для отправки письма из Excel штатными средствами Windows ВНИМАНИЕ! Данный код гарантированно работает ТОЛЬКО в ОС WindowsXP. В остальных версиях Windows код не проверял. В Windows7 данный макрос работать не будет ввиду...
  • Скриншот программы, позволяющей прикреплять файлы к книге Excel
    Можно ли прикрепить (вложить) произвольные файлы в обычную книгу Excel? А потом извлечь эти файлы в заданную папку, и работать с ними? Казалось бы, Excel такого не позволяет. (а если и позволяет, то извлечь вложенные файлы без из запуска - весьма проблематично) Но, при помощи макросов, можно реализовать что угодно (и сохранение\извлечение файлов в том числе) Теперь прикрепить к книге Excel...
  • Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).   Например, код MkDir "C:\Папка\" отработает корректно в любом случае (создаст указанную папку), а код MkDir "C:\Папка\Подпапка\Каталог\" выдаст ошибку Run-time error '76': Path not found (потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)...
  • Если вы работаете с книгами Excel древних форматов (таких, например, как Excel 4), то в Excel 2010 вы можете столкнуться с проблемой, что редактирование этих файлов по-умолчанию запрещено. В настройках Excel 2010 для этого предусмотрены специальные опции (скриншот) Мало того, что Excel блокирует редактирование этих устаревших файлов, так ещё и макросы начинают вести себя очень странно (...
  • Скриншот листа с секундомерами
    Программа предназначена для фиксации времени событий (хронометража) в таблице Excel в режиме онлайн. Типичное применение такой программы - фиксации времени прохождения кругов автогонщиками, но подойдёт данный секундомер и для учёта времени на любых других спортивных состязаниях.   Особенности программы: изменяемое количество участников - от 1 до 20 изменяемое количество кругов (...
  • Часто требуется макросом скачать некий файл из интернета. Обычно в этом помогает WinAPI-функция URLDownloadToFile, но есть также возможность загрузить файл без её использования: Чем чревато использование функции URLDownloadToFile - по сути, ничем, кроме как необходимостью прописывать её в 4 вариантах, для обеспечения совместимости с 64-битной Windows и Office 2010 Я же предлагаю другое решение...
  • Сегодня мы поговорим о том, как добиться автоматического открытия вашего файла Excel (книги или надстройки) при запуске приложения Microsoft Excel Способов добавить файл в автозагрузку Excel достаточно много, поэтому мы рассмотрим только самые основные: открытие файлов из папки автозапуска подключение файла как надстройки Начнём с папки автозагрузки (точнее, с папок, поскольку их...
  • Отправка почты из Excel при помощи TheBAT!
    Если вам нужно рассылать письма из Excel, воспользуйтесь готовым решением в виде надстройки FillDocuments Ознакомьтесь с возможностями и способами рассылки писем из Excel, а также с инструкцией по настройке рассылки через TheBAT Макроc предназначен для автоматизированной рассылки почты из Excel. Для рассылки используется почтовая программа TheBAT! (подразумевается, что эта программа на...
  • Вид исходный таблицы со ссылками на картинки в интернете
    Данный макрос перебирает все строки на листе, и для каждой строки скачивает из интернета картинки, ссылки на которые присутствуют в этой строке (начиная с 3 столбца) В процессе загрузки изображений из интернета отображается 2-уровневый прогресс-бар, на котором можно видеть текущее состояние процесса. Если вам требуется вставлять много изображений на лист Excel, - то вам поможет надстройка,...
  • Соответствие клавиш клавиатуры компьютера нотам (как на клавиатуре баяна)
    Самый простой вариант извлечь звук при помощи макроса VBA: Shell "Cmd.exe /c echo " & Chr(7), vbHide Эта команда вводит в консоль символ с кодом 7 (ввод этого символа вызывает звуковой сигнал) Из спикера компьютера (не из динамиков!) прозвучит короткий однотональный звуковой сигнал. Если же нужен звук подлиннее - то можно «ввести» в консоль несколько символов Chr(7). Например, эта...
  • Поиск трасс и просмотр ресурсов оборудования
    Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании. Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.   Особенность программы - возможность учёта и администрирования узлов связи с нестандартными...
  • Данный макрос автоматизирует процесс переключения раскладки клавиатуры (смену языков ввода) при работе с таблицами в Excel. К примеру, вы заносите данные в таблицу, где в некоторые столбцы требуется вводить русские слова (фамилия, имя, и т.п.), а в другие столбцы - английские (марка и модель авто, и т.д.) Чтобы каждый раз не переключать раскладку вручную - можно воспользоваться WinAPI...
  • Макрос для архивации текущей (или активной) книги Excel средствами Windows (без использования сторонних программ-архиваторов) Во вложении - файл, при запуске которого автоматически срабатывает такой макрос При открытии этого файла, если включены макросы, в папке My Program Backups будет сохранена копия книги в формате ZIP (архив) Папка, если таковая не существует, будет автоматически создана...
  • Скриншот формы поиска файлов в заданной папке
    Надстройка, позволяющая загрузить из выбранной папки список файлов на лист Excel. Автор: VictorM Особенности надстройки: задаваемая пользователем глубина поиска в подпапках простановка гиперссылок на листе Excel на найденные файлы вывод дополнительных характеристик файла (размер файла, дата создания файла, полный путь) изменяемая маска поиска (поиск по части имени файла, по...
  • Назначение программы: Выгрузка файлов Excel на сайт (хостинг) по протоколу FTP облегчение процесса редактирования файлов Excel, расположенных на сайте (доступных через FTP) автоматизация экспорта таблиц Excel на страницы сайтов под управлением CMS Drupal формирование изображений формате JPG из диапазона ячеек листа Excel - нажатием одной кнопки   Программа представляет собой...
  • В данной статье опубликованы макросы для уменьшения размеров изображения (в графическом файле), и для получения размеров картинки из файла.   Эти макросы нашли применение в универсальной надстройке для вставки картинок в Excel Там они используются для выполнения функции сжатия изображений перед вставкой (сначала рассчитываются нужные размеры изображения на листе Excel, затем...
  • Данный макрос позволяет получить список папок, расположенных в выбранной папке (каталоге) Если надо получить список папок, имена которых удовлетворяют определённому критерию, используйте маску поиска (параметр Mask$) Код функции и пример использования: Sub ПоискПодходящихПодпапок() ' считываем в колекцию coll подходящие полные пути папок ' (поиск папок с названием, начинающимся на 09...
  • Этот макрос выводит информацию о папке - например, её размер, и количество файлов в ней: Sub ПодсчётКоличестваФайловВПапке() ' задаём папку FolderPath = "C:\Documents and Settings\Admin\Рабочий стол\"   ' получаем характеристики папки Set FSO = CreateObject("Scripting.FileSystemObject") КоличествоФайловВПапкеБезУчётаПодпапок = FSO.GetFolder(FolderPath...
  • Макрос для поиска текста выделенных ячеек в Google
    Макрос предназначен для поиска текста из выделенных ячеек в поисковой системе Google. Функция поиска доступна из контекстного меню ячеек: Как вы можете видеть на скриншоте, есть возможность выбора браузера. На выбор представлены наиболее популярные браузеры: Internet Explorer, Mozilla Firefox, Opera, и Google Chrome.   В макрос намеренно введено ограничение на количество ячеек, текст...
  • Public Function Ping(ByVal ComputerName As String) As Boolean ' возвращает TRUE, если пинг прошел Dim oPingResult As Variant For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _ ("SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'") If IsObject(oPingResult) Then If oPingResult....
  • Скриншот секундомера автогонки - 4 независимых таймера на 4 круга
    Данный секундомер предназначен для фиксации времени прохождения кругов автогонщиками.   Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 - по одному на каждого гонщика) По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП - и секундомер начнёт фиксировать время следующего круга. В последнем столбце формулой подсчитывается суммарное время...
  • Функция предназначена для получения файлов, извлечённых из архива ZIP. Разархивирование выполняется средствами Windows, файлы извлекаются в специально созданную папку в каталоге для временных файлов (C:\WINDOWS\Temp\) При запуске макроса папка UNZIPPED FILES сначала удаляется, а потом создаётся заново. (таким образом, выполняется удаление файлов, которые могли оказаться в папке при предыдущем...
  • Надстройка предназначена для облегчения управления сетевым оборудованием и диагностики локальной сети из Excel.   Надстройка будет полезна, если информация об оборудовании (IP-адреса, логины и пароли) хранится в книгах Excel. Вы сможете получить доступ к часто используемым действиям из контекстного меню Excel. В частности, прямо из контекстного меню ячейки можно запустить в консоли PING...
  • Функция FileToVBAFunction предназначена для сохранения произвольного файла в виде VBA кода. В любой момент вы можете вызвать сгенерированную функцию - она моментально создаст во временной папке необходимый файл, и вернет путь к созданному файлу. Основное применение функции - сохранение небольших файлов (в основном, графических - иконок и маленьких картинок) в книге Excel. Для того, чтобы...
  • При помощи функции Environ() можно получить значение переменной окружения Windows   Этот макрос создаст новую книгу, и выведет в неё список из 31 переменной, с примерами вызова функции для получения каждого из параметров: Sub ВывестиПеременныеОкружения() On Error Resume Next Dim sh As Worksheet, param$ Application.ScreenUpdating = False: Set sh = Workbooks.Add.Worksheets(1...
  • Форма настроек программы, выбора устанавливаемых обновлений, активации надстройки
    Программа предназначена для реализации возможности автоматического и ручного обновления надстроек Excel, а также разграничения доступа и регистрации (активации) программного продукта. Особенности данного решения: публикация обновления программы через FTP нажатием одной кнопки автоматический поиск обновлений на сервере при запуске файла 2 режима автообновления - установка любых...
  • Скриншот программы «Фортепиано в Excel»
    Данная программа позволяет воспроизводить звуки нажатием на кнопки, расположенные на листе Excel При нажатии кнопки ЗАПУСК на листе рисуется клавиатура. Ширина черных и белых клавиш зависит от ширины столбцов А и В соответственно.   (добавлено в новой версии) При воспроизведении мелодий клавиши фортепиано, соответствующие воспроизводимым звукам, "нажимаются", и подсвечиваются...
  • В данной статье собрано несколько примеров установки прозрачности форм (UserForm) Во всех файлах для установки прозрачности используется WinAPI функция SetLayeredWindowAttributes Примеры взять с форума ПланетаExcel, и немного переработаны. Прозрачность форм можно задавать в широком диапазоне - от 0 (полностью прозрачная форма) до 255 (непрозрачная) Также добавлен пример установки...
  • Функции WIF и RIF являются обёртками для WinAPI функций WritePrivateProfileString и GetPrivateProfileString, и предназначены для записи и чтения параметров из файлов конфигурации INI. INI-файлы - это обычные текстовые файлы, предназначенные для хранения настроек программ. Примерный вид структуры INI -файла: ; комментарий [Section1] var1 = значение_1 var2 = значение_2 [access] changed=02.06...
  • Данная функция позволяет проверить, доступен ли тот или иной веб-ресурс с вашего компьютера, и получить код состояния HTTP Как известно, при переходе по ссылке (URL), веб-сервер возвращает код состояния HTTP. Наиболее популярный коды ответа веб-сервера: (перечень всех кодов состояния можно посмотреть в Википедии) 200 OK («хорошо») 403 Forbidden («запрещено...
  • Форма выбора параметров запроса статистики
    Программа позволяет формировать отчёты по трафику на основании данных биллинговой системы. В качестве исходных данных программа принимает: логин абонента дату начала и окончания периода сбора статистики   Особенности программы: формирование отчётов по всему трафику, или только по оплачиваемому создание листа итогов с диаграммой (сразу видно, с какого сайта был...
  • Чтение и запись в реестр Windows в произвольную ветку можно произвести при помощи функций объекта WScript.Shell: RegRead и RegWrite Первая функция возвращает значение, считанное из реестра, вторая - записывает заданное значение в реестр. При попытке считать несуществующий параметр возникает ошибка, обойти которую нам поможет директива On Error Resume Next    Пара функций для...
  • Отправленное макросом письмо с копией изменённого файла в архиве
    Программа предназначена для отправки копии обрабатываемого файла (в виде архива) на заданный адрес электронной почты. Особенности программы: используется отправка письма средствами Windows (без использования почтовых программ) (в качестве адреса отправителя можно использовать любой адрес почты) перед отправкой файл архивируется (создаётся архив ZIP средствами Windows, без применения...
  • Просмотр видеоролика с Youtube на форме в Excel
    Макрос предназначен для показа видеороликов на форме в Microsoft Excel. На форме UserForm расположен компонент WebBrowser, в котором открывается заданных видеоролик при запуске формы. Вызов формы осуществляется таким кодом: Sub ПримерПоказаВидеоНаФорме() Video$ = Range("b2") Caption$ = Range("b5") URL_1$ = Range("b3") Website$ = Range("b4...
  • Макрос определения страны и IP адреса по доменному имени
    Макрос предназначен для вывода IP адресов и названий стран, на основании столбца с доменными именами. В прикреплённом файле - 2 способа реализации: 1) по доменному имени определяется IP адрес (посредством команды PING - выполнения ICMP запроса), а затем определяется страна (по IP адресу), с использованием сервиса smart-ip.net 2) используется только сервис smart-ip.net Отправляется запрос на...
  • Настройка шаблона писем для рассылки детализации звонков
    Программа предназначена для создания отчётов по детализации телефонных звонков (междугородная и международная связь), последующей упаковки созданных детализаций в ZIP архив, и автоматизированной рассылки сформированных писем абонентам. При запуске программа ищет в заданной папке исходные файлы с детализацией (упакованные в ZIP файлы DBF), и на основании из этих файлов формирует (по шаблону, с...
  • При работе с базами данных в Excel, где в ячейках присутствуют номера телефонов, порой требуется выполнять звонки по множеству номеров, указанных в таблице. Обычно этот процесс не автоматизирован - пользователь, глядя в таблицу Excel, набирает на своём мобильном телефоне номер из очередной ячейки. Чем это чревато - вы и сами понимаете: мало того, что пользователь теряет время, набирая номер на...
  • Получение длительности медиафайла формулой Excel
    Узнать продолжительность (время) звучания аудиофайла (MP3, WAV и т.д.), или длительность видеофайла (видеоролика) из Excel совсем несложно. Используйте функцию ПродолжительностьМедиафайла: (функцию можно использовать как в макросах, так и на листе Excel) Sub Пример_Использования_Функции_ПродолжительностьМедиафайла() Путь = "E:\Music\MODERN_TALKING With_a_little_love.mp3"...
  • Рисование линий по точкам для ввода слов
    Честно говоря, не помню уже, кому и зачем понадобилась такая странная программка. (скорее всего, это был заказ от студента, - ибо практического применения данной программы я не вижу) А предназначена эта программа для ввода слов (в данном случае, пароля) путем рисования линий по случайным точкам на экране. После запуска программы, предлагается ввести имя и пароль. Имя вводится как обычный текст...
  • Вашему вниманию предлагается шестнадцатеричный редактор HexEdit. Для чего нужен шестнадцатеричный редактор? Для просмотра и корректировки любой информации, содержащейся в файлах. Кому это может быть нужно и при каких обстоятельствах? Например, тому, кто хочет заглянуть внутрь файла (любой структуры) и что-либо найти (и поправить). НехEdit будет особенно полезен в тех случаях, когда политика...
  • Скриншот программы загрузки номеров телефонов с сайта объявлений abw.by
    Программа собирает в таблицу Excel номера телефонов из объявлений на сайте abw.by В ячейке листа Excel указывается количество дней, за которые будут обрабатываться объявления с сайта. (если указано 0 дней - обрабатываются только объявления за сегодняшнюю дату, если 1 день - сегодняшние и вчерашние, и т.д. Количество дней неограничено - влияет только на время загрузки данных) В каждом...
  • В данной статье приведены макросы, работающие только при установленном .NET Framework Перестановка строк в обратном порядке в текстовом файле: Sub ReverseTextFile()   Filename$ = "c:\test.txt" ' строки в этом файле будут переставлены в обратном порядке Set FSO = CreateObject("Scripting.FileSystemObject") Set objFile = FSO.OpenTextFile(Filename$, 1)...