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

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

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

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

Батник или PowerShell. Скрипт для копирования файлов по маске в заданное место
Приветствую! Есть стартовая/корневая папка по пути sFolderStart вида "c:\FromHere". В корневой папке есть (помимо всего прочего) папки вида "AB1234" или "CD5678_Corr" — подходит маска sMaskFolder...

Создать файл из картинок каждой страницы Word
Добрый день. Есть исходный файл, необходимо создать новый файл, из картинок каждой страницы. Подскажите как можно это сделать ?

Альтернатива GoTo в приведённом примере
Возможно ли в данном примере избежать применение оператора GoTo? (В процедуре 3 GoTo, не хотелось бы злоупотреблять, и вообще..) Dim currentmonthname As String Dim pathОтчета As String...

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

Макрос для объединения ячеек на основании данных других столбцов
Добрый день. Подскажите пожалуйста, 2 день мучаюсь. Есть Excel Файл в котором уже есть макрос для вставки данных. (проба) Он из формы для заполнения переносит данные в базу оценки рисков. Но не в...

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

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

Генерация штрихкода EAN13, Code128 в VBA
Добрый день! Возникла потребность в генерации штрихкода EAN13, Code128 с помощью VBA в среде Excel. В идеале, хотелось бы найти функции, которые создают штрикоды в кодировках EAN13 и Code 128:...

Пакетное изменение текста в Word исходя из названия файла
Добрый день, Уважаемые программисты! Есть острая проблема по массовой замене текста в документах word *.docx В названии файла фигурирует порядковый номер (от 1 до 999), этот порядковый номер в...

VBA compiler - Компиляция VBA проекта в DLL
Добрый день, жители форума! В процессе работы мне потребовалось вынести код из VBA Excel в DLL. Поскольку я не силен в программировании (хотя попробовал сделать это на Python, но там нельзя...

Как узнать размер таблицы Word (ширина, высота) в пикселях?
Здравствуйте ! Можно ли узнать размер таблицы Word (ширина, высота) в пикселях ?

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

При запуске в Excel редактора VBA, появляется окно с надписью file, и больше ничего сделать нельзя
Доброго. Проблема: при запуске в Excele редактора VBA, появляется окно с надписью file, и больше ничего сделать нельзя. Переустановка, установка нового офиса ничего не помогает. Попробовал на...

Смешанный допуск
Можно ли сделать вывод смешанного допуска (это когда есть допустим верхний +0,007 и нижний -0,5) это надо вывести как в конструкторских документах. Можно ли такое реализовать на VBA в access?

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

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

Копирование строк в таблицу по условию с закрытого файла
Нужна помощь. Есть таблица 1 в на листе 1 в Книге1. В таблице в столбце "А" идут номера строки. В таблице 2 на Листе1 Книги2 такая же таблица. Разница между ними в том что в таблице 1 в Киге1 номера...

Конкурентная запись в книгу
Приветствую. Есть расшаренная книга. Работа с ней ведется с помощью Microsoft Excel 15.0 Object Library. И имеются рабочие процессы, которые могут записывать в книгу данные параллельно. Последние...

Странное поведение Like (VBA)
Мое почтение, джентльмены. Есть интерес послушать специалистов, почему Like в варианте 3 выдает True, а в последнем варианте ошибку? Sub TestLikeERR() Debug.Print "-" Like "" 'True ...

Макрос очистки папки Temp
Здравствуйте! При очистке папки Temp возникает ошибка 70 (Строка 25) Атрибут папки Temp "Только для чтения" снял, но он восстанавливается... Как можно решить данную проблему? Sub...

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

Создать массив из отфильтрованных строк одной командой
Работаю с большими массивами данных в Excel Если помещать весь массив данных в память и обрабатывать в нём нужные мне строки - долго и малоэффективно с точки зрения перелопачивания в памяти ненужных...

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

Не могу понять почему неправильно работает формула
Добрый день, товарищи. Столкнулся с проблемой, которую не могу решить своими силами. Вот код для функции в Excel: Function define_stat(ws As String, dd As String, dta_rng As Range, pls_tank As...

Автофильтр методами VBA
Установить Автофильтр методами VBA. Оставить видимыми все ячейки столбца К, содержащие значение выбранной активной ячейки массива (А3:А22) Например: ActiveCell.Range("А4") = 2 Использовал...

Ошибка кода VBA: Несоответствие типа
Добрый день! Помогите, пожалуйста, не пойму в чем ошибка. Суммы вроде с нулями. Эта ошибка появляется когда добавляю столбец 9 и @менеджер, без этого код работает отлично. Option...

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

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

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

Прибавить часы к значению в ячейке
Доброго дня форумчане. Помогите с вопросом, как прибавить к значению в ячейке 4 часа. В ячейке находится время и текст такого плана Понедельник 19/05/2025 10:05 "СДЕЛАНО В РОССИИ" 10:30...

Импорт таблицы из Excel
Доброго дня, коллеги! Есть у меня задача импортировать в Access большее число таблиц из Excel, а стандартным способом (Внешние данные->Создать источник данных->из файла->Excel) не подходит, в виду...

Управление Chrome из VBA
Парсинг сайтов делаю автоматически. Но некоторые сайты не могу пока добыть в память. Хотя страницу с данными уже расковырял и анализирую. Чтобы ее получить делаю следующее: 1. Открываю страницу с...

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

Выделение диапазона двух столбцов через переменные
Добрый день. Подскажите, необходимо одновременно выделить два отдельных столбца(без выделения столбцов между ними), наподобие кода Range("B18:B29, J18:J29").Select Но, есть условие, что...

Вставить номер страницы в TextBox
Доброго времени суток! Прошу строго не судить только начал изучать VB Написал код который вставляет номер страницы в текстовое окошко в документе которое принадлежит объекту c Все в принципе...

Макрос для вставки столбцов с данными в другую книгу
Всем привет. Пожалуйста, помогите решить следующую задачку: Есть 2 книги: Возвратная ведомость Свод Нужно из файла Возвратная ведомость с листа "Ведомость" копировать...

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

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

Боковая панель навигации по заголовкам
Нужна помощь в создании макроса для word. Есть большой файл с текстом, в нем имеются заголовки двух типов -один жирный с размером шрифта 16 и -второй жирный со шрифтом 14. Но там много стилей...

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

Реализация алгоритма блокировки части элементов управления пользовательской панели по ключу
Необходимо блокировать (не отключать) часть элементов управления пользовательской панели нажатием на кнопку "Х", сохраняющей состояние ключа Блокировка = True в ini файле (getText для editBox ...

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

Макрос получения списка праздников сегодня от сайта
При выполнении процедуры выдает ошибку 438 «Объект не поддерживает это свойство или метод» 15 строка, причем на разных сайтах, проверка классов элементов для поиска заголовков праздников ничего не...

Определить начало и конец таблицы excel
Здравствуйте! Подскажите пожалуйста, как можно кодом vba-excel автоматизировать следующую задачу: Есть таблица Excel, нужно задать границы этой таблицы - кликнуть в ее начале и в конце (либо в...

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

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

Чек userName на равенство одному из разрешённых
Здравствуйте! Имеется рабочий вариант проверки: Option Explicit Sub CheckName_1() Dim userName, usernames As Variant, accessAllowed As Boolean accessAllowed = False usernames...

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

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

Как побороть мерцание?
Думаю проблема в вызове gHwnd = CreateWindowEx(0, "static", "OpengGL", WS_POPUP, 0, 0, gWidth, gHeight, GetUserFormHandle(pCtrl.Parent), PtrNull, PtrNull, ByVal PtrNull)...

Численное дифференцирование
Я застрял на том, что не могу понять, как исправить код так, чтобы погрешности второй производной стали меньше. Пожалуйста, укажите, где можно улучшить или упростить код. условии задании (просто...

Рандомная картинка в макросе
Здравствуйте. Есть незатейливый макрос, выполняющийся по нажатию кнопки ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:="C:\word+\wPictures\_Подпись1.png", _ ...

Макрос для создания копии бланков
Доброго врнмени суток. Спасите от меня GPT&Grok... Очень зашла идея автоматизировать рабочие будни с нейросетями. Но случился затык. Описываю: В общей сетевой папке лежит документ blank.docm....

Настройка чекбокса на пользовательской вкладке ленты Excel
Здравствуйте, При открытии книги получаю ошибку " Wrong number of arguments or invalid property assignment " Как это можно исправить? Код VBA: Option Explicit Public gRibbon As...

Безопасность типов
Если в языке нельзя объявлять типы переменных (нет типобезопасности) и переменные пишутся вот так $ИмяПеременной это нафиг, просто нафик я дальше уже не смотрю )

Прочитать свойство набора характеристик из объекта с помощью VBA Civil
Добрый день! Как через VBA прочитать свойство с вкладки "Дополнительно" на панели свойств? Как добраться до стандартных свойств я знаю. Вопрос про свойства созданные через "Наборы характеристик".

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

Запуск Outlook в фоновом режиме
Запускаю приложение в скрытом режиме, но через пару секунд оно закрывается... Sub StartOutlook() Dim OutApp As Object Dim OutMail As Object Application.ScreenUpdating = False ...

Вставить текст в картинку на листе в координаты точки
Есть картинка, она в файле ексель. Требуется вставить текст в точку на картинке, зная координаты точки (x,y)

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

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

Не видит таблицы PostgreSQL
Коллеги, чего-то все перерыл, не получается: Sub ReadData() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Set conn = New ADODB.Connection ...

Удаление надстройки кодом VBA
Can't execute code in break mode при запуске процедур: Sub DeleteMyAddIn() Dim fso As Object AddIns("ВалидацияПД_V_1.2").Installed = False Set fso =...

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

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

Найти все запятые между маркерами в Notebook++ (regex)
Здравствуйте! Если есть желание, возможность и знания, помогите, пожалуйста, подправить код (?:kwd1|\G)+\K,(?=.*kwd2) чтобы он находил все запятые между двумя ключевыми словами в Notebook++....

Custom UI Excel. Привязка onAction RibbonSplitButton к значению в editBox
Вопрос касается кнопки RibbonSplitButton, сочетающей в себе и кнопку и меню (вы можете либо нажать кнопку, либо нажать на меню). Нажимаем кнопку SplitButton на треугольник справа , отображается ее...

Горячая клавиша на макрос в надстройке
Здравствуйте. 1.Описание проблемы: Не работает вторая горячая клавиша для макроса надстройки. (Первая работает). 2.Мои действия: 2.1.Назначил двум макросам хоткеи в модуле рабочей книги: ...

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

Как по каждому числу из одного столбца сделать выборку чисел из другого столбца?
Добрый день! Есть таблица с номерами. К примеру берем номер 1525 из столбца L. Он повторяется 3 раза. В столбце K есть три номера, которые в строках соотносятся с номером 1525 из столбца L, например...

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

Комбинированного метода(хорды + Ньютон)
Прошу понять, я начинающий и именно так учусь — на ошибках! Гуглить умею и пользоваться ИИ тоже, но я хочу понимать свои ошибки, решая сложные задачи, и учиться так. Это уже 4–5-я попытка решить...

Как использовать дробные числа
При создании контура для объекта через .CreateCONTOUR можно задать только целочисленные. Как можно использовать дробные числа

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

Копирование слоя из одного файла Corel Photo-paint в другой
Здравствуйте! Мне нужно автоматизировать вставку подписи в файл Corel Photo-paint. Разобрался как открыть файл и записать нужный слой в переменную. Но дальше не понимаю как вставить этот слой в...

Почему нельзя запускать макрос более 19 раз в Access 2010
Option Compare Database '------------------------------------------------------------ ' Копия_Макрос1 ' '------------------------------------------------------------ Function Копия_Макрос1()...

Настройка расположения диалогового окна Application.InputBox
Здравствуйте. Положение диалогового окна Application.InputBox жестко зафиксировано в единственной позиции относительно расположения окна Excel. Как в данном случае менять его расположение не...

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

Обрамление ячеек по условию
Есть макрос обрамления ячеек диапазона по условию. Как скорректировать код, чтобы обрамлялись все ячейки строки диапазона, если в строке диапазона есть непустая ячейка? Sub...

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

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

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

Косвенная адресация в Excel
Доброго вечера! У меня есть адрес нужной мне ячейки вида 'Лист1'!$А$X , он получается динамически путем поиска X строки через ПОИСКПОЗХ() склеивается и содержится в значении технической ячейки в...

Макрос копирования строк по условию
Добрый день! Прошу оказать помощь в доработке макроса. Строка с листа "ЗАДАЧИ" копируется на лист "КАЛЕНДАРЬ" по условию, что в столбце "G" - "Просрочено". Но записывается со столбца "А". Можно ли...

Проигрывание звуков и показ шейпов при смене слайда в презентации
На слайде есть несколько шейпов. К ним прикручены звуки wav. При переходе на этот слайд я могу проиграть эти звуки. Однако у меня не получается проигрывать звуки и параллельно показывать эти шейпы....

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

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

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

Как распечатать Spreadsheet1 с листа?
Spreadsheet1 как распечатать с листа

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

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

Кодом открыть VBE из .xlsx с переходом на Module2 Проекта надстройки
Здравствуйте, Как открыть VBE с переходом на Module2 Проекта "ВалидацияПД_V_1.2.xlam" (надстройка)? Sub OpenVBE(ByVal Control As IRibbonControl) Application.VBE.MainWindow.Visible = True ...

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

Синхронизация значений ячейки и editBox (на ленте пользовательской надстройки)
Здравствуйте. Задача: Как при изменении значения ячейки H1 синхронизировать (в динамике) значение в поле editBox "Всего валидированных документов:" на ленте пользовательской надстройки? В...

Не могу создать связь внешнего интерфейса
Добрый день. Я новичок, если кто сможет помогите пожалуйста. Имеется внешний интерфейс Access в нём пользовательские формы. На удалённом П.К., установлена SQL Server в которой есть две базы...

Таймер, настройка - значение секунд в ячейке
Приходится корректировать время работы таймера меняя секунды в коде формы, а как прописать время работы таймера, забирая значение секунд например из ячейки листа? Set TimeValue_ss = Range("AO1")...

Обработать выбранный Item в ListBox в зависимости от флага
Прикрепил файлик, в котором сформировал два вопроса. Суть задачи. Есть Листбокс, в котором указан список неких признаков и номера столбцов, в которых признаки указаны. листбокс работает в...

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

Как вывести на предварительный просмотр для печати отчёта только текущую запись, а не все записи БД Access c помощью кнопки
Всем добрый вечер! Каким образом можно вывести на предварительный просмотр для печати отчёта только текущую запись, а не все записи БД Access c помощью кнопке на форме?

Управление автооткрытием пользовательской вкладки ( customUI) элементом ленты
Возможно ли в принципе программно отключать-подключать (кнопкой, чекбоксом) функцию автооткрытия пользовательской вкладки (СustomUI)? Option Explicit Public gRibbon As IRibbonUI Sub...

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

Возвратить значение переменной из коллекции Names
Как возвратить значение переменной из коллекции Names? (Начало в https://www.cyberforum.ru/vba/thread3208348.html#post17598910) Option Explicit Public gRibbon As IRibbonUI Public pressed As...

Макрос для создания титула диссертации и автореферата
Добрый день. Имеется 3 макросы для форматирование титула диссертации и автореферата и требование для титула. Макросы должны форматировать титулы по требованию. Макросы для форматирование титула...

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

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

Удаление n строк по условию (дата, время) в заданной процедуре модуля указанного проекта
Необходимо удалить строки с 3 по 20 из процедуры "ZZZ" Workbooks("ВалидацияПД_V_1.2.xlam") по условию. При выполнении кода возникает ошибка «Invalid procedure call or argument» т.к. значение...

Преобразовать макрос поиска по условию в безусловный
С 13.01.2025 пользуюсь замечательным поиском по условию от уважаемого Angry Old Man https://www.cyberforum.ru/vba/thread3193322.html?ysclid=mc6arml8l2358255567, там же где нужен поиск без условия - ...

Определить количество абзацев с метками, удалить лишние абзацы
Доброго дня, форумчане. Задача следущая: есть абзацы в которых текст: глас 1: глас 1: глас 7: глас 3: глас 3: глас 3: глас 3: Слава:

В выбранной по условию ячейке создать выпадающий список и выбрать ФИО пользователя в зависимости от UserName
Как в выбранной по условию ячейке с выпадающим списком выбрать ФИО пользователя в зависимости от user_name? Option Explicit Dim user_name As String Dim ФИО As String ФИО =...

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

Запись составной строки в Log.Txt
При открытии книги.xlsx с надстройкой на строке 4 Sub WriteLog() выходит ошибка Can't execute code in break mode. (Окно сообщения 3 раза закрываю) В стандартном модуле: Option Explicit Sub...

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

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

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

Модификация кода в целях уменьшения тайминга процедуры
В настоящее время тайминг измеряемой части процедуры примерно 10 сек., как можно уменьшить это значение путем модификации кода? Option Explicit Option Compare Text Public PapkaSkanov, lf As...

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

AutoCAD *.dst в XML
Здравствуйте! В соседней ветке дан код на VB.NET Возможно ли выполнение аналогичных действий из VBA Excel?

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

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

Как удалить все гиперссылки из ячейки таблицы ворда?
Здравствуйте ! Как удалить все гиперссылки из ячейки таблицы ворда ? Добавлено через 25 минут Все, разобрался

При добавлении анимации через VBA и привязке к ней звука - меняется тип триггера и обратно не возвращается
Программно создаются шейпы. Они анимируются, и если звук не привязывать то trigger:=msoAnimTriggerWithPrevious отрабатывает нормально Но если по дороге встречается...

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

Вывести названия подпапок в первую пустую ячейку указанного столбца
1. Как вывести названия подпапок в первую пустую ячейку столбца С, изменив код в процедуре: Option Compare Text Sub ЗагрузкаСпискаПодпапок() On Error Resume Next L =...

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

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

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

Сохранение книги открытой в экземпляре приложения Excel и изменённой в фоне
Здравствуйте, при закрытии с сохранением книги получаю «Subscript Out of Range «9» (Выход индекса за пределы диапазона). Как сие можно исправить? Dim objApp As Excel.Application Sub...

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

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

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

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

Автоподбор ширины столбцов на основании содержимого не объединённых ячеек
Sorry, Тема закрыта, решение найдено

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

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

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

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

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

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

Составить программу для вычисления значения функции у=-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("введите...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Инструменты 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 ячеек, необходимо...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Функция 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 ругается, что...

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

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

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

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

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

Обьединение нескольких листов данных в один макросом
Здравствуйте, подскажите пожалуйста. У меня есть 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 закрывается формочка ? Хотелось бы прописать, мол, если пользователь закрывает активную форму(которая до этого высветилась...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как узнать 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 ? Не на форму, а именно в ячейку!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Транслитерация из латиницы в кириллицу
Подскажите, вот нашел такой макрос: 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 видно как открывается книга, потом...

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

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

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

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

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

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

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

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

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

Как быстро определить: целое ли число?
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
Надеюсь что задумка, реализованная с помощью уважаемых форумчан, поможет многим спортивным судьям. Собственно смысл задумки в том, чтобы фиксировать время велогонщиков по кругам с помощью...

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

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

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

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

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

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

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

Элементы управления 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. Спасибо.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Создать фильтр по значению ячейки
Всем привет! Как в MS Office 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Проблема с типами данных. 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка 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...

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

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

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

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

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

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

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

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

Макрос для 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 Объясните...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Ошибка: 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 =...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заполнение ячеек в 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Печать с использованием функции 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\Пользователь\Рабочий...

Передача массива в другую процедуру
Как передать массив в другую процедуру вот мой код выбивает ошибку 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)...

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

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

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

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

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

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

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

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

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

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

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

Разрешить ввод в 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 ...

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

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

Число 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Скопировать строку из одного листа в другой (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),...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как выделить диапазон строк?
нужно выделить несколько строк 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заполнить массив из 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Удалить все листы кроме первого
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 Удаляет все парные...

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

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

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

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

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

На 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. Заранее спасибо!

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

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

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

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

Подключение к БД 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Макрос "нажатие кнопки" на веб странице
Здравствуйте. Есть код со страницы <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
Привет, ребята! У меня возникло затруднение при решении следующей задачи. Для быстрой обработки данных мне необходимо в макросе (Excel) задействовать встроенный механизм поиска - тот, что...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как суммировать данные с разных книг 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
Подскажите пожалуйста можно ли в VBA на UserForm рисовать линии, круги...Если да можно хоть пару примеров рисования линии.....Буду благодарен за помощь.....

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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?
есть таблица на листе.. как узнать сколько столбцов до первого пустого столбца.. и соответственно строк - до первой пустой строки но например в первой строке заполнено 6 столбцов, а во второй -...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как просуммировать часы в 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...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Посчитать количество слов в строке
Ввести строку и посчитать количество слов, БЕЗ встроенных функций. Вот, что получилось у меня, только не слова считает, а пробелы. Подскажите ) Sub main() Dim s As String Dim i As Integer ...

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

Запуск внешнего приложения из макроса
Поиском не нашел. Как из макроса запустить внешнее приложение? Или, может в .OnAction как-то можно открыть With .Add(Type:=msoControlButton) .BeginGroup = True ...

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

Как сделать расчет разницы времени в Excel?
Поврос такой кто нибуть знает как сделать так что бы можно было вводить дату к примеру : 18.09.04 11:30 20.09.04 21:00 Нужно расчитать раздницу по времени т.е. сколько прошло часов от 18.09.04 с...

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

Макрос для Word 2007: удаление строки с символом
Помогите мне написать макрос для редактирования текста Задача: найти строку с определенным словом и удалить ее

Запуск процедуры SQL Server через VBA
Уважаемые форумчане, кто подскажет можно ли при помощи VBA запустить процедуру SQL Server?

Удаление/добавление строки из/в двумерного массива
Люди добрые, помогите, поискав на форуме, не нашел способа, как удалить или же добавить строку из двумерного массива. Нужно удалить строку с заданным номером. к примеру вот массив Sub www() Dim...

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

Как программно задать горячие клавиши на макрос?
Существует собственная книга макросов. Необходимо подвесить на один из макросов "Hot Key" Вот есть строка Application.OnKey "^%{BACKSPACE}", "V1" Не могу понять где разместить эту строку, что...

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

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

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

Открыть файл Excel-я макросом и взять его на редактирование
Реально ли такое? Например пользователь открыл файл с названием Тест.xls, расположенный на общем сетевом ресурсе. Включаю процедуру и по ходу её выполнения необходимо записать данные в этот файл....

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

Консолидация данных из разных книг макрос
Уважаемые, Форумчане!доброго времени суток! очень нужна Ваша помощь (с VBA даже не на Вы). Есть несколько абсолютно однотипных книг только с разными названиями (количество и названия листов в...

Выполнение макроса по клику на ячейке
Добрый вечер, уважаемые форумчане! Приложенный к данному посту файл-пример найден в интернете, работает он хорошо. Подскажите, пожалуйста, можно ли из макроса, расположенного в объектах "Лист 1":...

Вывести значение полученной ячейки
Получил переменную Q и её значения.Как мне в msgBox'е вывести её координаты ,raw и collum ,если координаты меняются каждый раз при вычислении,ну там таблица генерируется и он выбирает,а имя...

Возможные центры круга по двум точкам и радиусу
Доброго времени суток! Как с помощью VBA найти координаты возможных центров круга (xc1, yc1, xc2, yc2) имея координаты 2 точек, лежащих на круге (x1, y1, x2, y2) и зная радиус круга (r)? Пусть даже...

Как заполнить форму на сайте pp.ua данными с Excel и получить ответ
Здравствуйте. Как заполнить форму на сайте pp.ua данными с Excel и получить ответ (успешно зарегистрирован или ошибка)? Помогите пожалуйста - а то руками уже устал это делать, и сам не могу...

VBA управление IE.....
Сильно нужна помощь. Помогите кто шарит в VBA. нашел в интернете статью как получить интерфейс объекта Document вот код который я пытался адаптировать для Access Option Compare Database Private...

Как записать в переменную текст из буфера обмена?
Добрый день! Как сделать так, что бы в iLink записывалось содержимое буфера обмена? (макрос делает гиперссылку) iText = Selection.Text iLink = Selection.Paste ...

Заполнение ListBox через RowSource в Excel и в Word
Доброго времени суток! Пересмотрел все похожие темы, но ответа на свой вопрос не нашел, помогите пожалуйста, если кто знает. Заполняю ListBox на форме в Excel через RowSource, открывая для этого...

Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба
Всем привет! срочно нужно сдать задачи !помогите пожалуйста!! 1.Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. 2.Составить алгоритм решения задачи:...

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

Создание и удаление папки
требуется создать папку Fold в активной директории CurDir, а если папка с таким именем Уже существует - удалить ее, а затем создать снова Function createMainDir() As String Dim path As...

Вставка формулы в ячейку через макрос
Надо было сделать массовую вставку формулы корреляции, которые просто так не протянуть, поэтому написал код: Sub find_corr() For i = 2 To 240 For j = 2 To 240 'Cells(i, j + 15) =...

PowerPoint VBA: переход к другому слайду по кнопке
Всем привет! Подскажите пожалуйста, как можно сделать в презентации, что при нажатие на кнопку и переходе на другой слайд єта кнопка по возвращению на слайд пропадала Благодарю за ответи!

Пустые ячейки и условие If Not IsEmpty(.Cells(i, 1)) Then
не могу понять в чем дело в программе стоит условие If Not IsEmpty(.Cells(i, 1)) Then в первом столбце визуально все ячейкм пустые, но почему-то происходит попадание в это условие Как поступить ?...

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

Удаление в массиве
Друзья как можно удалить строку в массиве? в примере третью строку массива нужно убрать, четвертую соответственно поднять к второй и выгрузить на страницу. Спасибо ребята Sub q() Dim a As...

Получение данных AD (active directory)
Всем привет. В общем есть инфа в AD ФИО, почта, тел должность. можно как то её с помощью Access и VBA отображать для тел справочника фирмы?

Нахождение обратной матрицы
Здравствуйте уважаемые форумчане и программисты у кого то имеется код для нахождения обратной матрицы в Visual Basic Applecetion, при помощь которого можно будет считать матрицы в Excel?

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

Открыть файлы в Word VBA с помощью макроса
Всем привет!Окажите содействие плиз: имеется папка с файлами .тхт необходим макрос который открывает все файлы из этой папки в Ворде(если возможно была признательна если можно было реализовать вывод...

Для заданного массива А, состоящего не более чем из 50 элементов, найти наименьший элемент
1) Для заданного массива А, состоящего не более чем из 50 элементов, найти наименьший элемент и переставить его со вторым по порядку отрицательным элементом массива. 2) Задан двухмерный массив...

Замена кавычек "" на « » макросом
Суть в том что в большом документе нужно поменять все кавычки такого формата "" на такие « ». То есть предложение вида : "Времена года": тематическая программа в рамках проекта "Летние читальни"...

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

Снятие значение с других CheckBox
На форме есть 4 "флажка". Надо чтобы через 1 макрос, поставленный на все 4 флажка выполнялось следующее действие: если кликнули на флажок1, то снять флажки с флажок2,3,4 , если кликнули на флажок2,...

Макрос копирования заданного диапазона значений на другой лист
Добрый день, форумчане. Вводная информация по задачке, которая поступила недавно в мой адрес: Имеется цифровой массив данных на листе 1, начиная со столбца AA по AL. На листе 2 имеется место...

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

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

Открытие csv-файла с помощью макроса
Hi! Такая проблема: надо открыть csv-файл. Если просто в экзеле открывать такой файл (через кнопку open), то он нормально открывается, т.е. разделители ';' учитываются и данные раскидываются по...

Сортировка списка литературы в Word
Есть документ Word с текстом и множеством ссылок в нем. Например: ............ В конце текста огромный список литературы. 1. .... 2. .... 3. .... .... В процессе редактирования очень часто возникает...

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

Авто коррекция ввода даты в TextBox
Доброго Помогите реализовать. В UserForm есть TextBox в который пользователь должен ввести дату. Идея заключается в том, когда человек ввел число, например 12 то сразу автоматом ставится точка,...

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

Таймер!!!! Ексель
Очень надо для работы! Вкратце: представим 100 номерков пришел человек взял один номерок и ушел на како-ето время потом пришел и отдал мне его мне нуно узнать время каторое номерок был у него...

Как показать UserForm при открытии файла?
Всем привет! Как сделать так, чтобы UzerForm появлялась при открытии файла? Без переключателя? Есть ли такая возможность?

Как показать в ячейках Excel все делители заданного числа?
Всем доброй ночи! Прошу помощи. Как правильно показать в ячейках Excel все делители заданного числа? Именно в ячейках Excel! Пусть число 34, тогда его делители: 1; 2; 17; 34. Прошу не...

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

При выборе значения в ComboBox автозаполняются ТекстБоксы значениями из таблицы
ComboBox должен заполниться фамилиями из 3 столбика. При выборе значения в ComboBox должны заполниться ТекстБоксы значениями из таблицы соответсвующие значению комбоБокса. Не могу разобраться как это...

Поиск текста в таблице
Можно ли как-то организовать поиск текста в таблице? Или для этого достаточно обычного поиска текста?

Макрос фильтра по дате
Всех с праздником ! всего наилучшего ... подскажите в чём может быть проблема - в екселе написал макрос Application.CutCopyMode = False Selection.Copy Sheets("лист").Select ...

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

Копирование таблицы из экселя в ворд
Добрый день, помогите реализовать. такую фишку. Созданную таблицу в экселе нужно скопировать в ворд. пробовал написать код не вышло. Sub ЭкспортВВОРД() Dim adr As String Dim copyTABL As...

Вставка текущей даты
Добрый день. Хотела бы уточнить, может у кого-нить есть макрос,который позволяет вставлять текущую дату с учетом ширины столбца (автободпор ширины), то есть макрос аналогичный сочетанию клавиш CTRL+;...

Макрос создания нового листа в Эксель с названием от 1 и далее нарастающим итогом
Добрый вечер! Очень нужна помощь, уважаемые программисты!!! Необходим макрос для кнопки, при нажатии которой, создается новый лист в Экселе с номером нарастающим итогом. То есть макрос проверяет,...

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

Границы Таблицы
Как оптимизировать код. Задача: если ячейка имеет границы (ну в смысле при распечатки распечатываются границы), то изменить эту границу на другую. Проблема: загрузка процессора на 100% (Celeron 2...

Замена строк в текстовом файле
Привет всем! Помогите пожалуйста: на диске с:\test.txt В файле написано к примеру: #1 "" #2 "" #3 "" #4 "" #5 "" Надо в позиции #4 "" и #5 "" между кавычек написать Hello!!! Выполнить через...

Удаление из строки ненужных символов
Доброй ночи всем! Мне нужно удалить из строки знак " и знак = Я решил это так: strW= (="КОРОТЕЕВ ДМИТРИЙ ВЛАДИМИРОВИЧ") strB=Replace(Replace(strW, Chr(61), ""), Chr(34), "") может есть еще...

Поменять выделенные слова в одной строке местами
в word нужно поменять местами слова! пример: есть строка: яблоко-1 + тыква2 + м-малина + вишня* нужно чтоб получилось следующее: вишня* + м-малина + тыква2 + яблоко-1 есть...

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

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

Как из текстовых файлов прочитать нужные строки
Всем привет! Вопрос по VBA - EXCEL На C:\ имею *.txt файлы (прикреплены) Из этих файлов необходимо вытащить строки, начинающиеся с "6. Стеллажи", сохранить эти строки где-либо в каком-либо...

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

Как записать в массив диапазон ячеек, а затем скопировать его
Добрый день, вопрос следующего плана: Мне нужно скопировать диапазон ячеек с Лист1 на Лист2 при определенном условии (условие проверяется c помощью if-then). Я знаю такую конструкцию: arrTest(1)...

Объединить два массива
Нужно обьединить. Использовать временный лист не желательно. Массивы двухмерные, полученные из разных областей листа (Ubound(arr,2) заранее не известно. Вот я и написал, но потом ужаснулся. Может...

Как узнать номер ячейки, после поиска
Запустил макрос Cells.Find(What:="2018", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:= False,...

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

Определение Range через Cells
Такая проблема появилась. Пытаюсь определить диапазон Set tmpO = ThisWorkbook.Sheets("Данные").Range(Cells(1, 1), Cells(x, 1))где х вычисляется при работе программы Выдает ошибку 1004. Вроде должно...

Ошибка "Требуемый класс отсутствует в ClassFactory"
Всем Здравствуйте! столкнулся с такой проблемой, скачал макрос, там была папка SYSTEM с 6 файлами один из них regdll.bat в котором содержится @echo off copy *.dll %SYSTEMROOT%\system32 copy...

Создание листа с именем из ячейки
Доброго времени суток форумчане, ниже приведенный код создает новые листы с именами которые перечислены в колонке D, в каждый при этом вставляет информацию из листа "шаблон". Вроде все хорошо, и...

Формула эксель через макрос
toiai, ребята знающие, подскажите пожалуйста.....как такую формулу сделать програмно...в макрос. =(СУММЕСЛИ(D6:AH6;">0";D6:AH6)-СУММЕСЛИ(D6:AH6;"<0";D6:AH6))-$CR$5 вот что...

Нужно определить последнюю непустую ячейку
Здраствуйте! Проблема такая. Есть диапазон. Большой. Есть "поддиапазоны". Определить "общий" последний столбец - не проблема. Нужно определить последнюю непустую ячейку (вот она может быть (на 90%)...

Как вставить пробел в ячейку из цифр и букв
Существуют ячейки с буквами и цифрами (Маша = 1000000) нужно для красоты вставить символ пробел в определенную позицию чтобы получилось (Маша = 1 000 000)

Возможно ли написанный в Excel макрос создать как отдельный файл *.exe
Добрый день! Такой вопрос, подскажите пожалуйста, возможно ли написанный в Excel макрос создать как отдельный файл *.exe? Чтобы, например, при запуске этого файла, происходила как бы "установка" его...

Найти гипотенузу и площадь треугольника
15. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь. 16. Даны действительные числа А и В. Если они оба неотрицательные, то заменить каждое из них его кубом, иначе...

Удалить строку, если ячейка в третьем столбце пустая
Всем привет! Ребята, подскажите, помогите написать макрос: в Excel есть 3 столбца, макрос ссылаясь на 3 столбец, где если в ячейке пусто, то должен удалять всю строку. Помогите написать такой...

Замена текста в Word макросом из Excel
Есть файл Экселя с данными, есть текстовый шаблон Ворда с метками для этих данных Сделал макрос для псевдослияния (штатное слияние данных не понравилось как работает) Set WA =...

References и автоматическое подключение библиотек на поздних версиях MS Office
Уважаемые программисты. Хотел бы разобраться что к чему. Есть программка (то есть макрос) на VBA, формирующая отчетики в Word из Excel. Я ее делаю на 2003 версии офиса. Программка будет стоять и...

Снова про точку и запятую
Здравствуйте, Userform загружает дробные числа в TexBox из ячеек с точкой, в то время как в таблице excel они находятся с запятыми. Обратно выгружаются по такой же логике, меня устраивает. НО, VBA...

Автоматическое проставление даты и времени при изменении ячейки
В ячейке забита формула "=ЕСЛИ(RC="";"";ТДАТА())" соответственно как только ячейка RC1 перестает быть пустой в ячейке с формулой появляется текущие дата и время. Формула забита в насколько строчек...

Microsoft Text ODBC Driver, ошибка "Не удается найти указанный поставщик"
Скажите, пожалуйста, какая ошибка в макросе. Ошибка возникает в строке 20. Полный текст ошибки: Run-time Error '3706' Не удается найти указанный поставщик. Возможно, он установлен неправильно. Sub...

Замер времени работы макроса на каждом шаге - как сделать?
Возможно ли отследить какой блок кода сколько времени исполняется? Было бы, конечно, супер, если бы это все выводилось в "отладочный" файл в удобном виде (может просто у кого есть заготовка, задача...

Поиск в папках и подпапках
Здравствуйте! Делаю курсовую на VBA и к сожалению только на нём. По моей задумке мне надо вывести в файл все файлы и папки, а так же все файлы в подпапках и подпапки. Смог вывести только то что в...

Копирование диапазона ячеек со смещением вниз
Добрый день! Помогите пожалуйста. Нужно назначить макрос на клавишу который бы копировал диапазон ячеек (A1:P1) и вставлял в ячейку например - А25 если она пустая, если нет то опускался ниже (А26)...

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

Запись данных в ячейку из другой книги
Есть файл VB.xlsm,в нём я создаю макрос,который должен брать данные из другого файла и записывать в ячейку VB.xlsm. Взять получается,но записать в ячейку фала VB.xlsm ну никак. Не понимаю,что не так....

Программно определить номер строки в Word2003
Прошу подсказать: как программно определить номер строки в Word 2003 (там, где находится курсор)?

Цикл по ячейкам, поиск информации и запись на другой лист
Добрый день! Помогите пожалуйста написать правильно цикл. Private Sub CommandButton1_Click() For i = 2 To 11384 обработка_строки (i) Next End Sub Sub обработка_строки(iRow As...

Как получить индекс элемента в ListBox
Как получить индекс элемента списка : 1.по его значению (текст), 2.по его позициии (List, Column) ? Спасибо.

ВЫХОД по нажатию "Cancel" или закрытию InputBox ИЗ ПРОЦЕДУРЫ
Требуется , чтобы после нажатия кнопки "Cancel" или если пользователь нажмет правый верхний крестик произошел выход из программы (exit Sub). КАК ЭТО СДЕЛАТЬ? По факту же , после закрытия диалога...

Сохранение файла по гиперссылке без диалогов
Ребята! Такой вопрос: есть гиперссылка на фаил *.doc, кликаешь на нее и начинается загрузка файла, проблема в том что я сделал через VBA обращение к ой ссылке, но потом всплывает окно загрузки,...

Выделить несколько отдельных столбцов по условию (с помощью Union)
Помогите, пожалуйста. Требуется удалить колонки названию заголовка. таблица небольшая, где-то 1000 строк, но удаление по Columns(i).Delete долго даже при всех отключенных скрин апдейтин,...