Представляю Вашему вниманию огромный сборник макросов и функций, все макросы сгруппированы по главам, для удобства добавил оглавление с гиперссылками.
P.S.: Где скачал не помню.
Запуск макроса с поиском ячейки Запуск макроса при открытии книги Запуск макроса при вводе в ячейку «2» Запуск макроса при нажатии «Ентер» Добавить в панель свою вкладку «Надстройки» (Формат ячейки)
Проверка наличия файла по указанному пути_1 Проверка наличия файла по указанному пути_2 Проверка наличия файла по указанному пути_3 Поиск нужного файла_1 Поиск нужного файла_2 Поиск нужного файла_3 Поиск нужного файла_4 Автоматизация удаления файлов Произвольный текст в строке состояния Восстановление строки состояния Бегущая строка в строке состояния Быстрое изменение заголовка окна Быстрое изменение заголовка окна_2 Изменение заголовка окна (со скрытием названия файла) Возврат к первоначальному заголовку Что открыто в данный момент Работа с текстовыми файлами Запись и чтение текстового файла Обработка нескольких текстовых файлов Определение конца строки текстового файла Копирование из текстового файла в эксель Копирование содержимого в текстовый файл_1 Копирование содержимого в текстовый файл_2 Экспорт данных в HТМL Создание резервных копий ценных файлов Подсчет количества открытий файла Вывод пути к файлу в активную ячейку Копирование содержимого файла RTF в эксель Копирование данных из закрытой книги Извлечение данных из закрытого файла Поиск слова в файлах Создание текстового файла и ввод текста в файл Создание текстового файла и ввод текста (определение конца файла) Создание документов Word на основе таблицы Excel Команды создания и удаления каталогов Получение текущего каталога Посмотреть все файлы в каталоге_1 Посмотреть все файлы в каталоге_2 Посмотреть все файлы в каталоге_3
Количество имен рабочей книги Защита рабочей книги Запрет печати книги Открытие книги (или текстовых файлов) Открытие книги и добавление в ячейку А1 текста Сколько книг открыто Закрытие всех книг Закрытие рабочей книги только при выполнении условия Сохранение рабочей книги с именем, представляющим собой текущую дату Сохранена ли рабочая книга Создать книгу с одним листом Удаление ненужных имен Быстрое размножение рабочей книги Сортировка листов Поиск максимального значения на всех листах книги Проверка наличия защиты рабочего листа Список отсортированных листов Создать новый лист_1 Копирование листа в книге Копирование листа в новую книгу (создается) Перемещение листа в книге Перемещение нескольких листов в новую книгу Заменить существующий файл Вставка колонтитула с именем книги, листа и текущей датой Существует ли лист Существует ли лист_2 Вывод количества листов в активной книге Вывод количества листов в активной книге в виде гиперссылок Вывод имен активных листов по очереди Вывод имени и номеров листов текущей книги Сделать лист невидимым Сколько страниц на всех листах? Копирование строк на другой лист Копирование столбцов на другой лист Подсчет количества ячеек, содержащих указанные значения_1 Подсчет количества ячеек в диапазоне, содержащих указанные значения_2 Подсчет количества видимых ячеек в диапазоне Определение количества ячеек в диапазоне и суммы их значений Подсчет количества ячеек Автоматический пересчет данных таблицы при изменении ее значений Ввод данных в ячейки Ввод данных с использованием формул Ввод текстоввых данных в ячейки Вывод в ячейки названия книги, листа и количества листов Удаление пустых строк_1 Удаление пустых строк_2 Удаление пустых строк_3 Удаление строки по условию Удаление используемых скрытых строк или строк с нулевой высотой Удаление дубликатов по маске Выделение диапазона над текущей ячейкой Выделение диапазона над текущей ячейкой_2 Выделение отрицательных значений Выделение диапазона и использование абсолютных адресов Выделение ячеек через интервал_2 Движение по ячейкам Поиск ближайшей пустой ячейки столбца Поиск максимального значения Поиск и замена по шаблону Поиск значения с отображением результата в отдельном окне Поиск с выделением найденных данных_1 Поиск с выделением найденных данных_2 Поиск по условию в диапазоне Поиск последней непустой ячейки диапазона Поиск последней непустой ячейки столбца Поиск последней непустой ячейки строки Поиск ячейки синего цвета в диапазоне Поиск наличия значения в столбце Поиск совпадений в диапазоне Поиск ячейки в диапазоне_1 Поиск ячейки в диапазоне_2 Поиск приближенного значения в диапазоне Поиск начала и окончания диапазона, содержащего данные Автоматическая замена значений Быстрое заполнение диапазона (массив) Заполнение через интервал(массив) Заполнение указанного диапазона(массив) Заполнение диапазона(массив) Расчет суммы первых значений диапазона Размещение в ячейке электронных часов «Будильник» Адрес активной ячейки Координаты активной ячейки Формула активной ячейки Получение из ячейки формулы Тип данных ячейки Вывод адреса конца диапазона Получение информации о выделенном диапазоне Создание изменяемого списка (таблица) Умножение выделенного диапазона на 2 Одновременное умножение всех данных диапазона Деление диапазона на 100 Суммирование данных только видимых ячеек Сумма ячеек с числовыми значениями При суммировании — курсор внутри диапазона Начисление процентов в зависимости от суммы_1 Начисление процентов в зависимости от суммы_2 Начисление процентов в зависимости от суммы_3 Сводный пример расчета комиссионного вознаграждения Движение по диапазону Сдвиг от выделенной ячейки Создание заливки диапазона Подбор параметра ячейки Разбиение диапазона Объединение данных диапазона Объединение данных диапазона_2 Узнать максимальную колонку или строку. Ограничение возможных значений диапазона Тестирование скорости чтения и записи диапазонов Открыть MsgBox при выборе ячейки Скрытие строки Скрытие нескольких строк Скрытие столбца Скрытие нескольких столбцов Скрытие строки по имени ячейки Скрытие нескольких строк по адресам ячеек Скрытие столбца по имени ячейки Скрытие нескольких столбцов по адресам ячеек Мигание ячейки
Вывод на экран всех примечаний рабочего листа Функция извлечения комментария Список примечаний защищенных листов Перечень примечаний в отдельном списке_1 Перечень примечаний в отдельном списке_2 Перечень примечаний в отдельном списке_3 Подсчет количества примечаний_1 Подсчет примечаний_3 Выделение ячеек с примечаниями Отображение всех примечаний Изменение цвета примечаний Добавление примечаний Добавление примечаний в диапазон по условию Перенос комментария в ячейку и обратно Перенос значений из ячейки в комментарий_1 Перенос значений из ячейки в комментарий_2
Дополнение панели инструментов Добавление кнопки на панель инструментов Панель с одной кнопкой Панель с двумя кнопками Создание панели справа Вызов предварительного просмотра Создание пользовательского меню (вариант 1) Создание пользовательского меню (вариант 2) Создание пользовательского меню (вариант 3) Создание пользовательского меню (вариант 4) Создание пользовательского меню (вариант 5) Создание списка пунктов главного меню Excel Создание списка пунктов контекстных меню Отображение панели инструментов при определенном условии Скрытие и отображение панелей инструментов Создать подсказку к моим кнопкам Создание меню на основе данных рабочего листа Создание контекстного меню Блокировка контекстного меню Добавление команды в меню Сервис Добавление команды в меню Вид Создание панели со списком Мультфильм с помощником в главной роли Дополнение помощника текстом, заголовком, кнопкой и значком Новые параметры помощника Использование помощника для выбора цвета заливки
Функция INPUTBOX (через ввод значения) Настройка ввода данных в диалоговом окне Открытие диалогового окна (“Открыть файл”)_1 Вызов броузера из Экселя Диалоговое окно ввода данных Значения по умолчанию
Вывод списка доступных шрифтов Выбор из текста всех чисел Прописная буква только в начале текста Подсчет количества повторов искомого текста Выделение из текста произвольного элемента Отображение текста «задом наперед» Запуск таблицы символов из Excel
Получить имя пользователя Вывод разрешения монитора Получение информации об используемом принтере Просмотр информации о дисках компьютера
Построение диаграммы с помощью макроса Сохранение диаграммы в отдельном файле Построение и удаление диаграммы нажатием одной кнопки Применение случайной цветовой палитры Эффект прозрачности диаграммы Построение диаграммы на основе данных нескольких рабочих листов Создание подписей к данным диаграммы
Программа для составления кроссвордов Игра «Минное поле» Игра «Угадай животное» Расчет на основании ячеек определенного цвета
Вызов функциональных клавиш Расчет среднего арифметического значения Перевод чисел в «деньги» Поиск ближайшего понедельника Подсчет количества полных лет Расчет средневзвешенного значения Преобразование номера месяца в его название Использование относительных ссылок Преобразование таблицы Excel в HТМL-формат Генератор случайных чисел Случайные числа — на основании диапазона Применение функции без ввода ее в ячейку Подсчет именованных объектов Включение автофильтра с помощью макроса Создание бегущей строки Создание бегущей картинки Вращающиеся автофигуры Вызов таблицы цветов Создание калькулятора Склонение фамилии, имени и отчества
Вывод даты и времени_1 Вывод даты и времени_2 Получение системной даты Извлечение даты и часов Функция ДатаПолная
Представляю Вашему вниманию огромный сборник макросов и функций, все макросы сгруппированы по главам, для удобства добавил оглавление с гиперссылками.
P.S.: Где скачал не помню.
Запуск макроса с поиском ячейки Запуск макроса при открытии книги Запуск макроса при вводе в ячейку «2» Запуск макроса при нажатии «Ентер» Добавить в панель свою вкладку «Надстройки» (Формат ячейки)
Проверка наличия файла по указанному пути_1 Проверка наличия файла по указанному пути_2 Проверка наличия файла по указанному пути_3 Поиск нужного файла_1 Поиск нужного файла_2 Поиск нужного файла_3 Поиск нужного файла_4 Автоматизация удаления файлов Произвольный текст в строке состояния Восстановление строки состояния Бегущая строка в строке состояния Быстрое изменение заголовка окна Быстрое изменение заголовка окна_2 Изменение заголовка окна (со скрытием названия файла) Возврат к первоначальному заголовку Что открыто в данный момент Работа с текстовыми файлами Запись и чтение текстового файла Обработка нескольких текстовых файлов Определение конца строки текстового файла Копирование из текстового файла в эксель Копирование содержимого в текстовый файл_1 Копирование содержимого в текстовый файл_2 Экспорт данных в HТМL Создание резервных копий ценных файлов Подсчет количества открытий файла Вывод пути к файлу в активную ячейку Копирование содержимого файла RTF в эксель Копирование данных из закрытой книги Извлечение данных из закрытого файла Поиск слова в файлах Создание текстового файла и ввод текста в файл Создание текстового файла и ввод текста (определение конца файла) Создание документов Word на основе таблицы Excel Команды создания и удаления каталогов Получение текущего каталога Посмотреть все файлы в каталоге_1 Посмотреть все файлы в каталоге_2 Посмотреть все файлы в каталоге_3
Количество имен рабочей книги Защита рабочей книги Запрет печати книги Открытие книги (или текстовых файлов) Открытие книги и добавление в ячейку А1 текста Сколько книг открыто Закрытие всех книг Закрытие рабочей книги только при выполнении условия Сохранение рабочей книги с именем, представляющим собой текущую дату Сохранена ли рабочая книга Создать книгу с одним листом Удаление ненужных имен Быстрое размножение рабочей книги Сортировка листов Поиск максимального значения на всех листах книги Проверка наличия защиты рабочего листа Список отсортированных листов Создать новый лист_1 Копирование листа в книге Копирование листа в новую книгу (создается) Перемещение листа в книге Перемещение нескольких листов в новую книгу Заменить существующий файл Вставка колонтитула с именем книги, листа и текущей датой Существует ли лист Существует ли лист_2 Вывод количества листов в активной книге Вывод количества листов в активной книге в виде гиперссылок Вывод имен активных листов по очереди Вывод имени и номеров листов текущей книги Сделать лист невидимым Сколько страниц на всех листах? Копирование строк на другой лист Копирование столбцов на другой лист Подсчет количества ячеек, содержащих указанные значения_1 Подсчет количества ячеек в диапазоне, содержащих указанные значения_2 Подсчет количества видимых ячеек в диапазоне Определение количества ячеек в диапазоне и суммы их значений Подсчет количества ячеек Автоматический пересчет данных таблицы при изменении ее значений Ввод данных в ячейки Ввод данных с использованием формул Ввод текстоввых данных в ячейки Вывод в ячейки названия книги, листа и количества листов Удаление пустых строк_1 Удаление пустых строк_2 Удаление пустых строк_3 Удаление строки по условию Удаление используемых скрытых строк или строк с нулевой высотой Удаление дубликатов по маске Выделение диапазона над текущей ячейкой Выделение диапазона над текущей ячейкой_2 Выделение отрицательных значений Выделение диапазона и использование абсолютных адресов Выделение ячеек через интервал_2 Движение по ячейкам Поиск ближайшей пустой ячейки столбца Поиск максимального значения Поиск и замена по шаблону Поиск значения с отображением результата в отдельном окне Поиск с выделением найденных данных_1 Поиск с выделением найденных данных_2 Поиск по условию в диапазоне Поиск последней непустой ячейки диапазона Поиск последней непустой ячейки столбца Поиск последней непустой ячейки строки Поиск ячейки синего цвета в диапазоне Поиск наличия значения в столбце Поиск совпадений в диапазоне Поиск ячейки в диапазоне_1 Поиск ячейки в диапазоне_2 Поиск приближенного значения в диапазоне Поиск начала и окончания диапазона, содержащего данные Автоматическая замена значений Быстрое заполнение диапазона (массив) Заполнение через интервал(массив) Заполнение указанного диапазона(массив) Заполнение диапазона(массив) Расчет суммы первых значений диапазона Размещение в ячейке электронных часов «Будильник» Адрес активной ячейки Координаты активной ячейки Формула активной ячейки Получение из ячейки формулы Тип данных ячейки Вывод адреса конца диапазона Получение информации о выделенном диапазоне Создание изменяемого списка (таблица) Умножение выделенного диапазона на 2 Одновременное умножение всех данных диапазона Деление диапазона на 100 Суммирование данных только видимых ячеек Сумма ячеек с числовыми значениями При суммировании — курсор внутри диапазона Начисление процентов в зависимости от суммы_1 Начисление процентов в зависимости от суммы_2 Начисление процентов в зависимости от суммы_3 Сводный пример расчета комиссионного вознаграждения Движение по диапазону Сдвиг от выделенной ячейки Создание заливки диапазона Подбор параметра ячейки Разбиение диапазона Объединение данных диапазона Объединение данных диапазона_2 Узнать максимальную колонку или строку. Ограничение возможных значений диапазона Тестирование скорости чтения и записи диапазонов Открыть MsgBox при выборе ячейки Скрытие строки Скрытие нескольких строк Скрытие столбца Скрытие нескольких столбцов Скрытие строки по имени ячейки Скрытие нескольких строк по адресам ячеек Скрытие столбца по имени ячейки Скрытие нескольких столбцов по адресам ячеек Мигание ячейки
Вывод на экран всех примечаний рабочего листа Функция извлечения комментария Список примечаний защищенных листов Перечень примечаний в отдельном списке_1 Перечень примечаний в отдельном списке_2 Перечень примечаний в отдельном списке_3 Подсчет количества примечаний_1 Подсчет примечаний_3 Выделение ячеек с примечаниями Отображение всех примечаний Изменение цвета примечаний Добавление примечаний Добавление примечаний в диапазон по условию Перенос комментария в ячейку и обратно Перенос значений из ячейки в комментарий_1 Перенос значений из ячейки в комментарий_2
Дополнение панели инструментов Добавление кнопки на панель инструментов Панель с одной кнопкой Панель с двумя кнопками Создание панели справа Вызов предварительного просмотра Создание пользовательского меню (вариант 1) Создание пользовательского меню (вариант 2) Создание пользовательского меню (вариант 3) Создание пользовательского меню (вариант 4) Создание пользовательского меню (вариант 5) Создание списка пунктов главного меню Excel Создание списка пунктов контекстных меню Отображение панели инструментов при определенном условии Скрытие и отображение панелей инструментов Создать подсказку к моим кнопкам Создание меню на основе данных рабочего листа Создание контекстного меню Блокировка контекстного меню Добавление команды в меню Сервис Добавление команды в меню Вид Создание панели со списком Мультфильм с помощником в главной роли Дополнение помощника текстом, заголовком, кнопкой и значком Новые параметры помощника Использование помощника для выбора цвета заливки
Функция INPUTBOX (через ввод значения) Настройка ввода данных в диалоговом окне Открытие диалогового окна (“Открыть файл”)_1 Вызов броузера из Экселя Диалоговое окно ввода данных Значения по умолчанию
Вывод списка доступных шрифтов Выбор из текста всех чисел Прописная буква только в начале текста Подсчет количества повторов искомого текста Выделение из текста произвольного элемента Отображение текста «задом наперед» Запуск таблицы символов из Excel
Получить имя пользователя Вывод разрешения монитора Получение информации об используемом принтере Просмотр информации о дисках компьютера
Построение диаграммы с помощью макроса Сохранение диаграммы в отдельном файле Построение и удаление диаграммы нажатием одной кнопки Применение случайной цветовой палитры Эффект прозрачности диаграммы Построение диаграммы на основе данных нескольких рабочих листов Создание подписей к данным диаграммы
Программа для составления кроссвордов Игра «Минное поле» Игра «Угадай животное» Расчет на основании ячеек определенного цвета
Вызов функциональных клавиш Расчет среднего арифметического значения Перевод чисел в «деньги» Поиск ближайшего понедельника Подсчет количества полных лет Расчет средневзвешенного значения Преобразование номера месяца в его название Использование относительных ссылок Преобразование таблицы Excel в HТМL-формат Генератор случайных чисел Случайные числа — на основании диапазона Применение функции без ввода ее в ячейку Подсчет именованных объектов Включение автофильтра с помощью макроса Создание бегущей строки Создание бегущей картинки Вращающиеся автофигуры Вызов таблицы цветов Создание калькулятора Склонение фамилии, имени и отчества
Вывод даты и времени_1 Вывод даты и времени_2 Получение системной даты Извлечение даты и часов Функция ДатаПолная
Здравствуете! Скажите, пожалуйста, что сделать чтобы заработал макрос "Просмотр информации о дисках компьютера". При выполнение выходить ошибка error 429 activex component can't create object Прочитал вес интернет, все связанные библиотеки DLL доступны и галочки установлены.
остановка: [vba]
Код
Set objFileSysObject = CreateObject("sñriðting.FileSystemObject")
[/vba]
Здравствуете! Скажите, пожалуйста, что сделать чтобы заработал макрос "Просмотр информации о дисках компьютера". При выполнение выходить ошибка error 429 activex component can't create object Прочитал вес интернет, все связанные библиотеки DLL доступны и галочки установлены.
остановка: [vba]
Код
Set objFileSysObject = CreateObject("sñriðting.FileSystemObject")
остановка: Set objFileSysObject = CreateObject("sñriðting.FileSystemObject")
Ну судя по всему автор этого сборника специально автозаменой поменял в коде латинницу на кириллицу. Странновато как-то... Но всё равно за архив спасибо, поищу себе там что-то интересное.
остановка: Set objFileSysObject = CreateObject("sñriðting.FileSystemObject")
Ну судя по всему автор этого сборника специально автозаменой поменял в коде латинницу на кириллицу. Странновато как-то... Но всё равно за архив спасибо, поищу себе там что-то интересное.DrugON
да ладно Вам там текста-то - кот наплакал. основное - в коде.
наверное, если всерьез озадачиться - то можно найти подобные коллекции и на русском. в общем-то, достаточно много есть уже и здесь у Сергея, и у Дмитрия на excel-vba.ru , и у Игоря на excelvba.ru, и у Николая на Планете http://www.planetaexcel.ru/techniques/3/
есть еще сайт http://www.msoffice.nm.ru/ в свое время сильно мне помогший но сейчас мой антивирус (AVG) ругается на него и блокирует доступ. отключать антивирь и рисковать неохота.
кстати - я даже не уверен, что по приведенной ссылке есть примеры, отсутствующие на упомянутых русскоязычных ресурсах но если кому-то такой формат удобней (как, например, мне) - почему бы и нет?
да ладно Вам там текста-то - кот наплакал. основное - в коде.
наверное, если всерьез озадачиться - то можно найти подобные коллекции и на русском. в общем-то, достаточно много есть уже и здесь у Сергея, и у Дмитрия на excel-vba.ru , и у Игоря на excelvba.ru, и у Николая на Планете http://www.planetaexcel.ru/techniques/3/
есть еще сайт http://www.msoffice.nm.ru/ в свое время сильно мне помогший но сейчас мой антивирус (AVG) ругается на него и блокирует доступ. отключать антивирь и рисковать неохота.
кстати - я даже не уверен, что по приведенной ссылке есть примеры, отсутствующие на упомянутых русскоязычных ресурсах но если кому-то такой формат удобней (как, например, мне) - почему бы и нет?ikki
помощь по Excel и VBA ikki@fxmail.ru, icq 592842413, skype alex.ikki
Сообщение отредактировал ikki - Четверг, 26.06.2014, 13:58
Саш, если уж у меня на работе маниакальный Тренд Микро на сайт пускает и не ругается, то там точно чисто от вирусов как в стерилизованном молоке.
Саш, если уж у меня на работе маниакальный Тренд Микро на сайт пускает и не ругается, то там точно чисто от вирусов как в стерилизованном молоке.Alex_ST
Я как-то пару лет назад (полюс-минус год) на этом сайте что-то подцепил нехорошее. Но это был единичный случай. Дальше все нормально было. Может, твой антивирь просто запомнил тогданее состояние и ругается не проверяя заново, а потому, что раньше там что-то было?
Я как-то пару лет назад (полюс-минус год) на этом сайте что-то подцепил нехорошее. Но это был единичный случай. Дальше все нормально было. Может, твой антивирь просто запомнил тогданее состояние и ругается не проверяя заново, а потому, что раньше там что-то было?_Boroda_