Форум программистов и сисадминов Киберфорум

Темы раздела VBA

Макросы в отечественном ПО Р7-Офис
Президент поручил отечественным госкомпаниям с начала 2025 г. перейти на российские операционные системы и офисные пакеты. Требование о переходе на отечественные ИТ-решения было сформулировано в...

Удалить строки с пустыми ячейками в определенном столбце
Добрый день! Надеюсь на Вашу помощь! Необходимо удалить из формализованного отчета строки с пустыми ячейками в столбце М, начиная со строки 26 (желательно используя массив).

VBA Открыть диалоговое окно выбора файла
Вопрос знатокам, в автокаде версии 32-бит была возможность использования CommonDialog, в 64-х её нет. Как можно обойти этот момент и сделать выборку файла не прибегая к использованию lisp?

Запуск макроса из дополнительной книги
Здравствуйте, Уважаемые! Помогите пожалуйста чайнику решить задачку... Есть три книги, условно - Книга1, Книга2 и Книга3 В книге1 прописан макрос копирования данных из книги2. Работает нормально....

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

Выцепить первые буквы слов из ячейки
Приветствую! В ячейке А1 записано "Завод колбасных и молочных изделий" Как записать в ячейку А2 только первые буквы? То есть должно получиться "Зкими"

Увеличение диапазона выбора ячеек для таймера
Здравствуйте Макрос в приложенном файле действует по принципу: Есть столбец где отсчитывает таймер, в столбце можно выбирать ячейку в которой можно запустить таймер. Мне нужно сделать так...

Получить количество файлов и папок в папке
Есть папка. В папке сколько-то папок и сколько-то файлов, не открывая папку. Нужно узнать сколько папок и сколько файлов. какое то свойство типа Count

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

Не работают двухбайтовые типы
В инструкции от Майкрософт https://learn.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/data-types/ есть 2ухбайтовые переменные в частности это Char и Short но у меня они не работают и...

Нужно создать скрипт VBA который будет выводить выбранный диапзон дат, на новый лист (например от 01.02.2001 до 04.05.23
Нужно создать скрипт VBA который будет выводить выбранный диапзон дат, на новый лист (например от 01.02.2001 до 04.05.23 Помогите пожалуйста

Как записать кубический корень ?
Добрый вечер. Подскажите, пожалуйста, как записать такой корень в VBA: \sqrt{x+a}

Автоматическое копирование данных из PDF в Excel
Добрый день! Подскажите, какие существуют или какие вы видите способы копирования данных из pdf в excel и возможно ли это. У меня есть несколько макросов, работающих с ini-файлами, очень удобно -...

Проверить имя открываемого файла
Всем Доброе...!!! Мне необходима проверка, что пользователь действительно выбрал файл с необходимым именем (один файл). Когда я так проверяю, то все нормально. avFiles =...

Определение показателей успеваемости учащихся
Здравствуйте. Я зам декан. Мне надо определить успеваемость студентов и назначить стипендию на ее основе. Было бы здорово, если бы вы помогли мне определить их с помощью макросов. Данном файле пример...

Упорядочивание в excel
Добрый день! Возможно не по теме, но хотел бы поинтересоваться. Есть ли средства для windows, которые переносят названия каталогов и файлов в excel, чтобы каждая папка и файл лежали по своим ячейкам...

Код ВБА (word) под паролем
Здравствуйте, друзья! Остались несколько макросов, от прежнего нашего коллеги. Работают как надо, но вытащить бы часть кода для изменения под себя. Проблема: пароль на них. Не подскажете, можно...

Как перевести двумерный массив в одномерный?
Как сформулировать одномерный массив из положительных элементов двумерного массива? Я написал код матрицы 7x7 на VBA Const N=7, M=7 Dim Z(1 To N, 1 To M), i, j As Integer For i=1 To N For...

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

Как в VBA на форме сделать таблицу для заполнения пользователем?
я когда-то нашел в интернете MSFlexGrid.ocx, зарегистрировал его, добавил его как Control на Toolbox элементов форм и использовал его. Но он существует только в 32х версии. Сейчас пришла пора...

Как разделить пробелами строки в Excel? (C макросом или без)
У меня в книге 150 000 строк в столбце А, как мне вставить пустую строку после каждой 1000 строк, чтобы получилось: 1000 строк - пустая строка - 1000 строк - пустая строка и т.д. Пример столбца А:...

Запрограммировать кнопку на выполнение макроса из другого макроса
Всём доброго времени суток! Никак не соображу, как можно запрограммировать кнопку на выполнение функции в презентации из макроса в Excel. Есть кнопка в Excel, на которую завязана функция...

Запуск макроса при создании нового письма
Здравствуйте, форумчане. При следующем коде запускается макрос при получении нового письма: В модуле ThisOutlookSession прописан код: Private Sub Application_NewMailEx(ByVal EntryIDCollection...

Libre Office
доброго дня. я учусь на первом курсе и застряла в нескольких вопросах пожалуйста помогите объясните. мне нужно создать макрос с именем Font1, для выполнения форматирования текста - курсив ,...

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

Разбить документ Word на отдельные файлы по определенному признаку
Доброго дня! в VBA Word не силен, встречались задачи редко, прошу помощи. На просторах Инет нашел разбивку по страницам, но здесь в одном документе нужно разбить исходя из ключевого слова. В одном...

Забыл пароль надстройки XLA в Excel
Здравствуйте! Подскажите пожалуйста, есть ли возможность открыть доступ к модулям в надстройке Excel формата XLA если забыл пароль?

Макрос для переноса данных конкретных столбцов
Здравствуйте! Помогите составить макрос, чтобы дополнять данные. Необходимо открыть файл "Книга2", скопировать данные по столбцам, указанным в файле "Книга1" (выделены желтым), вставить ниже...

VBA AUTOCAD посроение линии по координатам из Эксель
Работаю на VBA совсем недавно, пишу программу для автокада, которая берёт координаты их эксель и делает построения точек в чертеже. Рядом с точками так же отображается текст. Пытаюсь сделать так...

Определить значение показателя В
Определить значение показателя В. больше никаких чисел нет, матрицы не даны, только сама формула

Как формулу превратить в статическое значение?
Такая ситуация есть ячейка в которую записана формула нужно заменить её на значение. Я снял подробное видео: 1ая часть https://youtu.be/-RMY0zxymik 2ая часть https://youtu.be/Nh0fFnydI9k со...

Отключить вставку из буфера обмена на листе Excel
Народное творчество. Для создания сводных мероприятий рассылаю по организациям анкеты в виде книги Excel. Организации должны заполнить столбцы E-N. Данные для столбцов E и F берутся из списка...

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

Макросы из надстройки Excel не запускаются
По видео Николая Павлова хотел создать свою надстройку. Но макросы не запускаются. Я где ошибся. Приложу файл надстройки.

Определите число Фибоначчи с номером n (используя формулы f0=f1=1; fn=fn-1+fn-2; n>=2)
Определите число Фибоначчи с номером n (используя формулы f0=f1=1; fn=fn-1+fn-2; n>=2). Помогите решить данную задачу через массив на vba

Как написать правильно динамически изменяемую форму userform в Excel?
Пишу сейчас программу для Excel для получения выборки определенных данных. Т.е. вначале запускается userform с кучей меню (ComboBox), в которой пользователь выбирает определенные пункты меню, а в...

Кодирование в VBA: найти длину гипотенузы
Добрый вечер друзья, помогите, пожалуйста, написать эту задачу в VBA 1.Даны длина катета, найти длину гипотенузы 2.Найти количество дней между датами. 3.Написать функцию, вставляющую подстрока в...

Обработка и сохранение всех файлов в папке
Добрый вечер господа сочувствующие! Записал макрос для обработки строчек в столбцах - всё устраивает, но не могу научить его обрабатывать все файлы 150 шт. из нужной мне папки с последующим...

Вставка рисунка в Word
Здравствуйте у меня есть код , я могу выбрать картинку из папки, как мне прописать что бы эта картинка вставлялась в word. Помогите пожалуйста, промучалась 2 дня. Sub SomeName Dim abc As...

Объект Recordset: "Операция не допускается, если объект закрыт"
Добрый день! Прошу помочь разобраться. Код ниже успешно обращается к базе и выгружает данные на лист Excel только в случае, если выполняется ОДИН запрос. Если в процедура выгружает несколько...

Замена на UserForm_Initialize
Здравствуйте уважаемые форумчане! Появился такой вот проблемный вопрос. На UserForm_Initialize есть определения Private Sub UserForm_Initialize() zagolovok = "med" zagolovok1 = "qvarc" zagolovok...

Как вставить оператор (КОПИРОВАНИЯ диапазона ячеек первого столбца таблицы) в имеющийся МАКРОС
Ребят ситуация следующаяя.Есть готовый макрос,который я применяю и в него мне нужно вложить оператор копирования диапозона ячеек первого столбца.Задача не сложная для ребят которые понимают логику...

Плавная сортировка
Напишите пожалуйста готовый код плавной сортировки с одномерными массивами на VBA Заранее, спасибо!

Создать цикл при нажатии на кнопку
Здравствуйте! Необходимо создать такую кнопку которая будет выполнять определенныц цикл действий при нажатии Изначально кнопка имеет название "Добавить имя 2" 1. При нажатии на кнопку...

Найти количество однокомнатных квартир в доме
Дано количество комнат в квартирах 20-квартирного дома. Найти количество однокомнатных квартир в этом доме.

Replace слов такого вида $текст
Всех приветствую! Есть текст в котором встречаются слова такого вида $текст пытаюсь их все заменить на пусто str = Replace(str, "$*", "", 1, , vbTextCompare) но ничего не выходит, что я...

Управление разрывами страниц
Добрый день. Имеется следующая задача. Имеется форма Торг-12: Заголовок, табличная часть, и подписи. Смысл такой, что если на последней странице нет табличной части, то необходимо на нее...

Отображение округленного числа в ячейке и .Value
Добрый день, уважаемые форумчане! Возможно, вопрос рассматривался, я честно искал но не нашел. Такая проблема - беру .value ячейки, привожу к Single, плюсую к нему, округляю раундом до 4 знака и...

Удаление фрагмента в xml файле Excel
Здрасте, может кто сможет помочь? Пытаюсь написать макрос, который сначала предлагает выбрать файл Excel, затем сам редактирует styles.xml выбранного Excel-файла, а именно: удаляет фрагмент,...

Пропуск итерации цикла For
Не получается корректно пропустить итерацию, выдаёт ошибку Expected: expression For k = 1 To 154 ... If k = 84 Then Sheets(2).Cells(k, 2) = " " Continue For

Можно ли добавить строку UDF функцией?
UDF функции имеют некоторые ограничения и поэтому меня интересует такой вопрос.

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

Сохранения листа Excel в pdf с названием из ячейки
Добрый день, многоуважаемые Форумчане. На этом форуме нашёл формулу для сохранения листа Excel в PDF формате с названием из определённой ячейки. Привожу эту формулу ниже и ссылку на неё. ссылка:...

Сравнение файлов с одинаковым названием
Здравствуйте. Коротко: имеются 2 папки с файлами excel, названия файлов ОДИНАКОВЫЕ. Требуется через макрос узнать чем эти файлы отличаются. Структура файлов проста: 4 вкладки, в каждой до 200 строк...

Дана дата в виде строки в американском формате месяц/день/год. Переделать ее в русский формат день.месяц.год. проверить
1)Дана дата в виде строки в американском формате месяц/день/год. Переделать ее в русский формат день.месяц.год. 2)проверить правильно ли задан месяц и день. помогите пожалуйста, уже долгое...

Алгоритм. Построение блок-схемы. Excel
СРОЧНО!!! Определить значение переменной z при вводе положительных значений x от 0 до 100 с шагом 1, переменная y принимает значение 1 при x от 40 до 60, в остальных случаях y = 0. Вывести...

Как нажать программно созданную CommandButton
Добрый день! Задача, которая стоит передо мной, заключается в систематизации учета (прихода/расхода) комплектующих, расходных элементов и запасных частей на нашем производстве. Сразу оговорюсь, я...

Задача переноса данных из PDF -файлов (файла) на лист Microsoft Excel
Здравствуйте! Задача переноса данных из PDF -файлов (файла) на лист Microsoft Excel. Веселая задачка… Особенно если надстройку PQ использовать на работе нельзя, программы распознавания или...

Форма во весь экран и содержимое формы
Доброе время суток! Подскажите сделал форму во весь экран, но содержимое не тянется за формой

Нужно перевести код из паскаля в VBA
Нужно перевести код из паскаля в VBA Excel для макроса Само задание: Шары расположены в форме треугольника так, что в первом ряду находится один шар, во втором – два, в третьем – три и так далее....

VBA AUTOCAD экспорт координат в блоков в эксель
Этот код сохраняет всё в txt файл, не могу додумать как преобразовать это для эксель, помогите пожалуйста Sub ExtractDetailsOfAutoCADBlocks() Open...

Ввести год, месяц, день. В зависимости от даты вывести: прошлое, настоящее будущее
vba excel

Протянуть формулу до конца таблицы
Добрый день! Подскажите, как протянуть формулу до конца таблицы? Таблица не статична, может быть больше или меньше. .Value = IIf( <> "", , "")

Текст весь становится гигантского размера, а иконки остаются нормального размера
Здравствуйте, возникла следующая проблема: При открытии ВБА происходит странная вещь, текст весь становить гигантского размера, а иконки остаются нормального размера. Причем блоки с текстом...

Склонение ФИО
Поставлена задача. Мне с ней в одиночку не справиться. Прошу помощи. В форме Результат выбрать из открывающихся списков фио и пол, а результаты должны отображаться в соответствующих полях и падежах...

Написать цикл по строкам с предварительным отбором
Всем привет. История такая. Настраиваю подгрузку больщих файлов эксель. Нужно выбрать в переменные из 50+ тыс строк нужные по условию на данный момент перебираю циклом от первой до последней...

Из открытой страницы HTML в таблицу Excel
Доброго времени суток, друзья! Под открытой страницей подразумевается некая html-структура, код которой можно смотреть, по правой кнопке мышки. На этой странице есть буквенно-цифровая информация,...

VBA AUTOCAD построение 2D сетки по координатам из эксель
Люди добрые, такой вопрос, есть код в теории создающий 2D сетку по координатам из эксель, а на практике выдаёт полную чушь. Начинаю только работать в VBA, поэтому многое не понимаю, помогите...

Пересохранить файлы в папке с расширением ".xlsm" на ".xlsx"
Добрый день! Кстати у меня к Вам еще один вопрос (я просто искала решение и нашла код здесь на форуме и у меня есть вопросы), но это наверное отдельно тему надо создавать... Вопрос, который хотела...

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

Вставка объекта неосуществима
Кнопку для запуска обычно через Вставка-Фигуры и все, дальше макрос, userform и т.д. А тут по заданию потребовалось ActiveX вставить на лист. И приехали - "Вставка объекта неосуществима". Гуглил....

Подгрузка кода в макрос Word из текстового файла
Здравствуйте! Не подскажете, можно ли сделать так, чтобы код в макрос загружался из файла txt, а в самом макросе было только указание пути к этому файлу и какой-то код загрузки его содержимого, для...

Выбрать с листа "юристы" выпускников окончивших АМВД. Выровнять структуру выходной информации
Здравствуйте! Помогите решить задачку в Exсel. Помогите создать макрос на VBA. есть таблица основная и задания. Написать макрос на VBA (объект "Кнопка"). Задание Выбрать с листа "юристы"...

Статика в классах или что за магическое статическое property
Всем добрый день! Вот сижу и уже битый час пытаюсь, то нагуглить то просто интуитивно накодить и понять что значит статической свойство в классе и как его использовать? Вот пример кода: '...

Отформатировать таблицу по заданным параметрам
Приветствую всех. Отформатировать таблицу по заданным условиям: Очень хотелось бы сделать макрос и победить. Даны таблицы с данными. (скрины-примеры шапок таблиц прилагаю). Сами таблицы скидывать...

Поиск значения и вставка значения из соседней ячейки
Добрый день. Помогите, пожалуйста, создать макрос. Суть такая: Требуется сделать поиск значения начиная с D7 (открытой книги 1 - названия могут отличаться, поэтому применить к открытой) по столбцу D...

Как сделать так ,чтобы этот МАКРОС работал на всех листах книги, а не только на активной
Добрый вечер друзья. Пожалуйста, подскажите, как сделать, чтобы этот макрос работал на всех листах книги, а не только на активном? Sub MMM() With Selection .Cells.UnMerge ...

Нужно написать простой код через цикл for

Работа c VBA: ремонт котельных
Добрый день! Нужна помощь. На UserForm1 в VBA есть ComboBox1 в котором необходимо выбирать Листы1..2..3 из Книги и вставлять из этих листов некий диапазон данных в ListBox1на этой же UserForm1.

Обратиться к книге которая выгружена из базы и не сохранена
Здравствуйте! Из базы выгружена книга Excel, ее нет необходимости сохранять, мне нужно взять из нее несколько значений. Как можно обратиться к этой книге в своем коде из ThisWorkbook?

Импорт определенной части данных из текстового файла в Excel
Добрый день, Прошу помощи в создании макроса под импорт данных из текстового файла в Exel, переносимый текст должен начинаться с APM(остальное до APM и после последних значений строки не требуется...

Колесо фортуны в Power Point
Привет всем! Внезапно прилетело задание, времени разбираться с новым ЯП нет совершенно. Нужно сделать что-то вроде колеса фортуны в Повер поинте, чтобы оно вращалось какое то рандомное число секунд...

Создать макрос: дневные и ночные температуры
1. Даны дневные и ночные температуры за неделю. Найти среднюю дневную температуру и среднюю ночную температуру за неделю, а так же разницу между этими средними температурами. 2. Дан ряд диапазон...

Нужно интегрировать формулу vba
Как решить задачу,сам ничего не понимаю,нужно написать программу на vba гле 36 это n шагов

Оптимизация простого макроса
Добрый день! Прошу помочь оптимизировать макрос. Задача в Excel: Имеются листы "Р21" и "Отчет", из этих двух листов надо сформировать 3ий лист "НГА" с необходимой информацией из предыдущих...

Глобальный хук на мышь Excel
Здравствуйте! Недавно наткнулся на тему с глобальным хуком на события клавиатуры и мыши (https://www.cyberforum.ru/blogs/354370/blog1943.html) Очень захотелось себе в эксель событие mouseUp без...

Собрать таблицу с макросом
Переменные dl и xl в макросе определил, массив pp в макросе определил, на основе массива pp определил массив gp, массив z определил. Теперь надо собрать dl, xl, pp, gp, pp в один массив lev,...

Две книги с данными, найти соответствующие строки из первой во второй и скопировать их в созданную третью
Добрый день. Сразу говорю: программист я начинающий. Есть книга, из которой запускается макрос VBA, она открывает файл "old_sp.xls" (таблица со старыми данными граждан: Фамилия, Имя и тд.,...

Нужна помощь по макросу для извлечения текста из изображения
Доброго времени суток. Моя цель - создать макрос VBA для извлечения текста из файлов форматов .png и .jpg при помощи библиотеки Tesseract OCR. Библиотека установлена по следующему местоположению:...

Нужно найти вероятный шаг
Добрый день, всех с новым годом! Возобновил тему, так как ответа не получил(((( Может было пояснение дурацкое... Попробую заново Есть таблица данных кол-во нужно найти закономерность коли-во...

Обратиться к последнему созданному файлу или к файлу по индексу
Всем доброго дня. Столкнулся с интересной особенностью. Как при помощи vba удалить файл "thumbs.db" из папки? Я нашел выход, перебираю все файлы в папке при помощи "For Each file In ****.Files", и...

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

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

Выдает ошибку Run-time error '5': Invalid Procedure call or argument
Sub Комбинированные_вычислительные_процессы() Dim a As Integer Dim x As Integer Dim b As Integer Dim c As Integer Dim t As Integer Dim v As Integer a = InputBox("Введите a") x =...

Ворд найти и заменить
здравствуйте, имеется вордовский файл *.docx и список, например: lst = как в вордовском файле 1 весь текст сделать чёрным шрифтом 2 найти данные из списка именного чёрного цвета 3 подкрасить...

Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r
Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r (нужен код VBA)

Задать разный размер изображениям
Есть код, который выводит изображения .jpg в ворд с подписями. Изображения двух типов альбомной ориентации и портретной(т.е с поворотом на 90 градусов). Как задать всем изображениям разный размер в...

При инсталляции надстройки возникает ошибка 1004
Приветствую знатоков VBA! Впервые делаю самоинсталлируемую надстройку по методике: ...

Создание интерактивного дерева декомпозиции
Всем привет! Подскажите, пож-ста, в эксель возможно сделать интерактивную визуализацию декомпозиции папок, аналогично как в power bi?...

Можно ли сделать, чтобы функция возвращала два результата?
Можно ли сделать, чтобы функция возвращала два результата: адрес ячейки или ее значение? Пример: myFunction(2,3,1), где 2 - столбец, 3 - строка, 1 - вернуть адрес ячейки, myFunction(2,3,2), где 2...

Как VBA закомментировать сразу несколько строк?
как VBA закомментировать сразу несколько строк, чтоб каждую не начинать ковычками?

Как получить путь к файлу и имя этого файла в переменные
Добрый день, Задача проста, есть решение, но оно не изящное, хотелось бы оптимизировать код. Все делается в VBA Excel 2010. Необходимо выбирая случайный фаил получать полный путь к этому файлу,...

Макросы вставки строки сверху/снизу...
Здравствуйте! Прошу вас помочь, сам я точно не справлюсь!! В таблице, скажем, из 4-х столбцов (A,B,C,D) необходимо добавить строку сверху. При этом по столбцу A происходит автоматическая...

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

Удаление листа без запроса на подтверждение.
как решить проблему незаметного удаления листа, чтобы не появлялся запрос на подтверждение?

Сохранение листа в из книги как отдельный файл.xls
Процедура по нажатию кнопки-сохранить к примеру лист3 из текущей книги как отдельный файл.xls с названием текущей даты в отдельную папку. А также если файл с таким названием уже существует, тогда...

Сортировка массива по возрастанию и убыванию
В ячейках H1:H10 записаны числа. Написать программу сортировки этого массива по возрастанию

Вернуть адрес ячейки на Excel VBA
Как вернуть адрес выделенной ячейки? Dim name As String Worksheets("input").Activate name = ActiveCell.Value необходимо получить номер строки и столбца, выделенной пользователем ячейки....

Подскажите оператор "не равно"
Здравствуйте уважаемые участники форума! Я новичок здесь, у меня есть одна задача примитивная состоящая из двух кнопок про треугольник, первая кнопка работает и все нормально, a вторая почему то не...

Вытянуть данные из закрытых книг в Excel
Следующая ситуация: В ячейке А1 активной книги прописан полный путь к *.xls файлу, в ячейке А2 - к другому файлу и так далее в столбце А. Каждый из этих файлов имеет одинаковую структуру и из...

Вставка текста из Excel в Word
Здравствуйте, ув. форумчане. Помогите начинающему. У меня есть экселевский файл с реквизитами клиентов. могу ли я сделать, чтобы по нажатию какой-нибудь кнопки(или по запуску макроса) создавался...

Проверка ячейки на содержание слова
Подскажите, как написать в vba, проверку ячейки на содержание слова? Например в ячейке cells(1,1), предложение: Форум программистов. Надо проверить на содержание слова 'форум' Мне нужно что-то...

Вызов UserForm
В общем, у меня есть форма, мне нужно, чтобы она вызывалась, не заходя непосредственно в VBA, кнопку вынести или сочетание клавиш назначить, можно так сделать? :)

Преобразовать текст в число
Добрый день! помогите решить проблемку. Есть таблица exel в одной из колонок находятся числовые данные в текстовом формате. Какможно средствами VBA преобразовать текст в числовые данные?

Экспорт таблиц из access в excel и наоборот
Как импортировать таблицу excel в access и наоборот в vba?

Получение значения переменной из ячейки
Sub Макрос1() ' ' Макрос1 Макрос ' ' m = Cells(1, 1) ' получение значения ячейки из A1 (может я я тут что то не так сделал?) If m = 1 Then Range("H13:L13").Select

Удаление макроса из персональной книги макросов
Кто может подсказать, как правильно удалить макрос? Я сохранил макрос в Личную книгу макросов. Когда пытаюсь удалить созданный макрос появляется сообщение: "Изменить макрос в скрытой книге...

Плавающая ошибка - runtime error 13 - type mismatch
В приложении файл с таблицей эксель и макросом. Для работы макроса - выделите ячейки ((1,3):(23,5)) выдает ошщибку, причем раз через раз, до некоторых пор с этим куском все работало отменно. Что...

Ошибка "run-time error '424' object required"
в следующем коде в строке 4 (открытие файла с расширением doc) выскакивает ошибка "run-time error '424' object required" Dim wdApp As Object Dim wdDoc As Object Set wdApp =...

Как узнать номер строки для активной ячейки?
Как узнать номер строки для активной ячейки? спасибо

Запуск макроса из другого макроса
Как в Word запустить из одного макроса другой? RunMacro куда засунуть?

Как получить имя листа в Excel
Нужно получить имя первого листа в книге (всего в книге предполагается 2 листа) и записать его в строковую переменную.

Как соединить две строки в одну
Суть такова - есть 2е переменные, нужно склеить их в одну. Например Per1 = "Hello " Per2 = "World!" Нужно получить третью переменную "Hello World!"

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

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

Как в макросах отключить предупреждения Excel?
Как в макросах отключить предупреждения Excel. В часности предупреждение при удалении листов из книги.

Выделить диапазон заполненных ячеек
Добрый день. помогите пожалуйста сообразить: как мне выделить диапазон заполненных ячеек в колонке 1: определяет первую заполненную ячейку: ActiveSheet.Columns(1).Find("*", , xlFormulas,...

Удаление символов из строки
приведите пожалуйста пример.

Run-time error 1004
На предприятий используется Екселевский фаил! привязан к базе Беста! И при формирований документов выводит Run-time error"1004" Общая ошибка "ODBC" Я так понимаю это проблемма связанна не с...

Error 9: Subscript out of range
Господа, всем добрый день мне нужно исправить ошибку в программе для Microsoft Excel 2003 После ввода данных в форму, вылезает Error 9. Вот кусок кода с ошибкой Может кто-нибудь помочь с...

Копирование строки из одной книги в другую
Необходимо скопировать строку под номером 10 с активного листа активной книги, открыть книгу например С:\test.xls (с одним листом) и вставить скопированные данные в 5 строку. Помогите пожалуйста....

Макрос поиска и вывода строк, содержащих значение поиска
Здравствуйте! Есть макрос для поиска значения из ячейки А1 по всему листу и копированием строк из всех листов, содержащих это значение. Но есть и проблема: макрос поиска ищет только цифровые...

Выдает ошибку Run-time error 1004
Sub Макрос5() ' Dim Sht As Worksheet Dim a As Long, b As Long, c As Long, i As Long Set Sht = ThisWorkbook.Worksheets("1") ...

Как указать адрес ячейки через переменную
Нужно в ("C5:C116") вместо С116 вставить переменну i, которая обозначает ячейку. Подскажите пожалуйста как это реализовать?

Группировка строк в Excel (макрос)
Помогите, пожалуйста, я так устала вручную группировать строки. Как написать макрос, чтобы в таблице EXCEL строки автоматом группировались по одинаковым названиям в первом столбце. Т.е. сбоку слева...

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

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

Сохранить файл Excel с именем, содержащимся в ячейке
Есть - EXCEL-овский файл, в некой ячейке (например A1:A1 первого листа) содержится (или формируется) некое имя (типа простой текст, например, название и т.д.). Надо, чтобы по нажатию простой кнопочки...

Ошибка application-defined or object-defined error
При выполнении кода Range("DateAdd").Select Selection.Resize(Selection.Rows.Count, _ Selection.Columns.Count - 1).Select выскакивает ошибка-run-time error '1004':...

Последний столбец и последняя строка на листе
Конструкция ниже определяет на текущем листе последнюю строку, заполненную данными lastRow = Cells(Rows.Count, "B").End(xlUp).Row Как таким же образом определить последний столбец с данными на...

Поиск ячейки по значению
Здравствуйте! У меня есть таблица, она находится в левом верхнем углу листа Excel. Я считываю из нее данные, делаю расчеты и вывожу в другой лист результат. Нужно, чтоб программа правильно работала,...

Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой
Всем привет! Как в MS Excel сделать выпадающий календарь при выборе ячейки мышкой?

Как очистить буфер обмена?
вот собственно и весь вопрос Заранее спасибо

Присвоение переменной имени книги и листа
Есть файл (Расчет.xls). В нем 3 листа(Лист1, Лист2, Лист3). Как при открытии файла присвоить переменной (F) имя файла и имя нужного листа для использования в range(F.cells(....))

Выход из цикла на месте выполнения условия
Private Sub CommandButton3_Click() 'Решения уравнения в форме Dim X1 As Double Dim X2 As Double Dim X3 As Double Dim E As Double X1 = Val(TextBox3.Text) 'Начало интервала X2 =...

Удаление лишних пробелов
В заданной строке удалить все лишние пробелы. Прошу помощи.

Как сделать выравнивание текста в ячейке
Мпа, добрый вечер!:D Скажите, пожалуйста, как сделать выравнивание текста в ячейке средствами VBA? Какое свойство за это отвечает? Заранее спасибо за ответ!

Поставить кавычки (" ")
Всем добрый день! Коллеги подскажите пожалуйста как можно в ячейку с помощью VBA поставить кавычки (вот такой знак - ")? Я только нашёл способ сделать это с помощью функции Chr(34). Код выглядит...

Передача значения ячейки в переменную.
Доброго дня. Ворос такой: есть файл .xls, надо брать значение из диапозона ячеек, и сравнивать их с другим файлом. как можно это сделать в цикле???

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

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

Как использовать ReDim Preserve для двумерного массива
Создали, например, mArr(n, 4). При определенном условии в ячейке первого столбца, нужно загнать в этот массив еще несколько значений из той же строки. mcounter=0 For i=1 to endRow ' ...

Задать диапазон ячеек через переменные
Привет! такой вопрос: мне надо задать диапазон ячеек. обычным способом типа Range("A1:A100") - неактуально, поскольку какое А100 у меня - неизвестно т.е. А100 - плавает. Мне нужно чтобы это...

Макрос - имя листа по имени ячейки
Господа, помогите нубу:) Вот в чем вопрос: 1. Нужно что бы имя листа менялось по имени ячейки. я находил подобный макрос, но...имя листа почему то менялось только один раз и потом на изменение...

Вывод массива на экран
Привет. Извините за глупый вопрос, но подскажите пожалуйста, как в MsgBox вывести двумерный массив, размерность которого задается в программе, чтоб он весь был в этом окне? т.е. например массив 3x3...

Очистка данных в ячейках
Подскажите пожалуйста как можно очистить ячейки данных в VBA?

Выделение фрагмента текста в Word, заключенного между заданными словами
Добрый день! Помогите, пожалуйста с кодом макроса! Дан файл с текстом: ............. ...Олег.... ............. ...Иван.... .............

Вывод данных в ячейки Excel
Подскажите пожалуйста, как сделать так, чтобы при нажатии кнопки результат, результат выводился в определенную ячейку?

Добавление выпадающего списка к ячейке
Всем, привет! Ситуация: программно создается несколько книг. Необходимо что бы в ячйках A1, A2,A3 созданных книг появлялся выпадающий список известных значений(значения текстовые). Помогите с...

Перебор ячеек в столбце exel
Добрый день, Товарищи! Не совсем понимаю еще exel. Задача, перебрать все строки (ячейки) в одном столбце и выполнить условие. Вот условие, если в чейке сегодня, то закрасить всю строку красным....

Создание документа Word из Excel
Доброго времени суток. есть макрос в excele надо создать документ ворд заполнить его по шаблону некоторыми текстовыми данными после чего создать таблицу и заполнить её данными из таблицы excel ...

VBA excel функция Find - принцип поиска
Добрый день, уважаемые форумчане! В очередной раз обращаюсь к Вам за помощью. Имеется следующий код: dim kodG as single kodG = Cells(Selection.Rows.Row, 7) 'Запоминаем код графика...

Самый быстрый метод поиска в массиве
Пишу в Excel макрос. По условию имею массив около 1 000 000 записей, каждая запись представляет из себя строку: формата - , это пример. В первых двух вертикальных линиях ||,в строках массива...

Как можно узнать backcolor (цвет заливки) для активной ячейки
ActiveCell.BackColor - так не работает, а еще как можно?

Поиск слов в документе средствами Word
Есть какая нибудь функция реализующая алгоритм стандартного поиска Word`а ? Просто перебор коллекции Words явно медленнее...

Макрос копирования по условию
Добрый день форумчане, нужен макрос для копирования строк с определенным значением в столбце с основного листа на лист2; второй макрос - для копирования с этого же листа на лист3 если значения...

Как добавить файл Excel в виде значка в презентацию PowerPoint
Добрый день! Подскажите, возможно ли с помощью кода добавить файл EXCEL в виде значка в презентацию PowerPoint? Много форумов просматривал, но нигде не нашел. Если это невозможно, то как сделать...

Передача массива в процедуру
Ребят, подскажите пожалуйста, подзабыл Есть на листе Excel произвольный массив. Как его передать в функцию,ну и в дальнейшем работать с этим массивом(определить его верхнюю границу,например)?

Макрос не работает в 64bit
Здравствуйте, макросы были написаны на 32-разрядной системе. заменили компы на вин 8 64бит. Столкнулся с проблемой "the code in tthis project must be updated for use on 64-bit systems. please...

Макрос: копирование данных из одного файла в другой
Здравствуйте! Хочу сделать макрос на копирование данных (в определенном диапазоне ячеек) из файла "шаблона". К примеру я открываю какой нибудь файл (имена файлов могут быть различны), запускаю...

Макрос для копирования информации с одного листа на другой по определенным условиям
Доброго времени суток, Гуру excel!!! Помогите написать макрос который будет копировать нужные данные по определенным условиям с одного листа и вставлять на другой, если конечно это возможно... ...

Ошибка выполнения макроса Runtime Error 9: Subscript Out of Range
Здравствуйте, у меня есть написанный макрос для Exel 2003 на нескольких компах работает , а на нескольких компах выдает ошибку Runtime Error 9: Subscript Out of Range причем систем и офис...

Сравнение двух столбцов листа и выведение совпавших данных
Доброго времени суток. Возникла такая потребность: имеется лист со столбцами A и B. В столбце A находятся данные, которые нужно сравнить с имеющимися в столбце B. Сравнивать ячейку нужно со всем...

Спойлер в Ворде
Здравствуйте, не подскажите как создать?

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

Копирование-вставка (буфер обмена)
Народ не ругайтесь слишком сильно, есть код на VBA TextBox1.SelStart = 0 TextBox1.SelLength = TextBox1.TextLength TextBox1.Copy из которого ясно что данные текстового поля копируются...

Рисунок на задний план в Excel
Здрасти У меня есть рисунок (Овал)прозрачный, необходимо поместить овал на задний план т.е. за текстом на листе при этом при клике как обычно (без рисунка)выделяется ячейка. Заранее благодарен...

Как ввести в VBA arcsin, arccos
или arctg Подскажите, пожалуйста. Заранее спасибо

ComboBox: добавить значения для выбора
Как в ComboBox добавить стандартные значения, которые потом можно будет выбирать?

Как устранить ошибку: "user-defined type not defined"?
user-defined type not defined - эта ошибка возникает тогда из Excel должен создаться документ отчета у Word, а при запуске на исполнение на первой строчке нижнего примера возникает ошибка. Вот...

Как разделить строку из ячеек в массив?
Всем привет, друзья! Кто знает, подскажите что не так делаю: Задача Поместить в массив значения разделенные пробелом из InputBox . Мое кривое решение Копирую значения трех ячеек из...

Пропал MS DTPicker
Доброго времени суток! У меня Win XP, Office 2003. Начал в Word'е делать пользовательскую форму. Вставил в форму DTPicker. После переустановки системы и офиса при открытии формы в VBA ругается, что...

Закрыть книгу без сохранения
По данному коду закрывается файл Private Sub CommandButton10_Click() ThisWorkbook.Close (False) 'без сохранения изменений End SubА как закрыть книгу без сохранения?

Выделить ячейки с B4 и до последней заполненной
Я Вас уже, наверное, достал, но мне нужна Ваша помощь. В общем мне нужно в макросе прописать выделение диапазона ячеек, начиная с B4 и кончая последней заполненной. Напишите, пожалуйста, как...

Как остановить выполнение макроса в самом макросе?
Подскажите, пожалуйста, можно ли остановить выполнение макроса в самом макросе.. имею ввиду аналогию команд типа halt, exit... Есть вариант End Sub, но он не подходит - процедура вызывается из...

Закрытие активной формы
И еще один вопросик небольшой ))) Скажите, пожалуйста, какой функцией VBA закрывается формочка ? Хотелось бы прописать, мол, если пользователь закрывает активную форму(которая до этого высветилась...

Посчитать сколько символов содержится в строке
дана строка символов.посчитать сколько символов содержится в ней. Private Sub CommandButton1_Click() Dim stroka As Variant, k As Integer, char As Variant 'объявляем переменные stroka = ? k = 0 ...

Как через макрос добавить столбец?
Как через макрос добавить столбец? В объемной таблице я ищу нужный столбец. If DialogSheets('d1').Show = No Then GoTo M10 Worksheets('1').Activate Range('A2:BA2').Select ...

Обьединение нескольких листов данных в один макросом
Здравствуйте, подскажите пожалуйста. У меня есть 30 листов с данными Мне нужно объединить их в один лист. Как мне записать макрос? Я копирую данные из первого листа выделяю до последней ячейки с...

Определить количество дней для определенного месяца и определенного года
Составить программу, которая по заданным году и номеру месяца m определяет количество дней в этом месяце.

Макрос для вставки макроса в Excel
Собственно, вопрос в названии. Можно ли написать макрос, который будет добавлять другой макрос в другой файл?

Can't find project or library, Excell файл открыть не могу
Здравствуйте, у меня есть файл ексель с макросами, раньше все работало нормально, сейчас открываю и выдает ошибку "Microsoft Visual Basic for Applications" "Сan't find project or library", далее...

Удаление строк в Excel на VBA.
Прошу помощи у специалистов. Есть массив (2 столбца) на одном листе. Со временем в одном столбце некоторые ячейки оказываются пустыми. Надо удалить (НЕ очистить) те строки, к которым принадлежат эти...

Как прервать работу зацикленного макроса, если CTRL/Break не "того"?
Привет. Макрос (видимо) зациклился и колбасит уже час вместо положеных 10 минут. Ни на что не реагирует, собственно. Хотя параллельно могу открывать другие книги ексель для работы. Я так понимаю,...

Как использовать оператор GoTo
Спасибо

Вычисление суммы по диапазону в VBA
Есть ли в Vba функция суммы по диапазону.Диапазон вычисляется в программе.На листе функцию задать не могу т.к. таблица создается программно изначально размер неизвестен.

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

Почему вдруг начали появляться сообщения "ByRef argument type mismatch"?
Работал достаточно долго с программой. Проверял элементы по отдельности. Делаю сборку программы - и вдруг на все переменные стали появляться такие сообщения. В чем может быть причина?

Подсчет непустых ячеек в столбце
Всем доброго времени суток! Подскажите, кто знает: необходима простая функция для подсчета непустых ячеек в указанном столбце (либо диапазоне). Т.е аналог екселевской ПРОМЕЖУТОЧНЫЕ.ИТОГИ (СЧЗ) Для...

Найти количество четных чисел, содержащихся в диапазоне
Hello, world! Вот такую задачу перед нами, студентами, поставил товарищ преподаватель, НО попросил внести небольшие дизайнерские и соответственно головоломающие коррективы. Вот непосредственно...

Поиск макросом дубликатов в таблице excel
Регистрация: 19.01.2009 Сообщения: 2 Репутация:10 поиск макросом дубликатов в таблице эксель Приветствую появилась необходимость поиска повторяющихся улиц с номерами домов в таблице эксель с...

Макросы вставки строки снизу в таблице Excel
Здравствуйте! Прошу вас помочь, сам я точно не справлюсь!! В таблице, скажем, из 4-х столбцов (A,B,C,D) необходимо добавить строку снизу. При этом по столбцу A происходит автоматическая...

Ошибка "Can't find project or library" при открытии документа на других машинах
Здравствуйте уважаемые коллеги. Написал програмку :). Возника следующая проблема: она работает на компьютере на котором я её написал, а на двух других (с офисом 2003 и 2007) она работать...

Не удается открыть базу данных из-за ошибки чтения ее VBA-проекта
Ребят, подскажите, что делать. Уже перепробовала все способы решения проблемы, которые были в интернете. Если нажать отмена, то ничего не получается сделать. Если ок, то весь код VBA удаляется

Слушать порт из Excel
Добрый день. У меня есть устройство с адресом 192.168.90.50, оно через порт 2001 передаёт данные по сети. Возможно ли как-то слушать эти данный через VBA Excel? Какие надо подключить компоненты или...

Как получить список папок в заданной директории
Подскажите как получить список папок в заданной директории (при этом имена файлов в список попадать не должны)?

Перенос слов в ячейке Excel XP
Господа, каким образом можно задать программно из модуля перенос слов в определенной ячейке или диапазоне ячеек... HELP!!!

Какое значение содержит value пустой ячейки?
Какое значение содержит поле value у пустой ячейки?

Получить список всех поддиректорий в указанном каталоге
Помогите создать список подпапок в текущей папке. Мой код не помогает Dim a a = Dir(CurDir, vbDirectory) MsgBox aКод следует не раскрашивать, а выделять тегом ( в нашем случае) Выдаёт в ответ...

Свойство .Range для умной таблицы. Обращение по названию столбца
Добрый день. На листе имеется умная таблица с заголовками. При работе с ней макросами, я обращаюсь к ней так: WTName = "UT" Set WS = ThisWorkbook.Worksheets("Лист1") Set WT =...

Поиск по столбцу
Всем привет! Тема уже избитая, но все равно я не нашел ответа на вопрос. На таблице есть два столбца. В первом данные, во втором вычисления(формулы). Нужно найти значение в столбце при помощи...

ошибка "Run-time error '91': Object variable or With block variable not set"
приветствую! имеется документ на нескольких листах, заполняется по дням соответственно на многих листах есть даты текущего периода, в начале каждого месяца документ создается заново, для того чтобы...

Как побороть Code execution has been interrupted
Почитал другие форумы и не нашел ответа. Вот выдержка: " При выполнении вполне работоспособного кода выскакивает сообщение "Code execution has been interrupted". Строчка программы, на которой...

Как скопировать только цвет ячеек? Без формата
Есть столбец с разноцветными ячейками, содержащими текст. Справа от него столбец с цифрами. Еще правее столбец с процентами. Нужно, чтобы второй и третий столбцы были раскрашены так же как...

Как вставить CheckBox в ячейку Excel'я?
Вопрос такой. Надо составить опросник (анкету) в Excel. Варианты ответов я предполагаю помечать галочками (CheckBox). Как в ячейку Excel встроить CheckBox ? Не на форму, а именно в ячейку!

Как загружать в массив данные из Excel
:( Создал макрос в VISIO2010, но столкнулся с проблемой. Как загружать в массив данные из Excel. Есть ли такая возможность??????

Русская кодировка в Excel
Привет! Ребят, нужна ваша помощь. Написал один макрос на VBA. Протестировал его в Excel 2013 на двух компьютерах все работает корректно. На домашнем компьютере стоит русский Windows 8.1, на рабочем...

Скопировать несколько столбцов в один по порядку
Здравствуйте! Подскажите, пожалуйста, как сделать следующую вещь. Имеется произвольное число столбцов с произвольным количество строк. Необходимо, чтобы справа налево, все столбцы были сформированы в...

Макрос для переноса данных в виде таблицы из Excel в Word
Добрый день, помогите пожалуйста довести до ума макрос , который бы экспортировал определенные данные из таблицы в виде таблицы Excel в Word. Критерием для выбора определенной строки из всего объема...

Как работать в ListBox с несколькими столбцами
Есть ListBox с 4 столбцами (ColumnCount = 4) Есть 4 массива данных: элементу 1 первого массива соответствует элемент 1 второго, третьего и четвертого массивов. AddItem в ListBox нужно делать так,...

Адаптация кода для 64 битных систем (x64)
всем, здравствуйте. помогите пожалуйста решить проблему. Есть книга с макросами, написанная для 32 битной платформы - там все работает ок. Сейчас у меня win7 x64 и Office 2010 x64 и возникла...

Ошибка Run-time error 9: subscript out of range. В чем причина?
В VBA не очень шарю, но пришлось написать программу для выставления цен. Появляется ошибка, не могу понять, что не так. Задача: написать программу, которая берет число из ячейки F1, если оно...

Решение квадратного уравнения
Составьте программу на языке VBA для решения квадратного уравнения a *x^2 +b*x + =0 Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени...

Взятие данных из PDF
Взятие данных из PDF-файла с помощью VBA. Возможно ли это? Если возможно, то, наверное, понадобится какая-нибудь библиотека классов и соответственно справка по этой библиотеке нужна, чтобы...

Как узнать количество страниц при печати в Excel на VBA?
Убедительная просьба помоч!!! Как узнать количество страниц при печати в Excel?

Как узнать Item листа в книге Excel
есть большая книга (листов больше 1000) Не ругайте - так удобнее мне для своих целей Name листов меняются программно, а item - величина постоянная Мне нужно оперировать доступом к конкретному...

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

Макрос. Автозаполнение анкеты в Word. Нужна помощь
Делаю макрос для автоматического заполнения анкеты. Есть куча повторяющихся строк, например фамилия, имя, отчество и т.п. При выполнении макроса данные вставляются только в одном месте, т.е....

Узнать статус фильтра на рабочем листе: включен или выключен
как в VBA узнать статус фильтра на рабочем листе: включен или выключен? Кнопка включения фильтрации в столбце реализована как переключатель. Мне нужно в любой момент узнать статус листа: включена на...

Копирование текста между документами Word
' "Пусть надо скопировать текст из текущего файла в новый документ, ' с начала первой страницы, до 11 (включительно)". Dim rng As Range, s1 As Range, s2 As Range Dim bm As Bookmarks Dim tmpDoc...

Управление ошибками в VBA. Операторы On Error, Resume, объект Err
Информация из интернета: Ошибки в VBA можно разделить: Возбуждение ошибки может быть сделано самой операционной системой (VBA) или исполняемой процедурой(почти все они классифицированы и...

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

Возведение числа в степень
Ребята. Не математик я. Как возвести в степень число в VBA? Степень - целочисленная переменная. Возводим в степень двойку. Как, например возвести 2 в степень 8, не прибегая к For-циклу? Покопал...

Программно снять защиту с листа чтобы добавить строку
Добрый день! Есть макрос на добавление строки: Sub add_row() Rows(ActiveCell.Row).Insert Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row) End Sub На листе есть защищаемые...

Макрос для автоматической нумерации строк
Подскажите, пожалуйста, как исправить макрос чтобы строки нумеровались автоматически на листе, а также при удалении строки нумерация также смещалась. Private Sub worksheet_change (byval target as...

Как проверить наличие файла?
Нужно проверить есть ли файл по заданному пути ,например: "C:\Users\мвидио\Desktop\VBA\txt\123.txt" Нужно проверить не был ли удален этот файл пользователем!

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

Получение значений из ListBox в ячейку
Подскажите пожалуйста как мне получить значения из ListBox в ячейку, значений в ListBox может быть и 1 и 20. Заранеее благодарен.

Открыть диалог сохранения файла
Здравствуйте, господа программисты! Скажите, пожалуйста, как средствами VBA можно открыть меню на сохранение программно созданной книги документа (изображение "сохранение).jpg " в прикрепленном...

Как открыть форму, а Excel скрыть или вовсе не открывать
Собственно меня интересует как возможно открыть форму в документе эксель но так что бы была видна только форма при открытии документа а сам документ был скрыт или свернут?

Макрос копирования ячеек по условию в Excel
Здравствуйте господа программисты! Столкнулся с непосильной задачей. Знания в написании макросов на уровне новичка, да и то, в большей степени по примерам, так что прошу помощи. Буду благодарен за...

Excel VBA - Application defined error 1004
Добрый день, Помогите разобраться. Есть код Sub GetValues(f As Variant) Dim last_row As Long, last_col As Long Dim wb As Workbook Set wb = Excel.Application.Workbooks.Open(f) For Each sh...

Какое событие вызывает клик по крестику закрытия окна
Какое событие вызывает клик по крестику закрытия окна (правый верхний угол) ввода?

Макрос на замену каждого третьего слова в тексте на код EQ
Здравствуйте! Помогите, пожалуйста, создать макрос для замены каждого третьего слова в тексте на код EQ. Вот собственно в чем вопрос: Исходный текст: Однако громадные возможности компьютеров...

Вывод массива на лист excel
Всем добрый вечер. Собственно, проблема вот в чем, пользователь вводит количество столбцов и строк массива, после чего сам же вводит значения Как сделать так, чтобы это выводилось на лист excela? ...

Пересчет формул только для 1 листа
Подскажите, пож. Ситуация: программный пересчет объемных данных на листе 1; генерируются пошаговые значения, расставляются по таблицам, часть значений (используемых на следующем шаге расчета)...

Транслитерация из латиницы в кириллицу
Подскажите, вот нашел такой макрос: Option Explicit Function Translit$(iValue$) Dim iRussian$, iCount%, iTranslit As Variant iRussian$ =...

Цикл в обратном направлении
Можно ли в VBA сделать обратный цикл(что бы считал наоборот). На паскале он реализуется вот так. for k:=6 downto 1 do

Суммирование произвольного диапазона ячеек
Здравствуйте, уважаемые форумчане. Подскажите, пожалуйста, как можно сделать следующее - хочу просуммировать диапазон ячеек A (начальный номер) : A (конечный номер) и результат выдать, скажем в...

Запуск пользовательской формы при открытии файла
Пока нашел только такой способ Private Sub Workbook_Open() Application.Visible = False Call UserForm1.Show End Sub Но при запуске .xlsm видно как открывается книга, потом...

Как проверить пуст ли массив?
это продолжение темы. интересует грамотность записи If Массив(0) = "" Then ' вот эта проверка мне кажется неграмотная Добавлено через 1 минуту Еще интересно: как его грамотно начать заполнять....

Перенос данных с одного листа на другой
Добрый день! В книге два листа лист 1 с данными, лист 2 в него надо перенести некоторые данные. Так как данных много, возможно перенести автоматически В требуемые ячейки. Например "ФИО" в Одну...

Календарь, который понравится всем (готовое решение)
Сегодня я решил выложить настоящий календарь. Который реализован только встроенными объектами и методами и на обычной форме UserForm и нужна для этого только одна форма, больше ничего стало...

Макрос сортировки строк в Excel
Добрый вечер, помогите пожалуйста с макросом в excel 2010. Есть таблица шириной в 6 столбцев (A-F) длина не фиксированная, может быть любой. Задача макроса заключается в следующем, необходимо чтоб...

Сравнение двух массивов в excel
Всем добрый вечер! очень нужна Ваша помощь. Есть два массива (пример приложил, размерность у них условная, на самом деле 10 тыс. и более записей в каждом), если их сравнить, в предыдущем массиве...

Как сделать книгу активной, зная имя книги?
Как сделать книгу активной зная имя книги?

Можно ли использовать формулы Excel в коде VBA?
можно ли использовать формулы Excel в коде VBA? например есть такой диапазон: Dim r1 As Range Set r1 = Range("A1:B2,A4:B6") можно ли как то в коде vba подсчитать сумму в этом...

Создание выпадающего списка
Нужно создать выпадающий список в ячейке средствами VBA, который ссылался бы не на диапазон ячеек, а на внутренний диапазон в тексте программы. Как это дедается? Заранее спасибо обитателям форума

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

Поиск подстроки в строке
Тему уже создавал, но так и не понял, как делать. Нужно, что бы в экселе в ячейке А1 выполнялся поиск слов, записанных через запятую в столбец А2, а результат, и найденные слова, с числом их...

Замена меток в документе WORD данными из EXCEL
Доброго времени суток. Возникла необходимость на работе в создании данного макроса, а правильно реализовать проблематично. Суть: Есть папка в ней имеется файл Word (Set objWrdDoc =...

Макрос для обхода антиплагиата
Здравствуйте! Тут уже обсуждали антиплагиатные макросы, я просмотрела темы и даже попробовала некоторые из тех, что были предложены. Какие-то из них выдают ошибку, какие-то рабочие и действительно...

Элементы управления InternetExplorer.Application
Всем привет! Не могу найти в интернете документацию по элементам управления InternetExplorer.Application. Т.е. создаю код Set objIE = CreateObject("InternetExplorer.Application") ...

Ошибка при открытии файла - Ошибка в части содержимого в книге
Добрый день! Открываю файл. Создаю макросом сводную таблицу, сохраняю файл. Затем при попытке открыть данный файл появляется ошибка: “Ошибка в части содержимого в книге “Книга1.xlsx”. Выполнить...

VBA функция Find поиск нескольких значений в диапазоне
Доброго времени суток! Заранее извиняюсь за неумный вопрос, VBA изучаю недавно. Столкнулась со следующей проблемой: With Range("j22:k29") Set cell = .Find(What:="± -",...

Формула log в vba
Помогите записать в vba - Log по основанию 1/2 (x^2-1) Когда пишу Log(x^2-1) выдает ошибку записи основания

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

Макрос отправки письма Outlook через Excel с автоприкреплением файла
Добрый день! Есть следующий вопрос: Нужно из Excel 2010 макросом создавать письмо Outlook, в которое автоматом прикреплялся бы иной файл Excel 2010, размещенный (например) на рабочем столе...

Определить количество строк в таблице Excel
доброго времени суток! есть небольшая проблема, не знаю в чем загвостка. хочу вывести количество строк из таблицы excel в text box (количество строк все время изменяется) Private Sub...

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

Запуск макроса из командной строки
А можно ли все-таки запустить макрос Excel'я из командной строки или bat-файлы, не используя auto-open()? C auto-open() неудобно то, что при ручном открытии файла макрос также будет...

Как быстро определить: целое ли число?
Public Sub a() Dim x As Single Dim i As Single t = Timer For i = 1 To 256 For j = 1 To 256 For k = 1 To 256 x = 1 + (i / 129) If 0 = (x - CInt(x)) Then ...

Вставить изображение в ячейку Excel
Привет всем Гуру ЕКСЕЛЯ И VBA. Помогите разобратся с проблемкой! Как сделать в екселе 2007 чтоб при щелчке на ячейке А3 отрывалось собственное окно черес которое, можно вставить самому фото в...

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

Максимальное значение
Добрый день, даны два столбца дробных значений (А1:А47 и В1:В47), нужно, с помощью макроса, из столбца В найти максимальное значение, а затем найти в А соответствующее значение для В максимального и...

Как в Excel можно подсчитать количество символов в ячейке?
Как в Excel можно подсчитть количество символов в ячейке. Например мне нужно в ячейке D1 вывести количество симолов в C1. Спасибо.

Как записать переход по стрелке вниз на одну ячейку, либо вправо - влево - вверх
Добрый день. Необходимо в макросе прописать переход по стрелке вниз на одну ячейку, либо вправо - влево - вверх. При записи идет отображение как активация той или иной ячейки с определенным адресом....

Автоматический ввод текущей даты в Excel
Всем доброго времени суток. Такая вот задача: при выборе значения из списка в одной ячейке таблицы - в другой ячейке должна появиться текущая дата. И самое главное - дата не должна больше...

Перекодировка ANSI -> UTF-8 программно.
Проблема: в VBA Excel создаю xml-файл. Файл создается в кодировке 1251. А нужен в UTF-8. Посоетуйте, плиз, как сделать программно: 1 - Перекодировать весь файл, типа SaveAs .... UTF-8 2 - При...

Поменять язык интерфейса VBA
Здравствуйте, подскажите, где меняется язык интерфейса VBA? Вместо английского меню отображаются иероглифы

Написать программу для вычисления квадратного корня
как написать программу для вычисления квадратного корня в Visual Basic в excel

Найти остаток от деления двух действительных чисел
Задание такое: найти остаток от деления двух действительных чисел. Реализовал вот так: Sub Lab4_1() Dim a! Dim b! Dim c As Double a = Cells(2, 1) b = Cells(2, 2) c = a Mod b Cells(2, 3) = c

Форматирование таблиц в Word
Здравствуйте! У меня есть куча документов с таблицами на 3 листа. Нужно, чтобы по нажатию кнопки всё содержимое отформатировалось(уменьшился шрифт, уменьшилась высота строк, удалились разрывы страниц...

MS WORD - изменить цвет текста и его стиль
Создать программный продукт средствами языка VBA в MS WORD который позволяет: 1. Менять цвет (5 цвета) текства в выделенной области; 2. Изменять стиль текста (подчеркнутый стиль); 3. Изменять...

Удаление строк по условию
Народ, помогите ускорить процесс: For i = 10000 To 1 Step -1 If Cells(i, 2) = "" Then Range(Cells(i, 1), Cells(i, 2)).Select Selection.EntireRow.Delete End If Next i ...

Найти минимальный и максимальный элементы массива
Дан массив целых чисел K(n), найти в нем минимальный Kmin, и максимальный Kmax элементы. Вывести в порядке возрастания все целые числа из интервала (Kmin; Kmax), не встречающихся в исходном массиве.

Макрос, копирование ячеек в пустую строку на другом листе
доброго времени суток, господа! на листе 1 имеются ячейки для заполнения(анкета). требуется при нажатии кнопки, чтобы данные из этих ячеек переносились на лист 2 в строку (чтото типа базы), при новом...

Создать матрицу размера n х m / найти значение элемента матрицы
Привет всем) Помогите пожалуйста разобраться с заданием: 1)Ввести значения переменных n и m, создать матрицу А, в которой n - количество строк, m - столбцов. 2)Найти значение элемента X...

Функция split: указать несколько разделителей
можно ли в качестве разделителей функции split указать несколько разделителей. Мне нужно одновременно разбить строку на пробелы, знаки переноса строки и запятые. желательно с примером. плизз...

Прервать итерацию цикла for
Здравствуйте. Есть цикл For i = 10 To 60 внутри цикла есть условие при котором нужно перейти к следующему значению i If old_s = new_s Then ??????? (начать цикл сначала со следующим...

Получить имя активного файла Excel и создать копию
Скрипт должен получить имя активного файла, создать его копию, и в копии имени заменить некоторые символы. Например файл назывался "12File_Name.xlsm" нужно создать копию с именем...

Программное построение диаграмм в Excel
Скажите пожалуйста, как программно построить линейную диаграмму в excel при том условии, что количество строк, являющихся источником данный все время будет разным? Я научилась их строить для четко...

User-defined type not defined
Уважаемые, помогите, запарился... Есть макрос в Access, нужно вызывать этот макрос из excel (нужно именно так) Ниже код: Sub m1() Dim As cnn As ADODB.Connection Set cnn =...

Vba. перейти на одну видимую ячейку вниз
Здравствуйте. Как на VBA записать код, который переводит активную ячейку на одну вниз среди видимых? т.е. у меня есть таблица. По одному из полей включён фильтр. Пусть это будет столбец номер...

Сохранение текущего листа Excel в отдельный файл
Доброго всем времени суток! Помогите справиться с небольшой проблемкой. Есть файл Excel с несколькими листами. Сделал ToolBar с кнопками. Как реализовать кнопку "Сохранить как" только для...

Макрос для всех документов
Здравствуйте! Поскажите как сохранить макрос для всех документов, что бы не писать в каждой книге. (эксель, офис 2007) Также вапрос такой, если я кнопку макроса повешу на меню в 2007 офисе, будет...

Ввод в текстовое поле только цифр
Подскажите пожалуйста, как сделать так чтобы в компонент TextBox можно было вводить только цифры, а не буквы?

Замена текста в колонтитуле макросом
Здравствуйте! В ходе разработки проектов возникла необхоидмость создавать большое количество пояснительных записок. Иными словами - создание большого количества документов word по шаблону. Макрос...

Автоматическая замена части формулы в ячейке Excel
Доброго времени суток ! Вот столкнулся с такой пробелмой, ищу помощи.. На листе Excel 2003 имеет несколько тысяч формул типа ='C:\ Budget- 2013\1.1'!$AR$10 ='C:\ Budget- 2013\1.1'!$AА$10...

Получение данных из другого файла и копирование их в файл с макросом
Необходимо импортировать данный из нескольких определенных диапазонов ячеек в другом файле и поместить их в заранее определенные места. Диапазоны импорта: B3-D5 B7-D10 B12-D16 поместить их...