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

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

Многопоточность в VBA
Подскажите пожалуйста, есть ли возможность сделать VBA многопоточным? Без dll и прочего, только кодом VBA и есть ли уже инструменты для этого?

Оценка готовых и сложных проектов на VBA (мультипроцессинг, криптография, хакинг и прочее)
Постараюсь максимально кратко. Я в сфере IT сейчас примерно 5-6 лет (любитель можно сказать). За первые 3 года изучения есть небольшие достижения: Трижды сломал XLL_решение по сокрытию кода VBA...

При открытии книги или после работы макроса все данные на листе принимают формат даты
Всем здравствуйте! Установил Excel 2010 32 бита. Столкнулся с такой ошибкой. Время от времени при открытии книги или даже после работы какого нибудь макроса все данные на листе принимают формат...

Не парсится сайт
Здравствуйте ! Подскажите, пожалуйста, что неправильно ? Значения имени и цена на вытаскиваются этим методом. Хотя ищу элементы по имени, как они в HTML. Sub ПарсингChrome() Dim driver As...

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

Изоляция приложений с UserForm (как скрыть Excel и показать только UserForm без костылей с отслеживанием книг)
Когда я начал делать UserForm-ы в VBA, у меня возник очевидный вопрос: а как скрыть сам Excel и оставить на экране только форму? Чтобы визуально получилось что-то похожее на обычное десктопное...

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

Перекодировка файлов XLSX в формат XML
День добрый, очень нужна помощь специалистов для охотсообщества России - от Калининграда до Сахалина. Суть вопроса - с некоторых пор приходится передавать каждый месяц в налоговую информацию по...

Замена аббревиатур на расшифровку
Документ состоит из строк с аббревиатурами. Каждая аббревиатура имеет формат: КД<табуляция><цифра> Ее нужно заменить на: КД<табуляция><короткое тире><табуляция>расшифровка Код ниже работает, но...

Ускорение замены связей (ссылок) в Excel
Опытным путем установлено что для ускорения ChangeLink (замена связей в книге) нужно после строки ... Set wbTemplate = Workbooks.Open( _ Filename:=templatePath, _ ReadOnly:=True, _ ' ← только...

VBA Golf
В разделе VB Mikle Quits создал тему VB Golf http://www.cyberforum.ru/visual-basic/thread3220563.html предлагаю расширить это соревнование на раздел VBA. Прилагаю две версии игры Питон...

Класс не зарегистрирован. Не появляется страница браузера
Здравствуйте ! Подскажите, пожалуйста, при пробном написании попытки парсинга с сайта выдаёт ошибку "Класс не зарегистрирован". Что неправильно ? Не связано ли это с тем, что InternetExplorer...

Сохранение строк из одного файла, в разные файлы в определенном формате
Добрый вечер. Помогите прописать код сохраняющий строки из 1 файла в новые файлы. Требуется определенный формат отображения данных. Во вложении файл с формулами, на 1 листе источник, на листах...

Запрос погоды
Добрый день! Есть такой сайт https://open-meteo.com/en/docs/historical-forecast-api, позволяющий узнать погоду на заданную дату и координаты без API-ключа. Если в нем выбрать СПб на 10.10.25,...

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

Ресайз при сабклассинге UserForm
Доброго времени коллеги, буду без кода т.к. если кто в теме - либо заинтересуются и на ЛЛМ-ке накидают код теста или знают ответ ... вообщем, при сабклассинге существующей формы, если ранее был...

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

VBA, OpenGL и РБМК
На VBA можно всё. Например, написать оконное приложение. Или даже 3D-движок. И подгрузить туда модель чего угодно. Например, реактора. Без проблем.

Количество строк в Textbox или его высота в зависимости от текста
Добрый день ув. форумяне! как посчитать кол-во строк в текстбоксе, при том что текст в нем постоянно меняется, но его ширина остается неизменной, меняется лишь высота - по сути нужно вычислить высоту...

Проверочные тесты
Здравствуйте. Никогда раньше не сталкивалась, поэтому жду помощи. Мне поручили разработать задания для олимпиады по программированию. Задачи придумала. Теперь нужны проверочные тесты. Я думаю...

Как в Exel добиться поиска нужного числа путем увеличения на единицу, до получения нужно значения в другой ячейке?
Я на данном форуме впервые и не очень знаю, как правильно и проще можно описать нужный мне вопрос. Не судите строго. Есть 3 ячейки: Стоимость |Тираж | Сумма Пример: Стоимость = 6р. Сумма -...

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

Сохранить изменения в форме, GMS
Всем привет! Создал проект gms, поместил в него форму с кнопками и добавил TextBox. В процессе хотелось бы, что когда в TextBox я что то вписывал - оно сохранялось после закрытия формы. И когда...

Excel удалить строки группировки 1-го уровня
Как удалить строки группировки только 1-го уровня? Заодно можно и строки 3-го уровня удалить, пример прилагается.

Заполнение данными в нескольких таблицах
Здравствуйте. По этому коду создаю новый лист с таблицей в книге. Private Sub CommandButton2_Click() ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "copied sheet"...

Убрать сетку
Здравствуйте ! В строке таблицы Word выделяю строку oTb.Rows(25).Select() и хочу скрыть нижнюю границу ячеек этой строки oWrd.Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone -...

Как удалить имена диапазонов
Когда-то пытался работать с именованными диапазонами. Сейчас это мне вылезло боком. Как удалить имена диапазонов, разименовать диапазоны, избавиться от этой дряни? Пробовал вот такое (спасибо...

UserForm, как заблокировать редактирование?
Всем привет! Я сделал форму(userForm), хочу заблокировать её для редактирования, что бы отправить ее другому человеку, а тот в свою очередь пользовался ей и не мог посмотреть код и тем более что-то...

Не закрывается таблица и приложение
Есть таблица с макросом file1.xlsm Макрос такой (сильно упростил): Sub cserver() Sleep 1000 ActiveWorkbook.Close SaveChanges:=False ThisWorkbook.Close SaveChanges:=False ...

Помощь с реализации поиска по умной таблице
Всем привет. Есть умная таблица, не выходит доделать поиск в ListBox через TextBox. Private Sub TextBoxFind_Change() Dim rng As Range, адрес$ ListBoxFind.Clear ListBoxFind.Visible = False If...

Word таблица в одну страницу
Здравствуйте ! Можно ли вместить Word таблицу в одну страницу ?

Привязка макроса к кнопке в Outlook
Есть MS Outlook. Включил режим Разработчик, вхожу в соответствующую вкладку, выбираю Выбрать форму, далее выбираю Сообщение. Далее Разработчик, Конструктор и попадаю в режим конструктора. далее чуть...

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

Твипы в пикселях
Вопрос к тем, кто работал с графикой и имеет в этом деле мало-мальский опыт. При работе с графикой очень часто нужно знать количество твипов в одном пикселе (часто обозначается как TwipsPerPixel)...

Выделить все строки в таблице и вставить пустые
Всем привет подскажите пожалуйста, кому не трудно Копируем с листа1 первую строку Sheets("лист1").rows(1).copy Выделить все строки Вставляем на лист2 строку которую скорировали For i =...

Конфликт имен при открытии файла
Здравствуйте ! Есть файл - exc.xlsx В этом файле, прописаны имена print_area, print_titles. При клике этот файл запутится без проблем, однако если его открывать программно -...

Фото по кнопке из формы Access
Добрый день! Очень нужна помощь! Задача: 1. Необходимо из формы Access по нажатию кнопки сделать фото товара внешней камерой 2. Сохранить файл в указанную папку под именем артикула текущего...

Висячие предлоги в конце строки WORD
Помогите, пожалуйста, переписать макрос, чтобы он не проверял таблицы в тексте (если в тексте имеется таблица, то он зависает). Вот сам макрос. Sub Висячие_предлоги() Dim s$, n& ...

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

Создание динамической usetform в excel
Коллеги, кто сможет, пните в нужном направлении. Есть некоторый список документов с перечнем замечаний (закладка mine) Пользователь, на закладке Свод (презентация) запускает форму, с помощью...

Сохранить текст с активного листа в txt колировка windows
Добрый день! Подскажите пожалуйста кому не трудно, на листе содержатся денные: Имя=Дмитрий Фамилия=Иванов Отчество=Иванович Если использовать функцию ActiveWorkbook.SaveAs Он сохраняет txt с...

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

Копирование определенных ячеек из строки на другой лист по условию
Добрый день! Как из общей сводной таблицы перенести на другой лист все данные по условию "Исполнители"? Нужно чтобы ячейки с данными по исполнителю автоматически копировались на другой лист с...

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

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

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

Как макросом вынести содержимое из рамок
Здравствуйте. Помогите решить проблему в VBA. В документе MS Word - находится множество рамок, в которых есть различное содержимое (либо текст, либо рисунки ) Эти рамочные элементы - VBA...

DataGridView для массивов COM SafeArray
Мое почтение, джентльмены. Хочу представить вашему вниманию подпиленный ListViev для массивов COM SafeArray (VT_ARRAY | VT_VARIANT). См. Видео Умеет: +Показывать данные из массива в форме с...

Квитанции на оплату замена данных из шаблона
Добрый день! Не знаю, может уже был подобный запрос. Буду признательна, если отправите к какой-то конкретной теме. Суть вот такая: Выкачиваю каждый месяца из 1С квитанции на оплату в excel на...

Проблема с общедоступным массивом
Добрый день. Проблема такая: объявляю массив Public PDPS(1 To 14, 1 To 14) As String. Далее идёт Sub где данные в массив заносятся. Потом sub обработки нажатия кнопки, где должны использоваться...

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

Высота строки таблицы
Здравствуйте ! oTb.Rows(1).Height возвращает 9999999.00 Это что ?

Как узнать номер страницы, на которой находится таблица Word'a
Здравствуйте ! Чтобы узнать номер страницы, на которой находится таблица Word'a, использовал .Selection.Information(wdActiveEndAjustedPageNumber) Однако в 21 офисе всегда получаю -1. Может...

Как удалить проект VBA
Доброго времени суток! Подскажите как удалить проект VBA?

Как обратиться к открытой книге Excel из книги Word
Уважаемые форумяне! как обратиться к открытой книге Эксель из Ворда? в нете только методы, как это сделать в одном и том же приложении, нашла макрос, как обратиться к файлу из другого приложения и...

Программирование в excel:Цвет ячейки должен меняться (при отсутствии галочки цвет, а при её наличии без заливки)
Коллеги, всем доброго времени суток! Помогите обычному чайнику с Excel. Мне нужен код. Задача такова: -есть база данных, в которой нужно ставить галочку во флажке, когда процесс закончил ту...

Поиск аббревиатур модернизация кода
Здравствуйте, в теме https://www.cyberforum.ru/vba/thread2141982.html был приведен код Казанского по поиску заглавных букв в документе при помощи коллекции. Но одним шаблоном поиска всё не найдется,...

Фамилия имя отчество
Как в форме Access с помощью VBA (ФИО, при нажатии на кнопку добавить человека создать окно с надписью (этот человек уже есть в базе данных).

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

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

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

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

Случайный цвет каждой буквы (желательно без повторений цветов)
Пинайте тапками, бейте, только не баньте. Нужно в документе docx (Word 2010+) через запуск макроса расставить случайный цвет каждому символу (обычно русские буквы, знаки "?", "!", ",", "."...

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

Полилинии в html
Доброй ночи! Задали вот такой вопрос: ====== Есть документ с морфемным разбором слов в MS Word. Приставку, корень, суффикс, окончание и основу расставляли при помощи макроса. Сейчас стоит...

Как передать Range в функцию?
Т.е. сама передача исправно работает: Draw_Table (ThisWorkbook.Worksheets("Статистика").Range("G10:H16")) Но так не удобно и я сделал так: Set Start_Draw_Table_Range =...

QBasic из Word
Предполагаю, что не очень сложно сделать аналог Qbasic на основе файла Word, используя VBA для замены. Zeus_0x01 - эта задача Вам по силам. Полезность - в более широком распространении среды Word,...

If like
Здравствуйте! Стоит задача по списку из 50 строк на Листе1, найти такую же строку на Листе2 или содержащую текст строки с Листа1, взять значение из Листа2, напротив найденной строки из столбца 3 и...

Составить программу для вычисления значения функции у=-e^x+u+v, где х изменяется от 0 с шагом h
Составить программу для вычисления значения функции у=-e^x+u+v, где х изменяется от 0 с шагом h. Цикл заканчивается при первом отрицательном значении у. Функции u, v, h приведениы ниже u ...

Почему программа не работает в vba
Sub num_14() Sheets("Лист1").Cells.Clear Dim i As Integer, j As Integer Dim a(10) As Integer Worksheets("Лист1").Cells(1, 1) = "Исходный массив" For i = 1 To 9 a(i) = InputBox("введите...

Тут работает а тут нет - Сохранение листов при нажатии кнопки
Когдато 5 лет назад задался целью и создал способ при нажатии кнопки сохранять лист с экрана под определенным именем и в нужной папке работает до сих пор. Данные исходные меняются и они берутся из...

Удаление дубликатов
Добрый вечер. Непонятка с удалением дубликатов. Имеется файл Excel примерно 11260 строк на 1410 столбцов. Необходимо удалить дублмкаты, совпадающие по всем столбцам. То есть, если вся строка...

Access + inDesign
Доброго времени суток! Есть проблемка! Нужно запустить скрипт в InDesign из Access. Метод DoScript не работает. Очень нужна помощь!!!

Сумма по критериям
помогите с макросом. суть проблемы: есть строки с данными, в колонке оформление через формулу "ЕСЛИ" проставляются единицы. формула работает от колонки со стоимостями, однако необходимо выводить...

Последняя строка таблицы на странице
Здравствуйте ! Word-таблица на несколько страниц. Можно ли узнать номер строки таблицы в конце каждой страницы ?

Редактирование защищенных ячеек
Добрый день, подскажите пожалуйста, весь лист защитил от редактирования и выделений, через vbа в worksheet open добавил код ниже, чтоб разблокировать нужные мне ячейки для редактирования , к...

Excel зависает при закрытии после склонения фамилий библиотекой
Добрый день. Многие наверно знают библиотеку склонений за авторством Геннадия Покаташкина и Сергея Плахова. Я много лет пользовался ей на 32 разрядной системе, проблем никогда не было. Сейчас перешел...

Единый формат страниц в документе CorelDRAW
Здравствуйте! Как правильно записать в VBA процедуру установки единого формата всех страниц в документе CorelDRAW? Есть следующий код: Private Sub CommandButton14_Click() Dim app As Object ' ...

Как получить список файлов в архиве (в тихом режиме)? [VBA]
есть один рабочий вариант, но он мигает (sub test1) если несколько файлов обрабатывать, то забирается фокус на cmd окна, т.е. параллельно что-то делать невозможно два вопроса: 1. как сделать...

Код ошибки 500 при отправке файлов на сайт Минтруда РФ
Всем доброго времени суток! Создаю программу по отправки набора записей обученных лиц через API на сайт Минтруда. При отправке всплывает окно ошибки: Код 500 Data at root level is invalid. Line 5,...

Строка таблицы на 2-х страницах
Здравствуйте ! Несмотря на то, что для каждой строки Word-таблицы указываю AllowBreakAcrossPages=False, иногда попадаются строки разбитые страницы. В Инете предлагается способ определения таких...

On Error GoTo
Здравствуйте! Есть код, который запускает отчет с рисунком. Нужно вписать проверку на ошибку. Если F1 пусто, то ничего не делать, выдать сообщение: F1 - пусто. Если все Ок, то запустить код. ...

Синтаксичекая ошибка в макросе под Win-7
Макрос нормально отрабатывает под Win-10. А под win-7 выдаёт ошибку. В чём может быть дело, и как исправить? Просто убрать PtrSafe? В win-10 Word-2016, в win-7, по моему Word-2007

Макросом скопировать подчеркнутые красным слова
Ворд подчеркивает красным незнакомые слова. Нужен макрос, который скопирует подчеркнутые слова в отдельный документ. Или выделит жирным подчеркнутые слова, потом через Поиск сам скопирую. Спасибо.

Access: скрытая предзагрузка форм без мелькания
Добрый день. В ERP-системе на Microsoft Access есть несколько форм, которые открываются очень долго (связанные таблицы, сложные подчинённые формы, объёмные данные). Я хочу предзагружать эти формы...

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

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

PowerPoint отступ текста справа
Есть таблицы в PowerPoint. Нужно убрать отступы текста справа (отступ после текста). Именно справа и именно текста, а не внутренних полей (.Shape.TextFrame.MarginRight))! Я так понял аналогия...

Получение курсов валют с различных сайтов
Как разработать VBA-макрос для Microsoft Excel, который автоматически извлекает из веб-страницы Сбербанка (https://www.sberbank.ru/ru/quotes/currencies_b) данные о курсах покупки и продажи доллара...

Объединить ячейки с разными форматами
Всех с наступившим 2026 г. В двух столбцах находится текст с разными форматами напр. Первый столбец и Второй столбец на выходе надо в одной ячейке сцепить два текста и соблюсти формат...

Смена иероглифов на английский
Всем привет, при открытии Microsoft Visual Basic for Application вместо привычных "File" какие-то иероглифы. Поможите поменять их на английский шрифт. В поиске нашел ветку старую по ней проверил...

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

Excel Service Manager или менеджер пользовательских служб Excel (проектирование и разработка)!
В свободное время начал потихоньку проектировать замену VBS скриптов, которые предоставляли функционал персистентности (запуск после перезагрузки ПК)! Если кто-то ими пользуется, то думаю заценит...

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

Как учесть в коде возможные перемещения ячеек с данными?
Приветствую, джентльмены) Вопрос наивный возможно, но тем не менее прошу помочь советами. 1. пусть некий код, к примеру n=cells(5,10) или любое похожее 2. формула в другой ячейке берёт это...

Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы...

Как записать в таблицу текст шейпов, которые обводит фигура с определенным названием
Здравствуйте. Помогите с макросом. По листу раскидано множество разных шейпов, внутри которых вписано число. Также есть прозрачные шейпы (по сути - это рамки), каждый из которых имеет НАЗВАНИЕ -...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка "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 листа) и записать его в строковую переменную.

Получение значения переменной из ячейки
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)) выдает ошщибку, причем раз через раз, до некоторых пор с этим куском все работало отменно. Что...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Выдает ошибку 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") ...

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

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

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

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

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

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

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

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

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

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

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

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

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

Выход из цикла на месте выполнения условия
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 =...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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...

Четность не четность
В общем, сделал я вот это: Private Sub CommandButton1_Click() Dim a As String a = lable1 If TextBox1 Mod 2 = 0 Then a = "четное" Else a = "не четное" End If

Цикл по символам строки
Есть непустая строковая переменная x, хочу перебрать ее посимвольно в цикле. Умеет ли VBA как в пайтоне запускать цикл по элементам строки? For Each i in x ... Next i

Как быстро определить: целое ли число?
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?
можно ли использовать формулы Excel в коде VBA? например есть такой диапазон: Dim r1 As Range Set r1 = Range("A1:B2,A4:B6") можно ли как то в коде vba подсчитать сумму в этом...

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

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

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

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

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

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

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

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

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

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

Удаление строк по условию
Народ, помогите ускорить процесс: 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 ...

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

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

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

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

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

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

Ошибка 5941: "Запрашиваемый номер семейства не существует" при добавлении макроса на панель быстрого доступа
Всем привет. я не программист и у меня такая проблема: писала довольно простой макрос для создания формулы с автоматической нумерацией в ворде (чтобы формула не "съезжала" влево). вроде создаю сам...

Убирать первые символы строки
50851 бла бла бла блаблабла вот есть допустим такая строчка, как убрать !первые! символы, от 3 до 5, либо убирать первые цифры в строчке

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

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

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

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

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

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

Установка и снятие закрепления областей в Excel
Подскажите, как с помощью VB установить закрепление областей в Excel.

Открытие по очереди всех файлов из каталога
Здравствуйте, подскажите как правильно написать строку Application.Workbooks.Open ("c:\Âõîäÿùèå\3.xls"), что бы в имени файла была переменная. В моем случае s Суть в том что бы открыть все файлы из...

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

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

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

Копирование ячеек с сохранением форматирования
Привет. Проблема такая....у меня в таблице есть много полей,и одно из них индикатор. В роли индикатора выступает цвет ячейки. Как мне скопировать на другой лист сохраняя цвет этой ячейки!? У меня...

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

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

Чтение файлов формата .txt в кодировке utf-8
Уважаемые форумчане! Делаю скрипт для чтения и записи txt-файлов из Excel-вского файла по средствам VBA макросов. Но всё упёрлось в проблему с кодировкой. Мне по умолчанию нужна UTF-8, так как...

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

Получение номера выделенной колонки
Как получить номер выделенной колонки, т.е. выделил колону 'С', а он мне выдал, колонка '3', а не 'C:C' Заранее спасибо

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

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

Команды VBA к умной таблице
Добрый день, Где можно посмотреть синтаксис команд обращения к умной таблице? По сути мне необходимо проверить в ячейке на наличие формулы только в пределах умной таблицы Видел только ...

Объявление двумерного динамического массива
Всем доброго здоровья! Как известно (некоторым продвинутым юзерам), одномерный динамический массив объявляется так: Dim arrRecords() as string Может ли кто подсказать, как объявить двумерный...

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

Worksheet_Change как обозначить Target
Люди добрые, подскажите плиз как обращаться с этим зверем: "Private Sub Worksheet_Change(ByVal Target As Range)" В литературе типа VBA для чайников и прочей написано кратко: Хочешь, чтобы макрос...

Изменение формата даты
Всем хорошего дня! У меня такая проблема: Написал функцию расчёта срока изготовления изделия для этапов производства, в зависимости от общей даты Старта (А1) и Финиша (А2) Заказа, (К -...

Как отключить расчет формул при работе макроса?
Народ, расскажите как отключить расчет формул при работе макроса, а то формул навалом и при каждом лишнем движении формулы заново расчитываются - по пятнадцать минут жду! как отключить и как...

Создать фильтр по значению ячейки
Всем привет! Как в MS Office Excel реализовать фильтр по значению ячейки. покажу на картинках что я имею ввиду. Имеется программа со списком различных форм отчетности. для удобного поиска форм...

Close и Save документа Word
Close и Save документа Word, не могу в них врубиться, посмотрите пжл, три нижепреведённые строки правильно закомметировали, если нет поправьте '1 закрываем документ, чтобы не появлялось...

VBA .json парсинг
Добрый день. Используя API получаем ответ от сервера в формате json: {"История": { "Данные": { "Нация": {"type": "string", "bytes": 50, "max_size": 0}, "Население": {"type": "integer",...

Работа Excel со сканером штрих-кодером
Помогите пожалуйста настроить работу Excel со сканером штрихкодером. Точнее у меня есть сканер и мне нужно чтобы он работал с Excel. Может нужно прогу какую или в 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

Как из Excel открыть папку с файлами Word
Всем доброе время суток ! Есть задача. Как кнопкой, находящейся в Книге Excel, открыть папку с несколькими документами (файлами) Word? Книга с кнопкой и папка с документами Word...

Как задать "Пи" через встроенную функцию
как задать пи через встроенную функцию раннее я просил помочь решить данный пример но мой преподователь не принимает данное решение тк она утверждает оно не верное и просит задать пи как то иначе...

Можно ли заставить функцию возвращать несколько значений(массив)?
Доброго всем. Очень неудобно, что в ВБА функция возвращает только одно значение. Может кто обошел эту преграду? Можно ли заставить функцию возвращать несколько значений(массив)?

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

Есть ли в VBA функция переводящая номер столбца в его буквенный эквивалент в Excel
Есть ли в VBA функция переводящая номер столбца в его буквенный эквивалент в Excel'е? Т.е. мне предположим надо вывести в msgbox информацию о том, с каким столбцом мы имеем дело. Его числовой номер...

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

Записать формулу в ячейку, используя vba
Добрый день! Имеется такая проблема: есть 2 листа, пусть лист1 и лист2. На каждом листе есть таблицы разной размерности: на листе1 - 12х12, на листе 2 - 3х144 (пусть начальная ячейка таблицы на...

Получить список имен листов
В файле много листов. Имена у листов меняются. У листы делятся на группы. Каждая группа выполняет свою функцию. Всё это не принципиально, но делает понятней задачу. Нужно получить все имена...

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

Избавиться от ошибки "Procedure too large"
У меня при запуске макроса выдаётся ошибка Procedure too large. Можно обойти эту ошибку, не разбивая на несколько разных сабов? Процедура действительно большая. А какое ограничение есть по...

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

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

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

Среднее арифметическое и геомитрическое
Задать 3 действительных положительных числа,найти среднее арифметическое и среднее геомитрическое этих чисел...

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

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

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

Из Excel открыть документ Word
Как из Excel открыть документ Word, в котором был бы определенный текст

Аналоги или ускорение ВПР через макрос
Есть лист, в который простейшим ВПР-ом подтягиваются данные из другого листа. Но...на листе оооочень большое количество строк (от 300 000 и далее), соответственно ВПР виснет часа на 4, а то и больше....

Вставка картинки в ячейку программно
Здравствуйте, Есть два столбца: id, рисунок имя картинки состоит из id. Например, id=111, а рисунок 111.jpg. Я установила высоту строки=200, Мой код: Public Sub insPic() ...

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

Как с помощью VBA в Excel можно получить координаты определенной ячейки?
Как с помощью VBA в екселе можно получить координаты определенной ячейки. Просто в определенную ячейку надо вставить имейдж

Организовать связь элемента checkbox (флажок) и ячейки в excel
возникла потребность создать кучу ячеек и чтобы в каждой из них был checkbox который бы устанавливал для этой ячейки значение 0 или 1. Попробовал сделать - вид-> панели инструментов -> элементы...

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

Нужен макрос для удаления значений в ячейках по условию
Ребята каким можно макросом удалять значения определённых ячеек .Задача макроса ,в ячейках в каждой из строк начиная с 28 строки столбца I ,промониторить выполняется ли условия чтобы если в ячейке...

Как найти минимальное и максимальное значения массива и вывести их разность на экран
Здравствуйте. Помогите пожалуйста с составлением программы в VBA. Вот задание: создать одномерный массив из 20 целочисленных значений. Найти минимальное и максимальное значения, вывести их разность...

Как выделить всю текущую строку в Excel?
как выделить всю текущую строку? Excel. если извесно, что в строке 5 ячеек? спасибо

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

Выполнение процедуры с задержкой
Ребята! Возник вопрос! Есть процедура которую нужно выполнить (Excel VBA), но эта процедура должна выполняться с задержкой в секунд , после того как ее вызвали! Не могли бы Вы помочь с кодом! Заранее...

Перенос данных таблиц из Excel в Word
Имеется Word''овский файл-отчет - текст, таблицы-источники для графиков (10 шт.) (по 2 строки и 15 столбцов, не отображаются), графики (10 шт.), таблицы информационные (5 шт.) (порядка 15 строк и 10...

SQL запрос к Oracle из Excel через ODBC
Люди! Подскажите, pls, как написать макрос, который по данным запроса к базе данных Oracle устанавливал бы значения переменных или ячеек рабочего листа? Очень хотелось бы пример соединения с базой...

Как найти последнюю строку таблицы Excel
Доброго времени суток. упорно занялся изучением VBA кое какие вещи уже получаются, но при работе столкнулся с таким затруднением: имеется неограниченое кол-во одноструктурных таблиц, которые должны...

Можно ли писать на VBA в OpenOffice
Есть программа, которая экспортирует в excel через макросы. Т.е. просто запускается определенный xls-файл в котором подгружается шаблон xla. В MS Office Excel все работает на ура, а вот в OOo Calc...

Ошибка: Недостаточно системных ресурсов для полного вывода на экран
Помогите пожалуйста: При выполнии макроса, а также при его редактировании в VBA возникает ошибка 'Недостаточно системных ресурсов для полного вывода на экран' Проект содержит около 7 форм. После...

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

Фильтры и макросы в Excel
Доброго времени суток! Необходимо сделать следующую вещь: Книга Эксель и все ее листы должны быть защищены и при этом нужно реализовать фильтр(желательно не автофильтр, чтобы автофильтр был...

Ошибка runtime error 1004 application-defined or object-defined error
Здравствуйте! Взяла простенький пример из книги Уокенбаха "Excel 2010. профессиональное программирование на VBA", но у меня почему-то не работает, выдает ошибку: 'runtime error 1004...

Подключение нужных библиотек при переносе программы на другой ПК
Всем доброго здоровья! Может ли кто подсказать, как автоматизировать процесс подключения нужных библиотек VBA при переносе программы на другой комп? Как правильно создать какой-нибудь bat-файл или...

Как добавить строку в таблице в Word используя VBA?
Здравствуйте! Прошу помочь мне со следующим: в документе есть 3 таблицы. Во время заполнения 2-ой таблицы из формы нужно сделать так, чтобы при добавлении новой записи создавалась и строчка в...

Object required
в одном документе Ворда есть созданное мною меню что-то с сегодняшнего дня нажимая на меню стал получать ошибку Object required - требуется объект Код пошагово проверить нельзя из-за этой строки,...

Импорт таблицы html из тела письма Outlook
Привет всем! Возник немного нестандартный вопрос по использованию VBA outlook. Вопрос мягко говоря увеличенной сложности. В большей степени касается обработки тела письма Outlook средствами VBA. ...

Копирование данных из одного excel файла в другой
Добрый день! Знаю тут много тем про копирование данных. Но я так и не нашла по теме. Вобщем мне надо из разных файлов собрть ин6формацию в один. Я сделала это так: iPath = ActiveWorkbook.Path...

Импорт данных из xml-файла
Добрый день. Есть такая задача: Есть xml файл в котором есть перечень сотрудников. Нужно циклом из этого файла фамилию каждого сотрудника выгрузить в отдельную ячейку в екселе. Как сделать это...

Обращение к ячейкам открытой книги (не текущей)
Макрос должен запускаться, спрашивать - какой файл ему взять. Открыть его, разделить определенную ячейку на 1000, сохранить файл. Как это сделать? А то я глючу. listname = "Топливо форма"...

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

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

Корректное закрытие файла Excel
Здравствуйте, уважаемые участники! Подскажите, пожалуйста как корректно закрыть файл .xls в vba? Файл открывается следующим кодом: Dim oWbk As Workbook Set oWbk =...

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

Округление числа до 2 знаков после запятой
Буду очень признательна, если кто-то подскажет, как написать программу, округляющую число до двух знаков после запятой. Программа должна использовать функцию Int.

Что за функция IIF в VBA и для чего он служит?
Кто объяснит что за функция IIF в VBA и для чего он служит в ХЕЛПЕ ни чего не понял Спасибо

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

Поиск файлов в заданной папке и копирование посредством Excel
Здравствуйте! Нужен макрос, который будет находить файлы в заданной папке с подпапками и копировать в заданную папку. Допустим заданная папка, назовем ее "А", содержит папки(подпапки) "А1",...

Проблема с типами данных. Run-time error '6': OverFlow
Option Explicit Option Explicit Dim curCSP As Single Dim curSP As Single Dim dbSV As Single Dim dbIr As Single Dim dbTM As Single 'Const curCSP = 51 'Const curSP = 50

Заполнение ячейки по условию от содержания другой
Доброго времени суток! Помоги решить проблему, нужно написать макрос или что-то в этом роде. Суть такая есть 2 столбца и нужно чтобы определял что написано во втором столбце и автоматически писал...

Как правильно организовать заполнение массива
Хочу создать и заполнить массив. Вот на такой код ругается: Dim a_RightAns (2 To 11) As Integer a_RightAns = Array(1, 0, 2, 2, 0, 3, 3, 2, 4, 0) Придется вручную заполнять или как-то можно проще...

Копирование листа из другой книги
Снова здравствуйте! Пытаюсь скопировать лист из одной книги в другую Private Sub Load_Click() shName As Variant On Error Resume Next ZDBFileName = Workbooks("1.xls").Path...

Как программно узнать разрешение экрана
Здравствуйте MsgBox$ _ "Экран Вашего монитора имеет разрешение: " & GetSystemMetrics(0&) & "x" & GetSystemMetrics(1&) & vbCrLf & _ ...

Сравнить две таблицы на листе в Excel
Форумчане, доброго времяни суток) Ковыряясь в Excel VBA сталкнулся с проблемкой для себя,и хотелось бы найти способ реализации,ради чего пишу,Вам. Ситуация: Имеются две таблицы, на одной из...

Закрыть файл Excel с сохранением сделанных изменений
Вроде изучил этот вопрос 'параметр SaveChanges типа Boolean, если установить True сделанные изменения сохранятся 'в противном случае нет, если параметр упускается 'тогда при закрытии появляется...

Оператор Like
Оператор Like, такой простой, но такой таинственный :) Вообще, по нему всё ясно, кроме некоторых особенностей. Так, например, оператор Like очень здорово работает, если в качестве шаблонной строки...

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

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

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

Как записать значение в определенную ячейку
Функция в VBA использует значения из различных ячеек на листе, получаю их так s = Worksheets(1).Cells(nom, 4 + i) однако обратного действия не получается, т.е. я не могу в функции записать...

Как определить количество строк? (Excel)
После установки AutoFilter надо определить количество видимых не пустых строк на листе. (Способ, просмотра и подсчета от первой до последней строчки не подходит).

Ошибка Runtime error '6' Overflow
Помогите пожалуйста разобраться. Все время возникает ошибка Runtime error '6' Overflow в VBA Private Sub btCalc_Click() Dim T As Integer Dim I As Integer Dim S As Double Dim...

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

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

Проверить существование объекта
Как проверяется в vba существование объекта? Например объект selection.listobject или selection.offset(-3, 0)

Выделение отдельной строки в ячейке таблицы Word
Ребята хелп ми, уже из сил выбился. Как выделить отдельную строку в ячейке таблицы Word? Ставлю курсор в начало строки и пробую различные методы типа MoveEnd(), EndOf(), MoveEndUntil() и другие. Все...

Условное форматирование ячеек
Ребята, подскажите. Есть в Excel такая возможность - применить к определённому диапазону условное форматирование. Т. е., например, если в ячейке записано "1", то она закрашивается каким-нубдь цветом...

Снять выделение (select) с объекта
Добрый день! Не могу понять, как сделать, чтобы программа сняла выделение графика, чтобы при повтором запуске процедуры снова его выделить? Мой макрос работает так, что процедура вызывается...

Календарь на год в Excel
Помогите пожалуйста! необходимо создать календарь на год! вводим год а он нам календарь....есть календарь на месяц а на год как сделать не понимаю...

В каком файле находятся значки (иконки) панелей инструментов MS Office?
Скажите, пожалуйста, в каком файле находятся значки (иконки) панелей инструментов MS Office? Я так понимаю, что это или dll или exe-файл.

Заполнение ячеек листа Excel из массива
Есть массив строк, нужно заполнить первый столбец значениями из массива Добавлено через 3 минуты Worksheets("Лист1").Select For i = 1 To UBound(massiv) Step 1 Cells(i, 1) =...

Пропинговать компьютеры и занести результаты в соответствующие ячейки столбца
Доброго всем времени суток. В документе один лист. Один столбец со списком имен компьютеров (начиная с "B2" и вниз). Всего около 4000 ПК. Есть задача: пропинговать их и занести результаты в...

Проблема с запуском макросов
Добрый день. Столкнулся с такой проблемой на своём домашнем ПК, на рабочем такого не было, но теперь тоже появилось. Значит есть файл Excel, в котором имеются макросы, один записан в объекте...

Сложные UserForm в Excel
Добрый день! Очень нужна помощь по UserForm в excel... Есть задача и отличная мысль по ее решению, однако сомневаюсь в ее реальности... Вобщем, можно ли сделать как-то так, чтобы при открытии книги...

Макрос для Outlook: автоматическая проверка всех входящих писем
Друзья, простите что обращаюсь, но уже давно пытаюсь и никак не могу написать макрос для outlook. Нужно чтобы он проверял автоматически все входящие письма, доставал файлы .xls .xlsx, если они в .rar...

добавить пробел
Подскажите, что нужно добавить в следующий код, чтобы между словами в строках Cells(9, 1) и Cells(9, 2) ставился пробел? "<font face=arial><a href=mailto:" + Worksheets("Body").Cells(9, 1) +...

Что делает команда Application.DisplayAlerts
Здравствуйте. Вообщем, у меня на кнопке удаления страницы графика с екселя записана команда: Application.DisplayAlerts=false charts.delete Application.DisplayAlerts=true Объясните...

Разделить строку на слова и вписать в ячейки
Надо написать программу которая будет из ячейки с символами выделять по одному слову и вписывать их в отдельные ячейки.В строке,слова могут быть отделены большим количеством пробелов... Фишка в том...

Получение массива критериев из автофильтра excel
Всем доброго времени суток. Есть два весьма весомых и интересных вопросов: 1) как получить массив критериев фильтра. Т.е. фильтр может принимать в виде критерия массивы, но как его достать от туда...

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

Работа процедуры с ячейками таблицы
Ребята помогите выполнить задачу! Откройте новую рабочую книгу. Введите следующие значения в первый лист рабо¬чей книги. Ячейки Значения ———————————————————— А1 Товар А2:А6 Названия каких-либо...

Получить только дробную часть от числа
День добрый, помогите пожалйсто... в VBA Excel ( Вводим 2 числа.... например 15 и 7 и что-бы при нажатии на кнопку оно оставляло только дробную часть)... зарание спасибо

Ошибка "Subscript out of range"
Добрый день, уважаемые знатоки, обращаюсь к Вам от безысходности. Имеется следующий цикл: Do Until Workbooks(НазваниеКниги).Worksheets(НазваниеЛиста).Cells(НомерСтроки, j) = "" With...

Копирование отфильтрованного диапазона
Прошу подсказать, Как скопировать из таблицы и перенести в другую таблицу отфильтрованный автофильтром (2 условия) диапазон ячеек по столбцу "G" например Rows("13:13").Select ...

Удаление выделенных строк из ListBox
For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) Then ComboBox1.AddItem (ListBox1.List(I)) End If Next I Скажите пожалуйста, что нужно добавить,...

Макрос для печати определенных листов книги Excel
Всем доброе время суток! Помогите пожалуйста. Дано: Лист с данными о клиенте и виде выполняемых работ, на котором определяется какой из 65 листов нужно напечатать. Лист с договором, Лист с актом...

Как удалить повторяющиеся элементы динамического массива?
Массиву меняем размер равный количеству заполненных ячеек в столбце "А", на листе2! Нужно удалить повторяющиеся значения! Вот часть кода для заполнения массива. ReDim intArr(intcount_cell)...

Как перенести макрос на другой компутер?
Привет, All Я написал несколько макросов (на Экселе). Но они должны работать на другом компутере. Как бы мне их перенести туда? Говорят, что одного файла (xls) с макросами недостаточно....

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

Получить имя файла без расширения
Помогите написать код программы. Дана строка содержащая ПОЛНОЕ ИМЯ ФАЙЛА , т.е имя диска, список каталогов ( путь) , собственно имя и расширение. Нужно выделить из этой строки имя файла (без...

Сравнение двух диапазонов ячеек на совпадение
Здравствуйте! Подскажите пожалуйста... Имеется 2 диапазона ячеек А1:A3 и C1:C3, в которых забиты цифры, допустим в ячейках А1:A3 (3,6,2 соответственно), а в C1:C3 (2, 4, 8) и мне необходимо, чтобы...

Склонение фамилий, имен и отчеств по падежам
Можно ли програмно заставить VBA склонять по отменкам Фамилию, Имя и Отчество?

Ошибка: Invalid procedure call or argument. Что не так?
Имеется код. Он вроде считает, а вроде и нет. Выдает ошибку: Invalid procedure call or argument. Private Sub CommandButton1_Click() a = Range("B1").Value TextBox1.Text = a X =...

Application.Calculation = xlCalculationAutomatic
Здравствуйте, подскажите пожалуйста значение команд: Application.Calculation = xlCalculationManual Application.Calculation = xlCalculationAutomatic В каких случаях их надо...

Как отключить "мерцание" окна
Всем доброе время суток! В макросе одна за другой открываются две книги Excel. Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Книга1") Set wb2 =...

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

Изменение кодировки текстового файла
здравствуйте, в своих записях имею пару кодов для перекодировки файлов, а как сделать из ANSI > UTF 8? спасибо ' 'преобразование текстового файла из 'windows-1251' в 'cp866' 'требуется ссылка...

Програмно заставить VBA рассылать SMS через мобильный телефон
Есть моб. телефон ....., через отдельний браузер можно посалать смс, как подлючить браузер к VBA, или же как работат брузер по отсилке смс.....может есть какие то варианти еть, над етим долблю...

Снятие блокировки открытия с макроса в Excel2003
weeper (15.04.2006) 1. Меню Сервис/Доступ к книге/Разрешить совместный доступ (галочку убрать); 2. Нажать Ок; 3. Нажать Да в появившемся окне; 4. Alt+F11. Может кому еще пригодится: Только что...

Вывести на печать переменные A, B, C в порядке их возрастания
1. вывести на печать переменные A, B, C в порядке их возрастания. Значения переменных: а) ввести с клавиатуры; б) взять из диапазана B2:B4 листа Excel; в) задать оператором присваивания 2. даны...

Как использовать Таймер в VBA
Здравствуйте, проблема в следующем: в экселе нужно создать код, который берет заданное численное значение (например 80 сек) из ячейки и при нажатии на кнопку начинает работать таймер (его...

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

Как снять все фильтры во всех файлах(листах) excel
Друзья! Столкнулся с такой проблемой. В папке лежит 220 файлов, формата xlsx. Пытаюсь объединить все листы и во всех файлах в один единый файл и лист. Макром у меня на это есть, однако как назло...

Макрос для склеивания PDF файлов
Коллеги, есть вопрос: например есть 2 документа в разных приложениях например в визио и экселе. можно ли в каком нибудь из pdf-принтеров создать пдф из каждого документа и их объединить в один...

Ошибка - Метод Select из класса WorkSheet завершен неверно
люди!!!! подскажите плиз такую вещь - обращаемся в excel из access при этом почему-то перестало работать выделение ячейки (до этого работало)или листа :((( примерный код Set MyObj_Shablon =...

Как получить данные из Textbox на форме
Не могу решить проблему На форме программно создается Textbox, как из него получить данные Private Sub CommandButton1_Click() Dim lbl(10) As Control For i = 0 To 10 Set lbl(i) =...

Скрытие/отображение рабочих листов макросом
Всем здравствуйте! Подскажите, пожалуйста, есть ли возможность реализовать в VBA скрытие/отображение листов по признаку закрытый лист сделать открытым, и наоборот. Или код приведенный ниже сделать...

Копирование диапазона ячеек из одного листа в другой
Подскажите не помогу понять как скопировать в определенное место диапазон ячеек по условию например - с Листа 1 столбец А с 6 строки по условию цвета ячейки в Лист 2 столбец G строки 7. Как в данном...

Как изменить номера страниц в оглавлении
Всем доброе время суток. В оглавлении указанны номера страниц, т.е. {Page}, есть ли возможность поменять эти значения? Формулу, например (={{page}-5}), поставить или макросом поменять. В документе...

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

Количество столбцов и строк в двумерном массиве
Нужно в цикле пройтись по неизвестному двумерному массиву. Как получить у него количество столбцов и строк?

Применение ВПР в VBA
Доброе утро! Помогите пожалуйста с написанием макроса функции ВПР. В файле-примере есть два листа: 1. "Результат" - в этом листе пользователь вставляет в поле "А", начиная в ячейки "А5" уникальные...

Вывести текущую дату и день недели словами
вывести текущую дату и день недели словами например мы вводим 15.05.1990 и программа выдают сообшение это же дата не цифрами а словами Добавлено через 1 час 19 минут некто незнает как это...

Как получить уникальные значения из колонки VBA Excel?
Как получить уникальные значения из колонки таблицы в VBA Excel например в массив? При работе в Excel при установке автофильтра, Excel моментом заполняет ListBox уникальными значениями, даже при...

Перенос картинок в Excel с одного листа на другой
Добрый день! Я умею худо бедно программировать на VBA, а хочу сделать программу для Android, делаю прототип на VBA, чтоб потом готовую программу перегнать под Android, может буду искать кого-то, а...

Как выделить (выбрать) несколько строк (в Excel) используя относительные координаты?
Вроде-бы вопрос элементарный, но нигде не могу найти. Как выделить (выбрать) несколько строк (в Excel) используя относительные координаты. Делаю Rows(Range(Cells(r - 6, 1), Cells(r - 1,...

Сумма элементов массива
Такое вот задание. Окно для ввода количества элементов я написал, а сумму не могу. да, начинающий совсем. помогите, пожалуйста

Ошибка 76 Путь не найден (Path not found)
Есть: файл с .pptm макросом, в котором созданы UserForm1 и Module2. Код Module2: Sub SlideGenerate() UserForm1.Show End Sub При запуске выдаёт ошибку: Run-time error '76': Path not found

Автоматическая отправка e-mail с Excel или с Access
Друзья помогите решить задачу!!!!! Есть три колонки: -список работников -электронный адрес -соответственно дни рождения. Возможно ли написать макрос для автоматического отправления...

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

Ворд: Печать книгой
Здравствуйте! Помогите пожалуйста =) Уже все облазил не найду решения =( Вроде бы и задача не сложная.. в общем надо сделать что бы в ворде можно было напечатать книгу (20 страниц) Надо что бы при...

Скопировать строку на новый лист, если ячейка содержит определенное значение
Добрый день, нужен макрос, или как по другому решить: Нужно скопировать строку на другой лист, если в ячейке F содержится значение "Процессор", "Жесткий диск", "Монитор".

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

Как перебрать все непустые ячейки в Excel?
Вот собственно

Запуск cmd и выполнение команды макросом
Доброго дня! Подскажите, пожалуйста, как запустить макросом из excel командную строку и выполнить команду? Нужно пропарсить много папок с фото сделать список со всеми путями ко всем файлам. ...

Отправка и получение ответа XML
Здравствуйте. Я в VBA не очень (учусь) и с такими задачами еще не сталкивался, - руководство поставило задачу сделать макрос проверки параметров сайта в Excel на основании API c сервиса...

Проверка пустой ячейки Excel или на наличие в ней пробелов
Доброе время суток! Нужно проверить ячейку в Excel на следующее условие: Если ячейка совершенно пустая (IsEmpty) или содержит один или несколько пробелов, то x=True Иначе x=False Заранее...

Отображать на странице Word'а число страниц в документе
1) Есть документ Word, в котором постоянно меняется количество страниц. Нужно чтобы в одном месте в документе отображалось текущее количество страниц. Как это можно реализовать? 2) Как можно...

Макрос поиска и замены букв в MS Word с верхним подчеркиванием
мне нужно позарез написать мкрос чтобы он искал во всем документе жирные слова или буквы и заменял их на обычные буквы но уже с черточкой вверху...как сделать их обычными я знаю)))...как сделать так...

Выбор листа и занесение его имени в переменную
Всем привет! Есть вот такой макрос Sub GetIt() FullPath = Application.GetOpenFilename MainBook = ThisWorkbook.Name i = InStrRev(FullPath, "\") Name = Mid(FullPath, i + 1) Folder =...

Удаление символов в ячейке ексель
Приветствую. Опыта нет. Требуется обработать файл ексель - 2003 с помощью макроса. 1. Замена комбинаций символов - в примере " " (двойной пробел) на " " (одиночный пробел) 2. Замена комбинаций...

В антиплагиат.ру видны скрытые символы
Оригинальность он поднимает, но когда просматриваешь текст в антиплагиат.ру видны скрытые символы, как добиться того чтобы скрытые символы не были видны?? Sub Че() ' ' Че Макрос ' '...

Замена текста в закладке Bookmark
Здравствуйте! Помогите, пожалуйста, в решении следующего вопроса. Есть файл Эксель и файл Ворд. В Экселе, к примеру, в ячейке С1 находится какой-либо текст. В файле Ворд при помощи инструмента...

Синус в квадрате X
Как собственно записать F(x)=sin^2\,x-cos\,2x Точнее сам синус в квадрате икс. Range("B" & myR) = Round(Sin^2(x) - cos(2*x), 2) ' не получается

Экспорт данных ячеек Excel в txt файл
Мне нужно из xmlx файла (Microsoft excel 2010) выполнить экспорт данных в ячейке в txt файл. Однако программа выдаёт ошибку "invalid outside procedure", ругаясь на строчку 2. Из-за этого я не могу...

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

Как открыть книгу без выполнения макросов
Помогите открыть файл Excel vba, я туда вписала код: на закрытие программы

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

Сохранение Excel в PDF
Есть скрипт который выполняется после нажатии кнопки генерировать или по шедулеру в определённое время (как неважно) копирует файл ексель на другой диск и присваивает ему имя в формате даты. ...

Заполнение ListBox с использованием свойства List
Здраствуйте, уважаемые форумцы! Можно маленький вопросик? Надо написать макрос, кот бы производил заполнение списка пятью фамилиями, используя свойство List, и связать с кнопкой. Вот написала:...

Реализовать в форме удобный выбор даты и времени
Доброго всем времени! Хочу реализовать в форме удобный выбор даты и времени. Есть несколько идей. 1. дата: - первый вариант сделать выпадающий список (comboBox) при нажатии на триугольник...

Выход из документа без сохранения.
Нужно закрыть документ без сохранения. К сожалению ничего неполучается. Private Sub Document_Close() Application.DisplayAlerts = True strPath = 'C:Моя директория' sName = ActiveDocument.Name ...

Имя учетной записи компьютера в VBA
Друзья! Оооооочень много вариантов получения имени пользователя, однако почти ничего не нашел, как найти имя учетной записи компьютера. Дорогие профессионалы, отзовитесь и помогите в решении...

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

Макрос удаления пустых строк в таблице
Имеется таблица. Если в столбце Н строки не содержат никаких значений (пустые) то такие строки надо удалить. Казалось бы проще некуда. Не могу создать рабочий макрос!

Вычислить факториал
Здравствуйте! Старшей дочке дали задачку по Excel. Вычислить факториал. Наваяли с ней код. Скомпилился нормально, но ничего не показывает, хотя, вроде должен: Dim IntNum As Integer 'Dim IntCount...

VBA Excel как создать подсказку
Доброго времени суток возможно ли создание подсказки (коммента) в пользовательской функции подобно как в стандартных функциях Excel? Место которое интересует на рисунке выделено красным ...

Объекты в Excel
Объект Application (Приложение) занимает самый верхний уровень иерархии объектов Excel. Объект Application управляет установками и параметрами уровня приложения, т.е. такими, которые можно найти в...

Заполнение ячеек в Excel циклом for
Ячейки в Excel данным способом почему-то не заполняются. Почему? Как это исправить? Sub t() Dim teta As Double teta = 0 For i = 1 To i = 10 Cells(i, 1).Value = teta teta = teta + 0.25...

Ошибка Run time error ‘-2147417848 (80010108)’
Добрый день. Долгое время работал с макросом в Эксель 2010, ищущем дубли на листе: 1. в пустую ячейку столбца С, следующую за последней заполненной, вставляется слово, по которому идёт поиск...

Как добавить кнопку на лист
Подскажите пожалуйста, как сделать в EXCEL кнопку чтобы при ее нажатии запускался макрос Visual Basic? Чего-то не могу ее найти не в Objects, не в Hyperlink... непонятно.

Обработать ячейки таблицы, в которых содержатся цифры
Уже третий день не могу вникнуть в VBA в Word при работе с таблицами. Контрольная подвисла, время начинает поджимать, но нужно разобраться, а не банально копипастом все делать. Задание вкратце: В...

Информация о pdf файле
Добрый всем день Возник вопрос: из VBA подсчитать количество страниц pdf документа. Бросил на форму контрол. Документ просматривается. На закладке страниц видно, что их 64(страницы даже...

Как выделить текст по абзацам и разрывам строк в Word?
Помогите разобраться пожалуйста и написать макрос. Сразу признаюсь, что я не программист, хотя мне многое интересно. Очень часто приходится использовать выделение текста в ворде. Использую...

Как удалить строку всю?
В Эксель у меня строки с данными..... по номеру строки мне надо удалить всю строку....) есть команда такая или как?

Перевод градусов в радианы
Суть проблемы: сто лет не программировал на языке макросов в Excel и нежданно-негаданно свалилось задание. В ячейку D8 вводится любое число градусов (от 0 до 360), оно должно автоматически...

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

Поиск и замена текста Word из ячейки Excel
Здравствуйте. Стоит такая задача: Требуется создать папку с именем из ячейки эксель, копировать туда вордовский файл, открыть его, найти в нем слова "nomer" и заменить их на число из ячейки эксель....

Замена запятой на точку
Совсем маленький "зацеп". Несколько лет назад все работало как положено. А сегодня перестало. Точку на запятую меняет. Все в порядке. По тексту: sB =...

Очистка массива.
объявлен массив public mass_vopr(1 to 30) as integer. по ходу выполнения программы он заполняется значениями. Требуется в определенный момент очистить его и вновь продолжать с ним работать....

Combobox с поиском на VBA
Добрый день! Нужна ваша помощь. Недавно начал осваивать VBA по рабочей необходимости возникла задача и столкнулся с проблемой, что не знаю как ее решить. Задача у меня такая: Есть combobox,...

Узнать количество объединенных ячеек
Может кто подскажет как можно программно узнать количество объединенных строк или столбцов.

Перенос макроса из Excel в Goggle таблицы
Всем привет. Я ничего не понимаю в программировании. Искал макрос, который сделал бы 2 ячейки взаимосвязанными. Нашел... Но теперь мне нужно перенести его в Гугл таблицы. Вот Макрос: Private...

Visual Basic + Excel - удаление листа из книги
Прошу помощи. Имеется файл kat.xlsx (книга Excel) нужно из него удалить несколько первых листов, например 5. Вот так вот не выходит: Dim ob_exc As Object Dim ob_book As Object Dim ob_sheet As...

Ввести значение переменной в окне
Рисую k = InputBox("Ввести значение k:")Результата нет. Ввожу не важно что, получается k равно то ли бесконечности толи ещё чему, но не тому что я ввёл. Где тут камень? Пробовал проверять ввожу...

Заполнение многомерного массива
Доброго времени суток, Помогите разобраться. Как заполнить двумерный массив после его объявления? '... Dim Arr(1 to 2, 1 to 3) as string Arr() = Array(("a", "b", "c"), ("d", "e", "f"))...

Макрос сохранения в PDF по имени файла
Всем привет. Имею макрос сохранения Excel в PDF на рабочем столе Sub Export_PDF_Order() ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:="C:\Users\" &...

Как записать значение в ячейку
Уважаемые! какой функцией сделать вывод не в окно, а в ячейку на лист. Set ra = GetQueryRange(URL$, "2") ' выполняем веб-запрос If Not ra Is Nothing Then Set c = ra.Columns(1).Find("Add*",...

Как написать макросы вычитания, умножения и суммы (integer) 2-х чисел
Помогите. Нужны макросы вичитания, умножения и суммы (integer) 2-х чисел

Переменная String более чем 255 символов
возможно ли в переменную типа string проставить значение болие чем 255 символов

Сохранение вложения
Добрый вечер. По электронной почте приходят письма. Как написать макрос для почтовой программы Outlook 2013. Требуется, если письмо содержит хотя бы один файл вида 12_2тлд_НАЗВАНИЕ С...

Выполнить активное действие (чтобы компьютер не блокировался)
Какое действие нужно выполнять на макросе VBA, чтобы не блокировался компьютер? SetCursorPos не канает :). На некоторых виндах стоит такая штука, что через минут 5-10 простоя (не двигается мышь и...

Найти минимальный и максимальный элемент массива
Как найти минимальный имаксимальный элемент?

Удалить повторяющиеся значения в одной ячейке
Помогите, пожалуйста, справиться с такой задачей. В ячейке массив слов такого вида: -слово1 -слово2 -слово3 -слово2 и т.д.. каким образом можно избавиться от повторений одних и тех же слов в ячейке?

Управление приложениями посредством VBA
Доброе время суток! Кто-нибудь знает, может ли VBA управлять приложениями. Например, посредством shell метода запускаем приложение. Посредством SendKey эмулируем нажатие клавиш. А если необходимо...

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

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

Заменить один символ на другой на всех листах рабочей книги
Доброго времени суток! Помогите, кто в курсе. В excel нужен макрос замены одного символа на другой (к примеру замена буквы "ё" на букву "е" на всех листах) , устал пользоваться комбинацией Ctrl+H...

Замена символов в строке (макрос)
Записать макрос для двух столбцов, который будет удалять следующие символы: * + - / = _ 111 : . срочно нужно учесть что данные представлены в виде ссылок(при двойном клике...

Заполнение ячеек случайными числами
Поскажите пожалуйсто, каким самым простым способом можно забить ячейки случайными числами? К примеру, заполнить 50 ячеек (А1:Е10).

Проверка наличия символа в строке + подсчет
Всем, Здравствуйте. Помогите разобраться в следующем примере Имеется таблица (excel 2003) с данными. Информация имеется только в первом столбце. Необходимо проверить имеется ли символ "!" в каждой...

Переключение между книгами
Открыты 2 книги. Одна - источник данных (название всегда разное). Другая - приемник. Название всегда "Книга1". Как переключиться с источника на приемник, понятно. А вот как обратно, если неизвестно...

Обмен данными между Excel и Project
Всем здравствуйте. Возникла необходимость по желанию пользователя при нажатии кнопки в ms project выгружать данные в Excel. И обратная задача: чтобы при нажатии кнопки в Excel, данные переносились в...

Удалить столбцы с определенным заголовком
Друзья, пытаюсь найти макрос для чтобы удалять ненужные столбцы т.к. каждый день имею дело с таблицами содержащими более 100 столбцов - предыдущий работник делал все это вручную. Вот нашел...

Печать с использованием функции Shell
Sub Procedure_1() Const sPathApplication As String = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe" Const sFilePath As String = "C:\Documents and Settings\Пользователь\Рабочий...

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

Список файлов из папки.
Доброго времени суток уважаемые форумчане. Возник вопрос, как методами VBA WORD, в textbox на форме, при нажатии кнопки, вывести список файлов находящихся в определенной папке? Все файлы имеют...

Форматный вывод чисел.
Подскажите пожалуйста как нужно сделать так, чтобы при выводе чисел(числа) выводились 3 знака после точки?

Округление в большую сторону, чтобы число заканчивалось на 9
Есть столбец А, в котором есть самые разные цены. Эти цены нужно округлить в большую сторону так чтобы, они заканчивались на 9 (столбец В). Можна ли это как-то автоматизировать и написать макрос....

Передача массива в другую процедуру
Как передать массив в другую процедуру вот мой код выбивает ошибку Type mistmach Public Sub vvod() Dim i As Integer Dim p As Integer Dim n As Integer p = 2 Dim b() As Integer ReDim b(1 To 10)...

Копирование данных с сохранением формата исходных ячеек
Доброго времени суток. Совсем не разбираюсь в написании макросов, пользуюсь похожими... Возникла вот какая проблема. По команде от "кнопки" происходит копирование данных с листа "база корпуса"...

Как написать макрос на обновление данных из одной книги в другую
Как написать макрос на обновление данных из одной книги в другую, И можно ли НЕ указывать путь книг при написании макроса??

Работа с буфером обмена
Есть что-нибудь в WMI или Shell для работы с буфером обмена?

Преобразовать дату в число
Есть дата в переменной в формате «01.02.3088» как ее преобразовать в число 433941 ? То есть просто cells().numberformat = “@“. Но как это сделать в переменной, не изменяя ячейку?

Джон Уокенбах. Программирование на VBA в Excel
Хотел выразить благодарность всем, кто помогает и дает свои советы в решении проблем по программированию. Вот ссылка на книгу размером около 8 мег. ...

Перевести все буквы строки в верхний регистр в Word
Имеется документ Word. Нужно в Бэйсике, который вызывается в Ворде написать программу, чтобы 1. можно было увеличить весь текст заглавными буквами 2. уменьшить все буквы нижним регистром 3....

Сравнение данных 3-х ячеек и вывод данных в 4-ую
Всем доброго времени суток! люди добрый помогите плиз составить расчет... Пр: в 3 ячейках существуют числа... A1=7; B1=4; C1=11 в D1 необходимо поставить условие таким образом, чтоб при...

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

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

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

Отмена действий, выполненных макросом
Ситуация: применил макрос. Макрос содержит 5 команд. Затем я понял, что применил макрос по ошибке. Как мне отменить все эти 5 команд? Как я поступаю в этой ситуации: я нажимаю на стрелку кнопки...

Разрешить ввод в TextBox только цифр
у меня есть код ввода только цифр, при вводе буквы выходит ошибка, как сделать, чтобы выходило окно...к примеру, "Буквы нельзя!!" ?? Private Sub TextBox1_KeyPress(ByVal KeyAscii As...

Почему возникает ошибка "sub or function not defined"
Люди подскажите пожалуйста почему вскакивает ошибка "sub or function not defined" на строке №4 на фукции "PathFileExists(adres)" в файле1 Private Sub UserForm_Activate() dim adres as String ...

Как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook например в 10ой строке
Добрый день! Подскажите пожалуйста: как из Excel скопировать таблицу и вставить её как bitmap (картинка) в Outlook в заданной строке письма (например в 10ой) Т.е. делаю ежедневный отчет по...

Вывод сообщений на VBA в консольное окно
Коллеги, Странного хочу. Хочу выводить сообщения в консольное окно средствами VBA. На какие объекты/методы необходимо обратить внимание в первую очередь? Спасибо. BR

Создать календарь на Excel
Привет, прошу помочь мне в запутанной программе... Юзал поиск и нашел на этом форуме "Календарь на 1 месяц" Sub q() год = Range("E3").Value номер_месяца = Range("E4").Value Select Case...

Число e - как записать?
Как записать эту е? Добавлено через 6 минут Private Sub cmdWork_Click() Dim E As Single Dim qdx As Single Dim Mu As Single Dim Tm As Single Dim L As Single Dim Tn As Single

Макрос Word: вставить в конец документа строчку с информацией о документе
Нужен макрос, вставляющий в конец документа строчку с информацией о документе (путь, имя, дата открытия). Используемые объекты, коллекции, свойства, методы, функции: Paragraphs, Add, Range, Path, ...

как добавить в ListBox
Есть лист из 3 столбцов, наименование, Ед.из, цена При поиске наименования в listBox1 появляются варианты совпадений. Как добавить в listBox1 вторую колонку с ценой? Что бы listBox1...

Как скрыть строку в Excel
Здравствуйте! Подскажите, как правильно скрыть в Excel строку по условию. Если значение ячейки 0, то скрываем, в противном случае, берем следующую и проверяем. Что-то сделал, но оно не работает...

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

Макрос преобразование цифр в слова
Всем привет. Подскажите есть ли макрос для MS Office 2007, который преобразовывает цифры в словесное написание денежных единиц? или что то наподобие! Например: 1 234, 56 (одна тысяча двести...

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

Как определить, что ячейка скрыта
Доброго дня. для перебора всех не пустых ячеек я использую цикл Do While loop например: Do While cells(i,1) <> "" ' операторы i=i+1 loop Данный цикл игнорирует ячейки скрытые автофильтром,...

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

Какие параметры принимает "Cells"
Доброго времени суток! Начну с отмазки: задание дали, но теории никакой никогда не было. Задание во вложении. Набросал блок-схему для себя и нашел несколько примеров. Но собрать в единое целое не...

Поиск первой пустой ячейки в столбце А
Помогите, пожалуйста, новичку. Есть таблица, в которую постоянно вручную добавляются заполненные строки (от 1 до 10000), как макросом найти первую пустую ячейку столбца А, чтобы сделать вручную...

Как определить номер недели по дате?
Подскажите, пожалуйста, пример запроса для определения номера недели, по дате? В странице excel для этого действия используется функция Weeknum. Существует ли аналог в VBA?

Преобразование файла CSV в XLS
Уважаемые знатоки, обращаюсь к вам с проблемой, беспощадно точащей моё сознание уже 5-й день. Заранее оговорюсь, что буду благодарен за ВСЁ по представленному ниже алгоритму: как за предложенные...

Построение графиков в Excel
Подскажите пожалуйста, такая задача. Необходимо построить график в Excel. Даны значения, например, 51 57 56 48 39 46 48 57 47 49. Пользователь вручную через RefEdit выделяет диапазон этих значений...

Чтение и запись реестра Windows с VBA
Решил разобраться в теме: Чтение и запись реестра Windows с VBA Читаю с материалов сети: VBA предлагает функции GetSetting, SaveSetting, GetAllSettings и DeleteSetting для чтения и записи реестра...

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

Макрос - вставить число в следующую пустую ячейку
Помогите и мне с макросом: если вводить в ячейку F13 число, оно по средствам "макроса1" копируется в ячейку A2. Как сделать, чтобы при следующем вводе в ту же ячейку F13 другого числа, предыдущий...

Создание проверки на ввод цифр в TextBox
В TextBox нужно чтобы вводились тока цифры, и чтобы если ввели неправильно можно было повторить ввод.... помогите плз)))

Как узнать размер только что созданного массива
Dim aDevice() As Variant Dim iDevice As Integer 'Проверяем наполнение массива If UBound(aDevice) > 0 Then Exit SubЕсли массив пустой, наполняем 'iDevice = WorksheetFunction.CountA(Range(''))...

Скопировать строку из одного листа в другой (Excel)
Не понимаю почему работат. Worksheets('Work').Range(Cells(2, 1), Cells(2, 14)).Copy Worksheets('Work').Range(Cells(31, 1), Cells(31, 14)).PasteSpecial,а Worksheets('Base').Range(Cells(2, 1),...

Заполнить список combobox при загрузке формы
вот код: Private Sub UserForm1_Click() ComboBox1.AddItem "Беларусбанк" ComboBox1.AddItem "Белинвестбанк" ComboBox1.AddItem "Белагропромбанк" ComboBox1.AddItem "БПС-Сбербанк" End Sub ...

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

Импорт данных из Word'a в Excel, используя макросы
как импортировать данные из ворда в эксель при помощи макроса?? для начало я включил библиотеку (Сервис-ссылки) MS Word.. потом не знаю что делать... в Доке находится список людей: Новиков...

Какая функция в VBA выделяет целую часть числа?
Простой вопросик: какая функция в VBA выделяет целую часть числа? :)

Свернуть/развернуть сгруппированные столбцы
Здравствуйте! Подскажите, пожалуйста, как макросом свернуть и развернуть сгруппированные столбцы(как бы нажать +-)? Макрорекордером пробовала-ничего не записывает.

Как правильно удалить строку (Rows.Delete) (Решено)
Самое интересное, что метод Delete объекта Rows удаляет не указанную строку, а только первую её ячейку (как я понял). При чём, если строк множество, и их предполагается удалять перебором, то, как...

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

Перенос данных из Excel в Word с VBA
Есть некоторые данные в excel(на слайде 1 в ячейке a1(к примеру в ней написана фамилия человека)), и есть форма, на форме есть кнопка, при нажатии нужно чтобы из ячейки а1 на слайде 1 вытащились...

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

Как генерировать случайные числа в VBA
Нужно как то генерировать случайные числа. Таймера в VBA нет, а функция RND генерирует одну и ту же последовательность. Какие есть идеи?

Как проверить, в каком из Checkbox пользователь сделал выбор?
проблема вот в чем есть n-ое количество checkbox при виборе каждого дожна быть операция.... как поставить проверку на n-ое количество checkbox прикол с for n=1 to 12 if...

Как определить нажатую кнопку?
На рабочем листе Excel (не на форме) расположено N-ое количество управляющих элементов "CommandButton", поставленных на лист из Панели инструментов "Элементы управления", т.е. как OLEObject. Как...

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

Не запускается макрос на другом компьютере
Всем доброе время суток! Написанные макромы работают. Однако проект с этими макросами необходимо разместить на другом компьютере. В данном случае проект необходимо разместить на ноутбуке. На...

Исправить ошибку "Type Mismatch" в макросе
Доброе время суток.. При наладку 1с предприятия столкнулся с макросом который выводит бак код на весы.. В нем следуящая ошибка Private Sub CommandButton1_Click() Dim rc1 As Recordset Dim...

Проверить существование файла
Здравствуйте, коллеги. Мне нужно проверить существование файла, название которого не известно заранее. Известна только маска фала, которая задаётся приблизительно так: "объект_т" + MyName + ".xls" ...

Подсчёт листов в книге Excel
Можно ли составить программу в VBA чтобы она подсчитывала количество листов в книге Excel или же сама определяла номер последнего листа?

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

Автоподбор высоты строки в диапазоне
Добрый день! Необходимо сделать следующее: Если какой-либо ячейке из диапазона A1:C50 количество символов > 17, то осуществляется автоподбор высоты данной ячейки, а другие остаются без изменения. ...

Как сделать автоматический запуск формы после открытия документа?
1. Как сделать автоматический запуск формы после открытия документа? 2. Как сделать автоматический запуск макроса после открытия документа? 3. Как сделать надстройку в меню? Подскажите как...

Как обратиться к конкретной ячейке
Продолжаю задавать глупые вопросы. Уважаемые, используя метод Range обращался к ячейкам, например: name1 = Range("a1").Text name2 = Range("b1").Text name3 = Range("c1").Text ... Но тут возник...

Перенос данных из Excel в Word (на основе Word шаблона)
Пожалуйста помогите, приведите какой-то пример как организовать этот процесс нужно из определенных ячеек Excel'a, перенести данные в Word (на основе Word шаблона). Места подстановки данных в...

Разделить содержимое одной ячейки на несколько ячеек по пробелу
Задача состоит в том что нужно разделить содержимое одной ячейки на несколько ячеек.Например "Стул 10*50*60" на отдельно Стул и 10*50*60.Как вариант хотел сделать столбец ну или таблицу с так...

Как в коде файлы .xls сохранять в .csv
у меня их много я их последовательно открываю, обрабатываю и мне нужно сохранять их в ту же папку под тем же именем, но с расширением .csv вот так пробовала book.SaveAs FileFormat:=xlCSV ...

Запуск модуля из другого модуля
Возможно ли запустить весь модуль целиком из события формы? Sub Кнопка_Click() Module1 End SubПри ссылке на модуль выдает ошибку: https://msdn.microsoft.com/en-us/library/office/gg251600.aspx...

Сканирование штрих кодов средствами Excel
Здравствуйте! У меня на роботе возник вопрос ускорения перебора товара клиентам по накладной. Ну и в первую очередь что в голову пришло так это сканирование штрих кода. Уже есть небольшой макрос...

Ошибка Класс не зарегистрирован
Привет! В access при запуске макроса на одном из пк появляется ошибка класс не зарегестрирован, указывает на строку currentProject.connection...как исправить?

Как создать новую книгу с заданным именем?
Как создать новую книгу с заданным именем? Например Sub CreateWorkbook() Set NewWorkbook = Workbooks.Add End Subсоздает книгу с именем по умолчанию, а как изменить имя, чтобы создалась не...

Форма для ввода, поиска и редактирования таблицы excel
Всем хорошего настроения! Есть таблица, сделал форму для ввода данных. Необходимо чтобы при вводе данных в TextBox1 происходил поиск из первого столбца и после соответствия выводил в Textbox2 и...

взаимодействие "if" and "or"
Ребята посмотрите пожалуйста где ошибка, вместо того чтобы удалять ячейки в которых нет 00 или 03 или 06 и т.д. Удаляется все. Sub aero2() Dim wsh As Worksheet Dim i As Long Dim...

Как выделить определенные ячейки макросом?
Добрый день! Заранее простите за глупый вопрос. Есть массив ячеек (5-7 тысяч в столбце).Нужно выделить, допустим, каждую третью. Как это сделать? хотел записать макрос. получил в тестовом...

Верхний регистр заглавной буквы строки
Кто знает есть ли какая то функция регистра для заглавной буквы предложения (не слов) что бы не химичить с UCase и LCase?

фильтр (vba excel)
Делаю фильтр на табличку. В первоначальном задании было достаточно просто, т.к. все укладывалось в автофильтр (1 запись - 1 строка). Но вот тз изменилось и теперь в исходной табличке МОГУТ быть...

Выделить из строки цифры
Помогите решить задачу. На запрос вводим строку из последовательности чисел и знаков препинания, например 10,30,500,400. Разделителем может быть любой символ отличный от числа. Задача выделить...

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

Функция ВПР для определенного цвета ячейки
Всем привет! Пишу макрос с участием функции ВПР чего я пытаюсь добиться от него: если ячейка Cells(10, 5) закрашена в определенный цвет (255 255 153), то формула ВПР ищет в этой ячейке искомое...

Обсуждение учебников, справочников, самоучителей по VBA
Эта тема для обсуждения литературы по VBA, представленной в теме https://www.cyberforum.ru/vba/thread432513.html, а также для обмена опытом по обучению и самообучению Pifan, если вы с нуля...

Run time error 91: Object variable or With block variable not set (не могу найти ошибку)
Уважаемые форумчане! Пожалуйста посмотрите файл. Подскажите в чем ошибка. В комбобоксе выбираю какой либо номер, делаю изменения в текстбоксах (или без изменений) пытаюсь сохранить и вылетает эта...

Как в VBA сделать формат ячейки текстовым?
Подскажи пожалуйста, как в VBA сделать формат ячейки текстовым, а то при записи '1.' в ячейку отображается '1'?

Макрос на поиск и замены значения
Добрый день! Только начал заниматься макросами и вот столкнулся с проблемой Есть таблица со столбцами А B и т.д. нужно найти значение в ячейке Ai и заменить его на значение Bi. Помогите пожалуйста, с...

Перебор значений лотереи, контроль выпавших чисел
помогите пожалуйста решить задачу Перебор значений лотереи и когда выпадает 7 на экране отображается окно: "ваш номер 7, Вы выиграли!" нужно сделать задачу с операторами do...loop while и ...

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

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

Тест VBA
Помогите плз доделать тест 1. Каких типов данных не существует в языке VBA: variant case longint singl 2. Каких типов данных не существует в языке VBA: complex

Макрос для переименования файлов
Привет, есть таблица, в 1й столбце - путь к файлу, который нужно переименовать, 2й столбец - новое имя для этого файла. Нужен макрос, который будет присваивать каждому файлу из 1го столбца новое имя...

Нужно взять данные из другой книги в рабочий лист
Здравствуйте! у меня такая задача на рабочем листе в А1 номер листа, в В1 номер столбца другой (закрытой книги) листов в этой книге до 5 столбцов до 40 В С1:С5 надо занести даннные...

Прочесть буфер обмена
Здрасьте! Как в VBA сделать субж? Сенк!

Как выделить диапазон строк?
нужно выделить несколько строк Rows('1').Select - ok Rows('1:24') .Select- ok Rows(Count * 70 + 10).Select - ok Rows(Count * 70 + 10):(Count*70+10+69).Select - Error

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

Импорт из Excel в Access
У меня есть данные в Excel, но я не знаю сколько строк и сколько столбцов есть в нем, мне нужно по нажатию кнопки, создать БД в Access и импортировать все данные в БД. и второй вариант. Я знаю...

Выделение цветом активной ячейки в Excel
В Excel активная ячейка выделена границей – как выделить ее цветом? Имею ввиду, что при нажатии Enter, мышки и т.д. ячейка меняет цвет на заданный, а в предыдущей востанавливается цвет фона

Открыть\закрыть текстовый файл
здравствуйте если открываю так: Dim ProcID As Long Debug.Print Папка & File ProcID = Shell("notepad.exe" & " " & Папка & File, vbMaximizedFocus) тогда открывает Блокнотом, а как открыть...

Внезапная ошибка Error in loading DLL
Прошу помощи! Есть (или был) длинный код, который с большим скрипом писал несколько недель. Сейчас открываю документ, а мне Excel выдает ошибку "Error in loading DLL", а лист, на котором было...

Поиск одинаковых строк в 2 разных таблицах
Доброго всем вечера. Возникла такая ситуация, необходимо в большой таблице (12 тысяч записей), найти совпадения строк со 2 таблицей(100-1000 записей), и пометить одинаковые строчки каким либо цветом...

Возможно ли создать .exe файл для формы созданой в Excel с применением VBA?
Помогите пожалуйста!!! :cry: Я создала тестовую оболочку с помощью VBA в Excel, можно ли создать .exe файл таким образом, чтобы програма-тест открывалось не на фоне робочей книги, а как отдельное...

Количество уникальных значений по условию
Привет, всем! Столкнулся со следующей проблемой: требуется подсчитать кол-во уникальных значений в одном столбце, если в соседнем столбце значение удовлетворяет определенному требованию. Желательно...

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

Используя метод intersect добиться чтобы при изменении одной из ячеек, остальные пересчитывались автоматически
Добрый день! Никак не могу сделать следующее: Есть 3 ячейки. При вводе значения в ячейку 1, ячейки 2 и 3 пересчитываются по формуле, которая использует значение ячейки 1. При вводе значения в ячейку...

Argument not optional
Обьявил функцию: Function searchThrowWorksheets(machineNumber As Integer) когда вызываю её: montant = searchThrowWorksheets(number) выскакивает "Argument not optional". переменная number...

Перевод из двоичной системы счисления в десятичную
помогите пожалуйста)

Перенос данных из одной таблицы в другую
Здравствуйте! Помогите пожалуйста. Задача состоит в следующем: есть 3 xl книги (ИТОГ, май ОО и ОТС), нужно перенести данные (столбцы : план 2011 (наша заявка), кз и авансы) 1го листа из таблиц ОО и...

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

Подсчитать в строке количество вхождений букв b, k, t
Помогите, пожалуйста. нужно срочно написать макрос для WORD 2003 sp3 : Дана символьная строка. Подсчитать в ней количество вхождений букв b,k,t. Нашёл подобную прогу для поиска буквы "а", но при...

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

Название месяца в число
Есть строковая переменная strMonth="февраль". Есть ли какая-нибудь стандартная ф-ия vba преобразования в цифру?, в данном случае 2

Инициализация формы и Listbox
Доброго всем дня. Есть форма с listbox. При инициализации выполняется такой код: Private Sub UserForm_initialize() Call GetProcess2Listbox me.lbProcess.ListIndex = 0 MsgBox...

Заполнить массив из 100 элементов случайными числами
Задание: Заполнить массив из 100 элементов случайными числами от 0 до 1000. Отсортировать массив, организовать поиск числа в массиве.:help: Решение: Dim x(100) As Integer For N = 1 To 1000...

Ошибка: Run-time error '5', Invalid procedure call or argument
Вообщем сделал программу всё работала пока не дописал выражение до конца и тут бах ошибочка. Вот код: Private Sub CommandButton1_Click() a = CInt(TextBox13.Text) Worksheets(1).Range("B1").Value...

Вызов надстройки через VBA
Здравствуйте. Очень нужна Ваша помощь. Задача следующая: В VBA для Excel 2003 необходимо написать макрос с использованием (вызовом) уже существующей надстройки. Какой командой в VBA можно...

Как распаковать ZIP-файл в 7z?
'При помощи VBA WinRAR распаковывает архив в папку … q = Адрес_сохранения_файла 'путь к каталогу, то есть к папке, в конце пути для распаковки должен присутствовать обратный слеш b =...

Как узнать количество строк в запросе?
Dim rst as object Set rst = docmd.currentdb.openrecordset("Select * From Клиенты") 'перехожу на последнюю запись rst.movelast 'получаю номер строки Msgbox rst.recordcount

Закрытие сторонней программы средствами VBA
Доброго времени суток)) Прошу не пинать, ибо не являюсь программером на VBA Но мое искреннее любопытство взяло верх... и так, что требуется: Set WshShell = CreateObject("WScript.Shell") ...

Простой парсинг строки в Excel, поиск значения после символа
Здравствуйте, подскажите пожалуйста, как можно решить такую задачу: В таблице Excel есть столбец со строками вида: «ЭРТ №2 Такой-то край, Такой-то район, в/г ВоенныйГородок № 42 Кот 174...

Можно ли получить остаток от деления
Есть задача. К примеру число 12400 нужно разделить на 12000 и 400 при делении на 500 (как-то не по русски, но должно быть понятно из примера). Примеры 12400 / 500 = a=12000...

Объединить значения ячеек
здравствуйте, у меня вопрос, как в excel сделать объединение ячеек? пример: |раз|два|три| |раз|два|три| |111|222|333| |раз|два|три| |раз|два|три| |one|two|three| |раз|два|три| надо что бы...

Как рассчитать количество дней между двумя датами
Помогите пожалуйста, как в vba рассчитать количество дней между двумя датами?

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

Перенос данных с одного листа на другой в Excel
На первом листе есть данные. При активации следующих листов проверить наличие данных в этих листах. Если данных на листе нет, то скопировать их с предыдущего листа. Притом, при выполнении макроса,...

Окно MsgBox с закрытием через время
Добрый день форумчане. У меня вопрос, как можно реализовать MsgBox, который либо можно нажать стандартно пользователем через "Да" допустим и одновременно сам же MsgBox может автоматически нажать...

Wrong number of arguments or invalid property assignment (Error 450)
При выполнении этой программки вылетает вот такое сообщение: Wrong number of arguments or invalid property assignment. В чём проблема? Строго не судите, изучаю VBA аж второй день)

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

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

Ошибка "Expected: =" при вызове функции
День добрый! Давно не работал с VBA уже все подзабыл. Есть такой код Function SplitTextFile(ByVal filename$, ByVal MaxRowsCount&, ByVal Delimiter$, _ Optional ByVal...

Сделать все латинские символы в вордовском документе курсивом
Добрый день. Задача. собственно, в сабже. Есть вордовский документ (формат doc либо docx, если это важно). Необходимо все латинские символы сделать курсивом. Например было так: A и B сидели на...

Удалить все листы кроме первого
Sub Dell_all() Application.DisplayAlerts = 0 Dim i As Integer For i = 2 To Worksheets.Count Worksheets(i).Delete Next i Application.DisplayAlerts = 1 End Sub Удаляет все парные...

Обойти сообщение об обновлении связей?
Привет! Вопрос в заголовке, при открытии файла об обновлении связей надо ответить 'Да' без сообщения Excel-я. Спасибо

Добавление подписи в сообщение Outlook
Доброе время суток! Прошу помощи. Есть необходимость добавить в создаваемое сообщение подпись, используемую по умолчанию в Outlook'е. Т.е. макрос создает письмо (тема, кому и т.п.). все...

Удалить всю строку, если определенная ячейка пустая
Добрый день! Нужен макрос, который будет удалять всю строку, если ячейка в столбце "А" пустая.

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

Отправить письмо используя Thunderbird
Добрый день! Пытаюсь сделать макрос чтобы отправить письмо через Thunderbird, нашел такой код Sub SendEMail() Dim FullStr As String FullStr = "C:\Program Files\Mozilla...

В выделенном фрагменте Word убрать все лишние пробелы.
Помогите решить задачу. Практически ничего не шарю в VBA. В выделенном фрагменте русскоязычного документа текстового процессора Word убрать все лишние пробелы между словами (оставить только по...

Макрос на загрузку текстового файла в таблицу Excel
Есть макрос для загрузки текста из текстового документа в таблицу эксель, изначально выполняется. Sub Main() Dim TextLine As String Dim myRow Dim myCount Open "Z:\Filename.txt"...

Удалить дубликаты
Уважаемые знатоки VBA. Каждый из вас наверняка встречался со следующей задачей: есть столбец с данными. В этом столбце есть дубликаты т.е. повторяющиеся значения. Задача: с помощью VBA удалить...

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

Как макросом выполнить F2+Enter для диапазона ячеек?
Добрый ночер всем. Нужна помощь по сабжу. Excell 2013. Есть столбец, в котором каждая из 10 тысяч ячеек имеет "не введенную" формулу, то есть визуально содержимое всех ячеек (активные\не активные)...

На New MSComm получаю ошибку ошибка 429 ACtiveX component can't create object
Здравствуйте, что-то на строке Dim MSComm1 As MSComm Set MSComm1 = New MSComm 'стал получать ошибку ошибка 429 ACtiveX component can't create object В то же время библиотека Microsoft Comm Control...

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

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

Как сохранить в csv utf8 кодировки файл из exсel?
Как сохранить в csv utf8 кодировки файл из exel?

Как убрать расширение файла, и отображать толко имя файла?
Подскажите как убрать расширение файла? грубо говоря имеем: dim a as string a = fail.name "a" отображается как "****.txt" как сделать, чтобы отображалось только само имя файла? - "***" ??

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

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

Штрих код в кодировке Code 128. Расчет контрольного числа
Есть стандарт способ создания штрих-кода. 'Строка штрих-кода в кодировке Code 128 Public Function Code_128(A As String) As String Dim BCode(0 To 1023) As Integer Dim BInd As Integer ...

Run-time error '1004'
Камрады, Постепенно схожу с ума. Пытаюсь в Excel средствами VBA скопировать лист целиком из одной книги в другую. Вот код: Option Explicit Sub Main() Dim oRptWorkBook As Workbook,...

Место символа в строке
Как узнать на каком месте в строке стоит определенный символ? Ну например, дана строка "аывраводлго", как узнать на каком месте здесь стоит буква "о"

Подключение к БД access через VBA excel
Private Sub CommandButton1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0ata Source=C:\Users\CHESTER\Desktop\2-ÀÒÏ-1...

Разработка для Excel (суммирование положительных и отрицательных чисел)
Всем добрый день, есть ко всем огромнейшая просьба. Есть таблица в Екселе, нужна программа для суммирования значений ячеек одного столбца. Например в столбце Е имеются значения -5, 10, -11, 12, нужно...

Поиск картинок в документе Word
1)Как получить список всех картинок что есть в документе? 2)Как бы перетащить такой найденный объект-картинку в PowerPoint презентацию? Мне говорили что есть какой-то метод для "переприсваивания"...

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

Как сделать скоростное многостраничное сканирование (twain или wia)
word: макрос: как сделать скоростное многостраничное сканирование (twain или wia) Макрос многостраничного сканирования простой. Надо чтобы диалог сканера twain или wia не закрывался после каждого...

Как изменить размер шрифта
как изменить размер шрифта в формате оси ???????.очень нужно в курсовой работе.помогите пожалуйста.дайте коды на это

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

TextBox VB Word 2007
Доброго времени суток! Подскажите пожалуйста я создала пользовательскую форму в которой есть TextBox и присвоила переменной текстовое значение из него: strFIOText = TextBox1.Text А вот как...

Макрос: замена текста во всем документе
На просторах интернета нашел вот такой макрос Sub FindInStories() Dim myStoryRange As Range For Each myStoryRange In ActiveDocument.StoryRanges With myStoryRange With .Find ...

Обращение к листу по его кодовому имени
Народ помогите пожалуйста, не могу понять как обратиться к листу по его кодовому имени через переменную т.е. если написать Private Sub CommandButton1_Click() Лист3.Cells(1, 1) = "er" End Sub...

Отображение текста в строке состояния
Подскажите, пожалуйста, как исправить макрос, чтобы текст в строке состояния изменялся при открытии рабочей книгии или листа? Sub ChangeStatusBarText() Application.StatusBar = "Как надоело...

Простой скрипт для сохранения писем Outlook
Здравствуйте. Прочитал все подобные темы на форуме и ничего не нашел. Нужен самый простой скрипт, который берет письма из определенной папки и сохраняет текст письма в файл .txt(к примеру)....

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

ComboBox, как обратиться к списку по индексу
Здравствуйте, как будет пятая запись, пятая строка в ComboBox q=5 MsgBox Me.ComboBox1.ListIndex(q) MsgBox Me.ComboBox1.Item(q) Как порядочный в коде точку ставил, выбирал ... не выбирается ...

Исправить ошибку "Out of memory" при многократном (цикличном) использовании массива
Программка многократно обновляет массив В результате возникает ошибка out of memory Наполняю массив командой mX = Range(Cells(1, 1), Cells(N, 15)).Value где N может быть равно 50000-100000 и...

Проверка существования каталога или файла
Какой функцией узнать существует ли файл или каталог?

Фильтрация в Excel с несколькими критериям
В одном из листов книги Excel содержатся данные, третий столбец которых содержит значения дат. Необходимо через VBA задать фильтрацию данных таким образом, чтобы были выбраны все строки, в которых...

Выбор даты в календаре
Помогите кто-нибудь ! Как сделать, чтобы при нажатии кнопки выходил календарь и можно было бы выбрать нужную дату и она помещалась бы в TextBox ? ZandR

Программное добавление элементов в пользовательскую форму
Доброго времени суток! Есть пользовательская форма (см. вложение). Стоит нетривиальная задача (во всяком случае для меня). :) Нужно сделать так, чтобы при изменении значения в текстовом поле...

Как закрыть Excel из макроса без сохранения документа?
Надо закрыть Excel - само приложение из макроса без сохранения документа. Как это обстряпать?

Перебор листов
Добрый день. На одном из форумов нашел интересный макрос. Он из группы файлов переносит все данные, проходя по всем листам. Работает он без проблем. Но мне необходимо чтобы он начинал перебор со...

Как убрать крестик на UserForm?
Есть UserForm, есть кнопка выхода из формы, но надо убрать крестик в правом верхнем углу....чтобы выход из формы осуществлялся только по кнопке........возможно ли это в VBA?

Соединение нескольких файлов в один
Всем привет. Прошу помощи. Имеем 30 файлов эксель одинаковой структуры (разное только количество строк) их нужно собрать в 1 эксель фаил. Помогите пожалуйста. Заранее огромное человеческое спасибо....

Excel 2007. Перенос ячейки на одну вправо/влево
Добрый день. Делаю очень большой древовидный список в Excel. Часто приходится перетаскивать ячейку на 1 вправо. A1 -> A2, B3->B4 и т.д. Можно ли как-то делать это действие горячими клавишами?...

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

Записать содержимое ячеек в масив
На форме задается диапазон ячеек в экселе, например А2-А7. Как записать все содержимое этих ячеек в массив?

Вставка gif-файлов, изображающих анимацию
Тихвинский В.И. ВСТАВКА В WORD GIF ФАЙЛОВ ИЗОБРАЖАЮЩИХ АНИМАЦИЮ В документ Word возможно вставить интерактивные файлы Gif. Недостаток в том, что работать они на ранних версиях программы будут в...

Всплывающие подсказки
Как сделать всплывающие подсказки к элементам управления на форме?

Печать указанных страниц в Excel
Необходимо написать макрос, который бы позволил выводить на печать не диапазон страниц с ... по ..., а конкретно указанные страницы, например - 1,5,6,8 ... и т.д. Делаю разметку страниц, номера...

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

Как в word-е перейти в начало определенной строки, если положение курсора не известно?
Как в word-е перейти в начало определенной строки, если положение курсора не известно?

Как выделить столбцы в Excel VBA
Существует способ выделить строки Rows("1:1").Select хотелось бы таким же путем выделять столбцы. Что-то типа Columns(кол_начальное& ":" &кол_конечное).Select где кол_начальное и...

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

Поиск файла в папке
В папке с:\отчеты лежат отчёты по дням: "отчёт за 16.05.2017".xls "отчёт за 15.05.2017".xls "отчёт за 14.05.2017".xls И т.д. Пишу макрос, который будет искать по маске: "отчёт за " & Date -...

Как создать нумерованный список?
Добрый вечер. Обыскал все что можно. Почитал инфу о работе с вордом, но не нашел как создать список. Прошу помощи) Пример: 1) пункт 1 2) пункт 2 3) пункт 3

Определить номер столбца
Добрый день! Подскажите, как определить номер столбца в выбранном диапазоне (диапазон выбран через InputBox) VBA Выбранный диапазон в моем случае это 1 строка и несколько столбцов от 2 до 5. Мне...

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

Макрос "нажатие кнопки" на веб странице
Здравствуйте. Есть код со страницы <A href="?pool=0">0</TD> <td>st3333</td> <td></td> <td>1FjPnC ... f3wkr6</td> <td>Alive</td> <td>494 / 5</td> <td>1.00%</td> <td><form name='pselect'...

Макрос сортировки по возрастанию построчно в области
Ребята выручайте - нужно составить макрос EXCEL для построчной сортировки - к примеру есть некая матрица(область) данных из 3 строк и 5 столбцов .............. 0 12 4 8 9 3 6 2 14 7 18 5 9 0 4...

Как разбить огромный csv файл
Добрый день, помогите решить задачу: есть ексель файл на 5000 строк и есть огромный csv файл на 1,16 Гбайт, нужно найти совпадающие значения в этих файлах пробовал через функцию ВПР находится все до...

Удаление строки с определенным порядковым номером по всей книге excel
Уважаемые программисты, помогите пожалуйста! Как удалить строку с определенным порядковым номером по всей книге excel?

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

Закрытие формы
Создаём форму. Закрыть её можно, просто кликнув по крестику в правом верхнем углу. Но правила хорошего тона требуют предусмотреть кнопку закрытия, при этом надо прицепить к кнопке Обработчик Клика....

Надстройка: Macro Tools VBA – инструменты разработки макросов VBATools
Добрый день! Представляю надстройку: Macro Tools VBA – инструменты разработки макросов VBATools Цели данного блога: 1. распространение надстройки MacroToolsVBA 2. улучшение функционала...

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

При запуске макроса выпадает сообщение "Compile error in hidden module: Module1".
При запуске выпадает сообщение "Compile error in hidden module: Module1". Что делать, догадываюст что нужно подключить какую то библиотеку, но как? Проект защищен паролем и вообще его нужно как то...

Макрос, который фиксирует дату и время запуска и создания каждого нового документа в MS Word в отдельном txt файле
Доброго времени суток. Столкнулся с проблемой создания макроса для Word`a на MS visual basic for applications. Суть макроса должна быть в том, что при запуске непосредственно Word`a, а так же при...

Макрос для подстановки символов в словах
Здравствуйте, всем. Подскажите как написать макрос для Word, который будет в каждом слове текста вставлять символ, определенного кегля. Символ вставляется в любом месте слова после первой буквы и...

Макрос автофильтра "содержит"
Здравствуйте. Экселевский макрос автофильтра "равно" с подстановкой значения фильтра из ячейки А1 имеет вид: Sheets("Лист1").Select Selection.AutoFilter Field:=1, Criteria1:= _ Range("A1").Value,...

Изменение настроек выбранного принтера Excel из VBA
Задача: Изменение настроек выбранного принтера Excel из VBA. Определимся с условными названиями: Принтер Windows - Принтера из Пуск -> Панель управления -> Принтеры Примнет Excel - Excel ->...

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

Макрос для сохранения слияния
Всем привет! всю историю описывать не буду... но на текущем этапе у меня есть файл в экселе (ДБ) к нему методом слияния подключено 3 файла word (Договор, Акт, Накладная). Есть макрос в word,...

Как разделить столбец по первому пробелу?
Добрый день! Есть таблица в Excel. Нужно каким-то образом разделить данные по первому пробелу, чтобы в первом столбце осталось то, что было до первого пробела, а во втором - все остальное. Сейчас...

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

Добавление CheckBox на форму Excel
Здравствуйте! Необходима помощь с реализацией процедуры, которая позволяла бы при инициализации формы добавлять на нее элементы управления CheckBox'ы по следующей схеме: Наличие CheckBox'a...

Как определить тип данных в ячейке
Есть объект Range (фактически столбец листа Excel), как определить тип данных в каждой из ячеек?

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

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

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

Есть ли встроенная константа Пи
Ребят, подскажите неужели в вба нет встроенной константы Пи? пробовал и Pi и Math.Pi - нифига... Может как-то по-другому?

Замена точки на запятую в столбце
записывался макрос, который во всём столбце заменяет точку на запятую: Columns("J:J").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows,...

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

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

Перенос данных из одной книги в другую по условию
Здравствуйте! Пытаюсь решить задачу. Пока не очень получается. Есть две книги. Допустим их имена 1.xlsx и 2.xlsx Задачка: в обоих таблицах есть по одному столбцу(столбец "A"), в котором...

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

Проверить, содержит ли строка символы, отличные от цифр и точки
Помогите плиз!!! Заранее благодарен!:)

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

Как суммировать данные с разных книг Excel в одну таблицу
Уважаемы гуру VBA помогите новичку не провалить задание.:cry: Дело в том, что с разных отделов ( около 40) мне шлют заполненную таблицу Excel, универсальную для всех. Разница лишь в цифрах, которые...

Ошибка в VBA object doesn't support this property or method
Всем добрый день подскажите в чем ошибка object doesn't support this property or method error 438 вот скрин подскажите что не правильно

Как прибавить к дате месяц?
VBA Есть какое-то ComboBox2.Value - дата в формате dd.mm.yyyy как получить значение на месяц больше, т.е. dd.mm+1.yyyy Помогите, кто знает!

Закрыть документ
Коллеги, добрый день. К сожалению, не знаю VBA, потому с простой задачей вынужден обратиться к Вам. Есть статичный документ. Требуется макрос, закрывающий Word (целиком, а не только документ),...

Обращение к определённому листу и чтение из него ячеек
Подскажите, как обратиться к определённому листу и прочитать из него нужный массив ячеек и потом это всё перенести на активный лист ?

Метод Delete из класса Range завершен неверно
Доброго времени суток! Имеется следующий код: If NewWb.Sheets(j).Name = "Прайс-лист" Then NewWb.Sheets(j).Range("A10:I12").Select Selection.Delete ...

Вопрос.Почему иногда вместо слов появляются знаки вопроса??
Здравствуйте ребята! Может кто знает, из-за чего в комбинированных полях, зачастую (не всегда), вместо внесенной туда информации вылазит строка, состоящая из одних знаков вопроса?после перезагрузки...

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

Определить день недели определенной даты
Товарищи! подскажите пжлст как определить день недели случайной даты, например 01.01.2016? VBA

Создать копию листа и переименовать его
нужна помощь. у меня есть таблица 10 строк. столбцы - ФИО, дата рождения, гражданство. я сделал так, что первая запись переносится на другой лист с названием "Анкета 1". но мне нужно 10 анкет....

Модификация колонтитула в VBA Word?
Добрый день! Подскажите, пожалуйста - как вставить нужный текст в колонтитул документа Word. Т.е., есть готовый документ Word с одинаковыми верхним и нижним колонтитулами на всех страницах -...

Рисование в VBA
Подскажите пожалуйста можно ли в VBA на UserForm рисовать линии, круги...Если да можно хоть пару примеров рисования линии.....Буду благодарен за помощь.....

Как сделать запросы на озоне?
Добрый день всем! Наверняка тема обсуждалась, поискал, не нашел. Ткните куда-то или подскажите. У Озона есть API, описано на cb-api.ozonru.me/apiref/ru/ Искал и пробовал адаптировать примеры, но...

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

Работающие часы в ячейке листа Excel
Подксажите как сделать самостоятельно обновляющиеся часы в ячейче при условии, что никаких событий не происходит. Т.е. просто в открытом окне Excel в ячейке идут часы.

Если количество символов в ячейке меньше чем нужно, выделить ее цветом
Подскажите, как с помощью VBA-макроса (excel) выделить цветом ячейку, если количество символов в ней меньше, чем нужно? Для примера - имеем столбец A: 08:57-18:11 08:59-18:08 08:58-18:09...

Как работать со ссылками, длина которых превышает 255 символов
Есть прайс в формате Excel, сгенерированный с помощью PHP. В нем - ссылка "Купить" на определенный сайт на страницу заказа в формате: ...

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

Решение системы уравнений
Доброго времени суток всем. Дана система уравнений и некоторые указания в методичке, по образцу надо построить решение. Но на определенном этапе у меня просто вылазит ошибка и почему - я просто не...

Вычислить, чему равна сумма цифр числа
Дано натуральное число n (n ≤ 100).Чему равна сумма его цифр?

Сбор данных из разных файлов в один
Добрый день. Стоит задача собирать данные из нескольких файлов с одинаковой структурой в один, имеющий аналогичную структуру. Имена файлов имеют одинаковое правило - 2016_07_ОП_*наименование*, то...

И опять работа только с видимыми ячейками
Доброго времени суток всем) Хочу после применения автофильтра занести в массив только видимые ячейки otfil = Range(Cells(10, 1), Cells(last, 1)).SpecialCells(xlCellTypeVisible) Но,проблема...

Не работает ActiveSheet.Paste: "Метод завершен неверно"
Добрый день. сгенерировал код при помощи записи макроса: Range("Таблица_Запрос_ec_sql0101").Select Selection.Copy Application.CutCopyMode = False Sheets("Лист2").Select ...

Как узнать последний символ строки?
Как узнать последний символ строки? Т.е. то что на паскале я написал бы так: ch:=s;

Как сделать поиск по ListBox слова введеного в textBox
Нужно сделать поиск чтоб искал во всех столбцах и строках Вот код заполнение ListBox Private Sub UserForm_Initialize() With ListBox1 .ColumnHeads = True .ColumnCount = 6 ...

Объединение текста из нескольких ячеек в одну ячейке, по всей таблице
Есть большая таблица с которой требуется проводить разные манипуляции такие как сортировка и объединение, но для этого ее надо привести к нормальному виду. В таблице есть столбцы разбитые на 1-9...

Маска ввода полю в форме в Excel
Для обработки данных я использую форму с кнопочками, полями со списком, просто полями и т.д. и т.п. Через эту форму у меня заводятся новые данные и идет корректировка. Проблемма: в одну из ячеек...

Как сделать чтобы колонтитул был только на последней странице в листе в ворде?
Подскажите пожалуйста как сделать чтобы колонтитул был только на последней странице в листе в ворде это разрыв раздела, а в excele как?

Копирование макросом из одного файла эксель в другой
Здравствуйте, подскажите что в моем коде не так? Написал макрос который: копирует данные из одной книги и вставляет в другую. Sub копия() Application.ScreenUpdating = False ...

Перевод макроса из VBA в OpenOffice \ LibreOffice Basic
Доброго времени суток, глубокоуважаемые участники форума! Возникла проблема с переводом простого макроса, написанного при помощи товарища Busine2012 (за что ему невероятная благодарность) в VBA для...

Открытие двух книг одновременно. Workbooks
У меня 2 книги, нужно из одной ячейки первой книги перенести содержимое во вторую книгу в опр. ячейки. Как я себе это представляю. Открываю 1ю книгу, ищу инфу, пихаю это все в переменные, открываю...

Из Access открыть файл Word, развернув окно на полный экран. Путь к файлу указать относительно файла Access
Здравствуйте, подскажите как сделать, или в каком направлении гуглить. Мне нужно запусть макрос в access, который открывает файл word. На просторах интернета нашел код. Dim WD Set WD =...

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

Нужно связать SpinButton и TextBox
Надо связать SpinButton и TextBox чтобы при нажатии на верхнюю стрелку в SpinButton он в TextBox плюсовал на 2, а на нижнюю что бы вычитал на 2.

Как узнать размер листа в Excel?
есть таблица на листе.. как узнать сколько столбцов до первого пустого столбца.. и соответственно строк - до первой пустой строки но например в первой строке заполнено 6 столбцов, а во второй -...

Calculate - пересчет листа
Тема пока не исследована. Пока заметил лишь разницу в работе Calculate. Calculate вызванный с функции прописанной на листе - лист пересчитывает. Calculate, вызванный с функции какого-нибудь...

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

Скрытие и отображение столбцов в Excel
Уважаемые форумисты, у нас есть такая задача: Существуют столбцы 'План' и 'факт' на нескольких листах, как сделать чтобы отображались либо 'План', либо 'Факт', записывать макросы на каждом листе...

Изменить размер JPG (разрешение)
Всем привет! Ситуация следующая. Вставляю на лист MS Excel картинки (файлы JPG) разного размера - есть и 3264х2448, есть и 1600х1200... Мне нужно их все привести к одному размеру, например, к...

Как вставить картинку в Excel
Всем добрый день. Очень нужна помощь. Подскажите, как вставить картинку в ячейку Excel? В 1-ом случае, чтобы картинка полностью вписалась в ячейку Во 2-м - чтобы ячейка увеличилась до размера...

Error 9: Subscript out of range
Здравствуйте, прошу помочь -- при запуске программы возникает ошибка "Subscript out of range " на строке f(i) = Mid(alf, i, 1). В чём причина? Sub z11() Dim f(), alf, sl As String Dim i, l...

Переход на лист
как мне при нажатие кнопки перейти на другой лист?

При создании нового листа произвести проверку на существование вводимого имени листа в текущей книге EXCEL
При создании нового листа, произвести проверку на существование вводимого имени листа в текущей книге EXCEL и если такой лист существует то уведомить об этом.

LongPtr и Long: не игнорируется модуль
*LongPtr и Long: игнорируется модуль Здравствуйте. Есть модуль. На моём компьютере x64. Он работает только если везде стоит Long. В функции никаких ошибок нет. На другом компьютере. Тоже x64. Через...

Создание презентации PowerPoint из Excel
Здравствуйте, решив предыдущую задачу(отдельное спасибо форумчанину Скрипт) Поставил перед собой более амбициозную(по крайней мере для себя) задачу. Сейчас есть книга Excel с примерно 6 листами(на...

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

Как из Excel открывать HTML страницы, расположенные в интернете?
Подскажите, пожалуйста: как посредством VBA из Excel открывать html страницы, расположенные в интернете ? нужно, чтобы программа просматривала текст интернет-страницы и искала там определенный...

Подсчет количества непустых ячеек диапазона
Есть диапазон rang1=range(cells(a,b), cells(c,d))' где a,b,c,d заранее определенные переменные. Как получить количество непустых ячеек rang1. Может существует какая-либо встроенная функция?

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

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

Ошибка Method Range of Object Global failed
Помогите найти ошибку. Пишет Method Range of Object Global failed и указывает на первую строчку. Если убрать это сегмент из кода, то все ок работает. ...

Как определить номер текущей страницы документа
Всем доброго времени суток. Подскажите, как определить номер текущей страницы в документе MSWord 2003

Объединение ячеек таблицы
С помощью макроса добавляю таблицу в TextBox на страницу. Дальше пытаюсь объединить ячейки. В столбцах отличных от первого ячейки объединяются. В первом столбце появляется ошибка "Запрашиваемый...

Вызов диалогового окна выбора цвета (Excel)
Как вызвать диалоговое окно выбора цвета и как получить из него значение для закраски ячейки? Или оно и так возвращает 8 битное значение в границах 0-56? Я ведь, как оказалось, не могу покрасить...

Событие колесика мыши
Доброй ночи! У меня такая проблема ,не как не могу добиться выполнения кода после события колесика мыши на форме в listbox.(excel).Может кто то сталкивался с такой задачей?

Создание пользовательской функции в Excel, VBA
Добрый день. Столкнулся с проблемой создания пользовательской функции в MS Excel, используя VBA. Если я правильно понял, это и есть создание макроса. В моем случае рассматривается линейная рента...

Как просуммировать часы в Excel, если их больше, чем 24 ?
Есть несколько ячеек с форматом 'время' в таком виде: 8:15 8:15 8:15 8:15 7:00 Ну, рабочая неделя короче. В идеале в строке ИТОГО хочется получить 40:00

Не учитывать регистр в макросе
Подскажите, пожалуйста, как исправить код, чтобы при вводе имени howard не учитывался регистр букв. Sub GoToDemo() UserName = InputBox("Enter Your Name:") If UserName <> "Howard" Then GoTo...

Связанный выпадающий список через ActiveX
Доброго дня! Имеются два связанных списка, выбирая значения в одном предлагаются варианты в другом. Обязательное требование что используем элементы ActiveX выпадающий список. В первом списке...

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

Выделить несмежные ячейки с помощью Union()
С помощью Union(Range(Cells(r1,c1),RangeCells(r2,c2)),.........).Select выделил несмежные диапазоны. А теперь, когда мне надо выделить несколько несмежных ячеек, как быть? ...

Как определить, есть ли рисунок в ячейке EXCEL
Проблема такая. Программа (макрос) в EXCEL генерирует несколько документов, в которые автоматически вставляет подпись (ФИО выбирается в форме, в зависимости от этого на листе с образцами подписей в...

Как сделать окантовку ячейки
Здравствуйте! Стандартная процедура в Excel: выделить ячейку, затем поместить ее в рамку. В макрорекордере это все выглядит слишком громоздко. ActiveCell.Select ...

Фильтр в сводной таблице
Приветствую! Подскажите как сделать фильтр по определенному значению в сводной таблице, например в строках "Подразделение" sub test() Set rngStart = Worksheets("TDSheet").Range("A1") ...

Редактирование надстройки EXCEL
Ситуация: есть файл start.xla (при запуске сам не показывается, а формирует и запускает временный файл _start.xls с главным меню программы). Мне потребовалось немного подкорректировать меню...

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

Как программно снять объединение ячеек?
надо на выделенном диапазоне ячеек,если стоит галка на фОРМАТ ЯЧЕЕК -> ОБЪЕДИНЕНИЕ ЯЧЕЕК ... убрать ее т.е. снять объединение ячеек программно не знаю как написать условие if .MergeCells = True...

Определить адрес последней заполненной ячейки
Range("A1").SpecialCells(xlLastCell).Address возвращает тупо последнюю ячейку Cells(Rows.Count, 1).End(xlUp).Row возвращает НОМЕР последней строки а мне надо адрес последней ЗАПОЛНЕННОЙ...

Нужно выбрать все строки содержащие слово, например "ПТО" и скопировать на втрой лист книги
Задача состоит в следующем: есть книга в экселе, на 1 листе книге много заполненых строк. Нужно выбрать все строки содержащие слово , например "ПТО" и скопировать на втрой лист книги, на следующий...

Добавление библиотеки MSCOMCT2.OCX
Доброй ночи! Хотел воспользоваться элементом управления Microsoft MonthView Control 6.0(SP6). Скачал файл mscomct2.ocx, установил в папку C:\Windows\SysWOW64, зарегистрировал библиотеку в системе...

Кнопка выхода из формы
Всем привет. Может кто поможет) Я только начинаю осваивать VBA, очень плохо пока все понимаю. Есть форма, она появляется при запуске excel файла. ОТменил закрытие формы крестиком и добавил msgbox...

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

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

Изменить дату и время создания файла
Можно ли средствами VBA изменить дату создания текстового файла?

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

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

Перебор файлов в каталоге - групповое редактирование
Есть файлы такого типа Расположены они к примеру с:\temp 1 файл.xls 2 файл.xls 3 файл.xls 4 файл.xls 5 файл.xls Как мне их открыть по очереди сделать необходимые изменения и закрыть сохранив...

Как быстро очистить коллекцию?
Для быстрой очистки массива есть команда Erase массив Есть ли нечто подобное для коллекции?

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

Суммирование одинаковых значений таблицы
Имеется таблица 7 столбцов № Наименование Ед.измерения Норма Кол-во Цена Сумма 1 Пропан кг 0,19 0,038 12,72 0,48 .. 45 Пропан кг ...

Расположение UserForm в пределах окна Excel
Здравствуйте! на листе имеется Кнопка, по нажатию на которую вызывается форма Кнопка: Option Explicit Sub Кнопка1_Щелчок() UserForm1.Show End Sub

Курсор в тексбоксе TextBox
Подскажите как программировать нахождение курсора в тексбоксе TextBox 1 Если курсор стоит в начале текстбокса??? 2 Поставить курсор перед, после последнего знака текстбокса?? 3 Выделить n знак в...

Разбить слово на символы
Ребят, у меня несложный вопрос, но реально заскок. Подскажите, пожалуйста, как разбить последовательность символов(цифр) на символы и записать их в столбик. Например, в ячейку Сells(1,1) выгружается...

Загрузка кода страницы с сайта в эксель
Добрый день. Есть задача: извлечь информацию с некоторых страниц из интернета. Пользуюсь таким скриптом для передачи кода страницы в string: sURL = "http://instagram.com/Ballantines_Russia"...

Определить высоту и ширину ячейки Excel
1) Доброе время суток! Кто-нибудь знает, как получить значение о высоте и ширине выбранной ячейки? (чтобы подобные ячейки впоследствии найти). Пытался выполнить при помощи ColumnWidht и RowHeight ....

Подгонка картинки под размер ячейки при "drag and drop"
Добрый вечер, уважаемые профессионалы! Облазил кучу ресурсов, но безуспешно. Я работаю с excel 2010, подготавливаю каталоги, выдергиваю изображения методом "Drag and drop", т.е. просто...

Создать таблицу в Word с определенным количеством строк и столбцов
Здравствуйте, как сделать?? ответ очевидный ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1 ActiveDocument.Tables(1).Columns(1).PreferredWidth =...

Сохранение входящих писем из Outlook
Прошу помощи у более опытных товарищей. Может кто то решал задачу сохранения писем из определенной папки созданой в Outlook в папку на жестком диске. Нужен макрос на VBA сохраняющий письма вместе с...

Макрос открытия файлов
Помогите написать цикл, так как в программировании не силен. Задача состоит в слудующем: -имеется каталог с несколькими деятками .htm файлов. Имена файлов-фамилии. Нужно открыть каждый файл, сделать...

While c несколькими условиями
Добрый день! Подскажите, пожалуйста, мне нужно найти строку в которой ячейки в 2 определенных столбцах единовременно принимают некоторые значения. Делаю что-то вроде Do While Cells(i,...

Запуск внешнего приложения из макроса
Поиском не нашел. Как из макроса запустить внешнее приложение? Или, может в .OnAction как-то можно открыть With .Add(Type:=msoControlButton) .BeginGroup = True ...

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

Запуск процедуры SQL Server через VBA
Уважаемые форумчане, кто подскажет можно ли при помощи VBA запустить процедуру SQL Server?

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

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

Удаление/добавление строки из/в двумерного массива
Люди добрые, помогите, поискав на форуме, не нашел способа, как удалить или же добавить строку из двумерного массива. Нужно удалить строку с заданным номером. к примеру вот массив Sub www() Dim...

Как сделать расчет разницы времени в Excel?
Поврос такой кто нибуть знает как сделать так что бы можно было вводить дату к примеру : 18.09.04 11:30 20.09.04 21:00 Нужно расчитать раздницу по времени т.е. сколько прошло часов от 18.09.04 с...

Найти максимальный из отрицательных элементов среди произвольных 20 чисел
Товарищи программисты, доброго дня! прошу содействия в решении следующей задачи: Найти максимальный из отрицательных элементов среди произвольных 20 чисел, вводимых с клавиатуры мой ход...

Макрос для Word 2007: удаление строки с символом
Помогите мне написать макрос для редактирования текста Задача: найти строку с определенным словом и удалить ее

Посчитать количество слов в строке
Ввести строку и посчитать количество слов, БЕЗ встроенных функций. Вот, что получилось у меня, только не слова считает, а пробелы. Подскажите ) Sub main() Dim s As String Dim i As Integer ...

Возможные центры круга по двум точкам и радиусу
Доброго времени суток! Как с помощью VBA найти координаты возможных центров круга (xc1, yc1, xc2, yc2) имея координаты 2 точек, лежащих на круге (x1, y1, x2, y2) и зная радиус круга (r)? Пусть даже...

Как программно задать горячие клавиши на макрос?
Существует собственная книга макросов. Необходимо подвесить на один из макросов "Hot Key" Вот есть строка Application.OnKey "^%{BACKSPACE}", "V1" Не могу понять где разместить эту строку, что...

Консолидация данных из разных книг макрос
Уважаемые, Форумчане!доброго времени суток! очень нужна Ваша помощь (с VBA даже не на Вы). Есть несколько абсолютно однотипных книг только с разными названиями (количество и названия листов в...

VBA управление IE.....
Сильно нужна помощь. Помогите кто шарит в VBA. нашел в интернете статью как получить интерфейс объекта Document вот код который я пытался адаптировать для Access Option Compare Database Private...

Открыть файл Excel-я макросом и взять его на редактирование
Реально ли такое? Например пользователь открыл файл с названием Тест.xls, расположенный на общем сетевом ресурсе. Включаю процедуру и по ходу её выполнения необходимо записать данные в этот файл....

Как записать в переменную текст из буфера обмена?
Добрый день! Как сделать так, что бы в iLink записывалось содержимое буфера обмена? (макрос делает гиперссылку) iText = Selection.Text iLink = Selection.Paste ...

Как заполнить форму на сайте pp.ua данными с Excel и получить ответ
Здравствуйте. Как заполнить форму на сайте pp.ua данными с Excel и получить ответ (успешно зарегистрирован или ошибка)? Помогите пожалуйста - а то руками уже устал это делать, и сам не могу...

Выполнение макроса по клику на ячейке
Добрый вечер, уважаемые форумчане! Приложенный к данному посту файл-пример найден в интернете, работает он хорошо. Подскажите, пожалуйста, можно ли из макроса, расположенного в объектах "Лист 1":...

Нахождение обратной матрицы
Здравствуйте уважаемые форумчане и программисты у кого то имеется код для нахождения обратной матрицы в Visual Basic Applecetion, при помощь которого можно будет считать матрицы в Excel?

Замена кавычек "" на « » макросом
Суть в том что в большом документе нужно поменять все кавычки такого формата "" на такие « ». То есть предложение вида : "Времена года": тематическая программа в рамках проекта "Летние читальни"...

Для заданного массива А, состоящего не более чем из 50 элементов, найти наименьший элемент
1) Для заданного массива А, состоящего не более чем из 50 элементов, найти наименьший элемент и переставить его со вторым по порядку отрицательным элементом массива. 2) Задан двухмерный массив...

Поиск и пометка повторяющихся значений
Доброго дня, Господа ! Помогите мне, пожалуйста, определится с правильным подходом для реализации следующей задачи: Есть столбец с данными в ячейках, например: Столбец 1 Столбец 2 Иванов...

Вывести значение полученной ячейки
Получил переменную Q и её значения.Как мне в msgBox'е вывести её координаты ,raw и collum ,если координаты меняются каждый раз при вычислении,ну там таблица генерируется и он выбирает,а имя...

Заполнение ListBox через RowSource в Excel и в Word
Доброго времени суток! Пересмотрел все похожие темы, но ответа на свой вопрос не нашел, помогите пожалуйста, если кто знает. Заполняю ListBox на форме в Excel через RowSource, открывая для этого...

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

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба
Всем привет! срочно нужно сдать задачи !помогите пожалуйста!! 1.Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. 2.Составить алгоритм решения задачи:...

Пустые ячейки и условие If Not IsEmpty(.Cells(i, 1)) Then
не могу понять в чем дело в программе стоит условие If Not IsEmpty(.Cells(i, 1)) Then в первом столбце визуально все ячейкм пустые, но почему-то происходит попадание в это условие Как поступить ?...

Создание и удаление папки
требуется создать папку Fold в активной директории CurDir, а если папка с таким именем Уже существует - удалить ее, а затем создать снова Function createMainDir() As String Dim path As...

PowerPoint VBA: переход к другому слайду по кнопке
Всем привет! Подскажите пожалуйста, как можно сделать в презентации, что при нажатие на кнопку и переходе на другой слайд єта кнопка по возвращению на слайд пропадала Благодарю за ответи!

Открыть файлы в Word VBA с помощью макроса
Всем привет!Окажите содействие плиз: имеется папка с файлами .тхт необходим макрос который открывает все файлы из этой папки в Ворде(если возможно была признательна если можно было реализовать вывод...

Сортировка списка литературы в Word
Есть документ Word с текстом и множеством ссылок в нем. Например: ............ В конце текста огромный список литературы. 1. .... 2. .... 3. .... .... В процессе редактирования очень часто возникает...

Вывод данных в Textbox
Задать фамилии, имена и возраст с помощью функциями функции InputBox. Вывести их на форму в столбик:по возрастанию числа согласных букв в фамилии.

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

Получение данных AD (active directory)
Всем привет. В общем есть инфа в AD ФИО, почта, тел должность. можно как то её с помощью Access и VBA отображать для тел справочника фирмы?

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

График на форме
Доброго времени! Кто знает, подскажите: можно ли на форму VBA (Word, Excel не суть) Вытянуть график подобный Excel-им Если да то как? Что подключить, как сделать (если есть пример, хватит с...

Удаление в массиве
Друзья как можно удалить строку в массиве? в примере третью строку массива нужно убрать, четвертую соответственно поднять к второй и выгрузить на страницу. Спасибо ребята Sub q() Dim a As...

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

Вставка формулы в ячейку через макрос
Надо было сделать массовую вставку формулы корреляции, которые просто так не протянуть, поэтому написал код: Sub find_corr() For i = 2 To 240 For j = 2 To 240 'Cells(i, j + 15) =...

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

Авто коррекция ввода даты в TextBox
Доброго Помогите реализовать. В UserForm есть TextBox в который пользователь должен ввести дату. Идея заключается в том, когда человек ввел число, например 12 то сразу автоматом ставится точка,...

Как показать UserForm при открытии файла?
Всем привет! Как сделать так, чтобы UzerForm появлялась при открытии файла? Без переключателя? Есть ли такая возможность?

Копирование таблицы из экселя в ворд
Добрый день, помогите реализовать. такую фишку. Созданную таблицу в экселе нужно скопировать в ворд. пробовал написать код не вышло. Sub ЭкспортВВОРД() Dim adr As String Dim copyTABL As...

Макрос копирования заданного диапазона значений на другой лист
Добрый день, форумчане. Вводная информация по задачке, которая поступила недавно в мой адрес: Имеется цифровой массив данных на листе 1, начиная со столбца AA по AL. На листе 2 имеется место...

Открытие csv-файла с помощью макроса
Hi! Такая проблема: надо открыть csv-файл. Если просто в экзеле открывать такой файл (через кнопку open), то он нормально открывается, т.е. разделители ';' учитываются и данные раскидываются по...

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

Снятие значение с других CheckBox
На форме есть 4 "флажка". Надо чтобы через 1 макрос, поставленный на все 4 флажка выполнялось следующее действие: если кликнули на флажок1, то снять флажки с флажок2,3,4 , если кликнули на флажок2,...

Таймер!!!! Ексель
Очень надо для работы! Вкратце: представим 100 номерков пришел человек взял один номерок и ушел на како-ето время потом пришел и отдал мне его мне нуно узнать время каторое номерок был у него...

Макрос фильтра по дате
Всех с праздником ! всего наилучшего ... подскажите в чём может быть проблема - в екселе написал макрос Application.CutCopyMode = False Selection.Copy Sheets("лист").Select ...

Создайте макрос, который поместит из таблицы 1 общую стоимость по позициям по которым количество больше 50
Добрый день! Прошу помощи, всю работу сделала за 3 часа, но вот с макросом заморочка:wall:. Прикладываю работу, на первом листе задание, на втором выполненная работа. Пожалуйста помогите.:sorry:

Как показать в ячейках Excel все делители заданного числа?
Всем доброй ночи! Прошу помощи. Как правильно показать в ячейках Excel все делители заданного числа? Именно в ячейках Excel! Пусть число 34, тогда его делители: 1; 2; 17; 34. Прошу не...

Макрос создания нового листа в Эксель с названием от 1 и далее нарастающим итогом
Добрый вечер! Очень нужна помощь, уважаемые программисты!!! Необходим макрос для кнопки, при нажатии которой, создается новый лист в Экселе с номером нарастающим итогом. То есть макрос проверяет,...

При выборе значения в ComboBox автозаполняются ТекстБоксы значениями из таблицы
ComboBox должен заполниться фамилиями из 3 столбика. При выборе значения в ComboBox должны заполниться ТекстБоксы значениями из таблицы соответсвующие значению комбоБокса. Не могу разобраться как это...

Поиск текста в таблице
Можно ли как-то организовать поиск текста в таблице? Или для этого достаточно обычного поиска текста?

Замена строк в текстовом файле
Привет всем! Помогите пожалуйста: на диске с:\test.txt В файле написано к примеру: #1 "" #2 "" #3 "" #4 "" #5 "" Надо в позиции #4 "" и #5 "" между кавычек написать Hello!!! Выполнить через...

Поменять выделенные слова в одной строке местами
в word нужно поменять местами слова! пример: есть строка: яблоко-1 + тыква2 + м-малина + вишня* нужно чтоб получилось следующее: вишня* + м-малина + тыква2 + яблоко-1 есть...

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

Макрос для копирования информации из одной таблицы в другую по условию
Добрый день. Помогите доработать медленный макрос (см.файл макрос Nik035) или возможно кто то предложит альтернативный более шустрый вариант кода для моей задачи: сам в этом совсем не...

Есть ли событие, которое отслеживает, было ли в ячейке изменение данных
Здравствуйте. Будьте добры подскажите, есть ли событие, которое отслеживает, если в ячейке произошло изменение данных.

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

Вставка текущей даты
Добрый день. Хотела бы уточнить, может у кого-нить есть макрос,который позволяет вставлять текущую дату с учетом ширины столбца (автободпор ширины), то есть макрос аналогичный сочетанию клавиш CTRL+;...

Границы Таблицы
Как оптимизировать код. Задача: если ячейка имеет границы (ну в смысле при распечатки распечатываются границы), то изменить эту границу на другую. Проблема: загрузка процессора на 100% (Celeron 2...

Объединить два массива
Нужно обьединить. Использовать временный лист не желательно. Массивы двухмерные, полученные из разных областей листа (Ubound(arr,2) заранее не известно. Вот я и написал, но потом ужаснулся. Может...

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

Как сделать DLL для VBA?
Что нужно сделать, чтобы сделать DLL? Я так понимаю, что нужен какой-то язык программирования. Есть кажется VB6. Если сделать DLL, то в него можно просто поместить VBA-код, в том виде, в каком...

Снова про точку и запятую
Здравствуйте, Userform загружает дробные числа в TexBox из ячеек с точкой, в то время как в таблице excel они находятся с запятыми. Обратно выгружаются по такой же логике, меня устраивает. НО, VBA...

Удаление из строки ненужных символов
Доброй ночи всем! Мне нужно удалить из строки знак " и знак = Я решил это так: strW= (="КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ") strB=Replace(Replace(strW, Chr(61), ""), Chr(34), "") может есть еще...

Как из текстовых файлов прочитать нужные строки
Всем привет! Вопрос по VBA - EXCEL На C:\ имею *.txt файлы (прикреплены) Из этих файлов необходимо вытащить строки, начинающиеся с "6. Стеллажи", сохранить эти строки где-либо в каком-либо...

Формула эксель через макрос
toiai, ребята знающие, подскажите пожалуйста.....как такую формулу сделать програмно...в макрос. =(СУММЕСЛИ(D6:AH6;">0";D6:AH6)-СУММЕСЛИ(D6:AH6;"<0";D6:AH6))-$CR$5 вот что...

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

Как записать в массив диапазон ячеек, а затем скопировать его
Добрый день, вопрос следующего плана: Мне нужно скопировать диапазон ячеек с Лист1 на Лист2 при определенном условии (условие проверяется c помощью if-then). Я знаю такую конструкцию: arrTest(1)...

Определение Range через Cells
Такая проблема появилась. Пытаюсь определить диапазон Set tmpO = ThisWorkbook.Sheets("Данные").Range(Cells(1, 1), Cells(x, 1))где х вычисляется при работе программы Выдает ошибку 1004. Вроде должно...

Как узнать номер ячейки, после поиска
Запустил макрос Cells.Find(What:="2018", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:= False,...

Нужно определить последнюю непустую ячейку
Здраствуйте! Проблема такая. Есть диапазон. Большой. Есть "поддиапазоны". Определить "общий" последний столбец - не проблема. Нужно определить последнюю непустую ячейку (вот она может быть (на 90%)...

Ошибка "Требуемый класс отсутствует в ClassFactory"
Всем Здравствуйте! столкнулся с такой проблемой, скачал макрос, там была папка SYSTEM с 6 файлами один из них regdll.bat в котором содержится @echo off copy *.dll %SYSTEMROOT%\system32 copy...

Возможно ли написанный в Excel макрос создать как отдельный файл *.exe
Добрый день! Такой вопрос, подскажите пожалуйста, возможно ли написанный в Excel макрос создать как отдельный файл *.exe? Чтобы, например, при запуске этого файла, происходила как бы "установка" его...

Замена текста в Word макросом из Excel
Есть файл Экселя с данными, есть текстовый шаблон Ворда с метками для этих данных Сделал макрос для псевдослияния (штатное слияние данных не понравилось как работает) Set WA =...

Создание листа с именем из ячейки
Доброго времени суток форумчане, ниже приведенный код создает новые листы с именами которые перечислены в колонке D, в каждый при этом вставляет информацию из листа "шаблон". Вроде все хорошо, и...

Поиск в папках и подпапках
Здравствуйте! Делаю курсовую на VBA и к сожалению только на нём. По моей задумке мне надо вывести в файл все файлы и папки, а так же все файлы в подпапках и подпапки. Смог вывести только то что в...

Найти гипотенузу и площадь треугольника
15. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь. 16. Даны действительные числа А и В. Если они оба неотрицательные, то заменить каждое из них его кубом, иначе...

Как вставить пробел в ячейку из цифр и букв
Существуют ячейки с буквами и цифрами (Маша = 1000000) нужно для красоты вставить символ пробел в определенную позицию чтобы получилось (Маша = 1 000 000)

Запись данных в ячейку из другой книги
Есть файл VB.xlsm,в нём я создаю макрос,который должен брать данные из другого файла и записывать в ячейку VB.xlsm. Взять получается,но записать в ячейку фала VB.xlsm ну никак. Не понимаю,что не так....

Программно определить номер строки в Word2003
Прошу подсказать: как программно определить номер строки в Word 2003 (там, где находится курсор)?

References и автоматическое подключение библиотек на поздних версиях MS Office
Уважаемые программисты. Хотел бы разобраться что к чему. Есть программка (то есть макрос) на VBA, формирующая отчетики в Word из Excel. Я ее делаю на 2003 версии офиса. Программка будет стоять и...

Удалить строку, если ячейка в третьем столбце пустая
Всем привет! Ребята, подскажите, помогите написать макрос: в Excel есть 3 столбца, макрос ссылаясь на 3 столбец, где если в ячейке пусто, то должен удалять всю строку. Помогите написать такой...

Замер времени работы макроса на каждом шаге - как сделать?
Возможно ли отследить какой блок кода сколько времени исполняется? Было бы, конечно, супер, если бы это все выводилось в "отладочный" файл в удобном виде (может просто у кого есть заготовка, задача...

Копирование диапазона ячеек со смещением вниз
Добрый день! Помогите пожалуйста. Нужно назначить макрос на клавишу который бы копировал диапазон ячеек (A1:P1) и вставлял в ячейку например - А25 если она пустая, если нет то опускался ниже (А26)...

Автоматическое проставление даты и времени при изменении ячейки
В ячейке забита формула "=ЕСЛИ(RC="";"";ТДАТА())" соответственно как только ячейка RC1 перестает быть пустой в ячейке с формулой появляется текущие дата и время. Формула забита в насколько строчек...

Как бороться с ошибкой -2147418113?
Ошибка возникает время от времени. Файл большой. Рабочая форма содержит много элементов, расположенных на 7 страницах multipage. Заметил, что ошибка чаще возникает, когда добавлю элемент. но иногда...

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

Microsoft Text ODBC Driver, ошибка "Не удается найти указанный поставщик"
Скажите, пожалуйста, какая ошибка в макросе. Ошибка возникает в строке 20. Полный текст ошибки: Run-time Error '3706' Не удается найти указанный поставщик. Возможно, он установлен неправильно. Sub...

Заполнение динамического массива с листа Excel
Добрый день! Столкнулась с такой задачей: необходимо создать процедуру ReadArray для считывания данных из электронной таблицы и присвоения их одномерному массиву A(N). Размерность массива должна...

ВЫХОД по нажатию "Cancel" или закрытию InputBox ИЗ ПРОЦЕДУРЫ
Требуется , чтобы после нажатия кнопки "Cancel" или если пользователь нажмет правый верхний крестик произошел выход из программы (exit Sub). КАК ЭТО СДЕЛАТЬ? По факту же , после закрытия диалога...