Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Поиск
Построение диаграммы из диапазона активного листа
Автор: Lexey. Всех приветствую! Прошу помощи с задачей построения диаграммы в VBA. Есть множество листов, в каждом диапазоны в тех же ячейках, на основании которых строятся диаграммы. В каждой диаграмме несколько рядом (например, 3) со своими значениями Х и Y. Проблема в том, чтобы диаграмма строилась по значениям из диапазона активного листа. Сейчас получилось только добиться того, чтобы на всех листа данные диаграммы брались из первого листа. У меня указаны именованные диапазоны, но это ...
Теги: VBA
Изменен: 05.03.2024
Читать сообщение на форуме или сайте.
Формирование отдельного файла с данными из исходной таблицы
Автор: lodes11. Всем доброго дня. Обращаюсь за помощью, так как самому не получилось собрать макрос отвечающий моей задачи. ТЗ к макросу: Есть документ "Пример", в нем есть лист с таблицей данных "$ Данные $", необходимо по нажатию на "Кнопку" сформировать новый документ (пример нового документа на листе "! Реестр к выполнению !"), который будет содержать определенные заголовки отличные от заголовков таблицы исходных данных и иметь другой порядок столбцов, ...
Теги: VBA
Изменен: 06.02.2024
Читать сообщение на форуме или сайте.
Сведение по признаку, Исправить код VBA Excel
Автор: romeiro. Здравствуйте! Пожалуйста, подправьте мой код, ниже пример исходных данных и желаемого результата. Нужно по Номеру короткому(nname) и Уровню(Uroven) сгруппировать строки. Уровень для одного номера может отличаться, но для след. строк Уровень также будет расти внутри группы.Sub Sostav_po_uzlam() Application.ScreenUpdating = False ' îòêëþ÷àåì îáíîâëåíèå ýêðàíà Set wb = ActiveWorkbook x = 2 'ÁÛËÎ 2 !!! y = 1 For Each nname In Range("A3:A50000").Cells x = x + 1 nvbom = ...
Изменен: 24.01.2024
Читать сообщение на форуме или сайте.
Горячие клавиши для вызова окна редактора VBA не работают, alt+F11
Автор: Yum. Добрый день всем! Собственно, сабж. По отдельности каждая работает, но в сочетании нет. Что тут можно сделать ?
Теги: VBA
Изменен: 08.01.2024
Читать сообщение на форуме или сайте.
вернуть значение по совпадению части строки (началу строки), подставить в результирующую таблицу найденные совпадения из "словаря"
Автор: focus_487164. всем добрый день. есть таблица, в которую выгружены логи проверок по заявкам. Данные логи содержат название проверки в начале строки, и уникальные значения (номер заявки, ФИО и прочее) в конце строки.  Вопрос - как сопоставить начало строки (название проверки) со словарем (в котором названия этих проверок) и вернуть значение (название проверки) в результирующую таблицу. Пример в приложенном файле.  попробовала искать по маске "*"&А1&"*", но половину не ...
Теги: excel
Изменен: 20.12.2023
Читать сообщение на форуме или сайте.
Сломался Personal.xlsb, После некорректного выключения компьютера сбои в работе книги макросов.
Автор: ne.bla.bla. Всем добрый день! Неудачно вчера выключил компьютер после чего сломался Personal.xlsb, некоторые макросы, выведенные на кнопки работают на одном очень сильно зависают. Но самая большая проблема - нет возможности редактировать код в модулях, они попросту не открываются, не экспортируются, не удаляются. Перепробовал все что можно - перезагружал пк всякими способами, запускал excel в безопасном режиме, убирал из папки файл с макросами, создавал новый - он работает безупречно. ...
Теги: VBA
Изменен: 12.12.2023
Читать сообщение на форуме или сайте.
VBA если видимые строки равны 1, Проставить букву если = 1
Автор: lost.eu. Прошу помочь с кодом, данный код работает, но когда встречается видимая строка = 1 то код не проставляет букву A Задача была в том, чтобы проставить такое количество сколько имеется видимых строк буквы A, B, C вот код: Sub тест() Dim количествоСтрок As Integer Dim количествоБукв As Integer Dim буква As String Dim i As Integer Dim видимаяСтрока As Range ' Укажите ваш диапазон строк, начиная с A2 количествоСтрок = 1 For Each видимаяСтрока In Range("A2:A" & Cells(Rows. ...
Теги: VBA
Изменен: 30.11.2023
Читать сообщение на форуме или сайте.
Формула VBA не высчитывает значения в определённом диапазоне
Автор: Ильяrc. Здравствуйте! Помогите пожалуйста с кодом он должен по значениям в столбике С высчитывать сумму в определенном диапазоне и  делать разницу полученных значений и предыдущих потом с каждым шагом увеличивать диапазон суммирующих значений и т.д. до половины количества значений в столбике С. значения С заполняются индивидуально и не имеет зависимостей в отличии от шага В сам код: Sub gg() Dim Massive As Range Dim G As Double 'задаем форматы значений' Dim N As Double Dim ...
Теги: VBA
Изменен: 25.11.2023
Читать сообщение на форуме или сайте.
VBA Перенос значений из столбцов в одну строку по условию, Структурирование значений из столбца в 1 ряд на каждую объединенную ячейку
Автор: MZ_PLANET. Друзья, мой опыт не позволяет мне сделать макрос. Необходимо переносить значения ячеек слева в горизонтальный порядок справа (окрашенные строки в примере). Каждая позиция отдельно. Если есть такая возможность макросом сделать, можете подсказать пожалуйста?
Теги: VBA
Изменен: 17.11.2023
Читать сообщение на форуме или сайте.
Подружить Dadata c VBA, интересная задачка, интересно мнение экспертов
Автор: Denko_P. доброго дня! Коллеги, прошу совета стоит ли начинать браться и если знаете - то с чего начать копать? Мне дико повезет, если уже есть решение и кто-то про него знает. дано: 650 почт, 400 из которых с доменом и 250 личных. Известно про название компании (не всегда правильно написано), почта, номер. задача: на основе почты, названия компании подтянуть ИНН и ОКВЭД.  Нашел единственный пока для себя вариант это сервис https://dadata.ru/api/find-company/by-email/. Реально ли по такой ...
Теги: VBA
Изменен: 13.11.2023
Читать сообщение на форуме или сайте.
Функция Getobject не видит открытый экземпляр приложения
Автор: Dinoxromniy. Добрый день.  Для связи между двумя открытыми приложениями использую VBA через функцию Getobject.  Для примера - хочу из открытого экземпляра Word получить доступ к уже открытому документу в Excel (в оригинале - нужно из открытого Autocad получить доступ в открытый же Excel, но поскольку проблема абсолютно аналогичная и с Word, легче порешать через него).  Для получения открытого экземпляра Excel использую стандартный код из Word (или из акада, не важно), который успешно ...
Теги: VBA, Getobject
Изменен: 24.10.2023
Читать сообщение на форуме или сайте.
Задача по экселю, статистика по клиентам по заданным условиям, Помощь в формировании формулы статистического подсчета
Автор: RinatSibay. Здравствуйте, подскажите пожалуйста как решить такую задачу, уже больше 2 недель не могу найти возможных путей решения: Нужно подсчитать количество людей получивших консультацию/патронаж/лекцию/... в определенное время и месте. Я смог найти количество проведенных консультаций и по датам и по местам, но не могу их сопоставить с количеством получшившим помощь людей. Тоесть если у нас 6 человек пришли за услугой, то нужно узнать сколько из них получили консультацию в 1 квартале ...
Изменен: 19.08.2023
Читать сообщение на форуме или сайте.
VBA вставка пустых ячеек вместо отсутствующих данных, VBA вставка пустых ячеек вместо отсутствующих данных при переносе содержимого заранее указанных столбцов из книги в книгу
Автор: Zanzibarin. Здравствуйте.  Это своеобразное продолжение темы "VBA выборочное копирование столбцов в зависимости от их названия"  Прошу помочь с решением следующей конкретной задачи. Из Excel-файла (приложен к посту под названием "Источник") требовалось скопировать, из нескольких листов, информацию из столбцов с определённым названием, после чего перенести их в другой файл на один лист (файл c макросом приложен к посту под названием "Шаблон") и там вставить в ...
Теги: VBA
Изменен: 10.08.2023
Читать сообщение на форуме или сайте.
Как парсит ответ get запроса
Автор: sayriddin sohibov. Есть файл с примером GET запроса, он работает, но не знаю как сохранить(парсит) ответ get запроса на отдельных столбцов 
Теги: VBA, GET
Изменен: 18.07.2023
Читать сообщение на форуме или сайте.
MRP калькуляция VBA, Объединение рецептур полуфабрикатов и готовой продукции
Автор: Wulade. Здравствуйте, Помогите с проблемкой. Задача: необходимо собрать базу из рецептур полуфабрикатов и готовой продукции, т.е. в готовый продукт входит полуфабрикат и упаковочный материал, а в полуфабрикат в свою очередь входит основное сырье и полуфабрикат2, который также состоит из сырья и полуфабриката3 (такая матрешка может доходить до 8 уровней, а иногда и меньше или больше). их необходимо соединить таким образом, чтоб можно было увидеть из чего состоит готовый продукт без ...
Теги: VBA
Изменен: 12.07.2023
Читать сообщение на форуме или сайте.
Обработка писем Outlook из Excel посредством VBA, Совместимость между различными версиями MS Office
Автор: Crowner. Подскажите чайнику, пожалуйста. Вот есть у меня макрос следующего вида Dim objFolder As Outlook.Folder Dim objNS As Outlook.Namespace Dim objMail As Outlook.MailItem Dim lCounter As Long Set objNS = Outlook.GetNamespace("MAPI") Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка") For lCounter = 1 To objFolder.Items.Count Set objMail = objFolder.Items.Item(lCounter) {Здесь я получаю информацию различную из objMail такие как дата, время, ...
Теги: VBA, EXCEL, OUTLOOK
Изменен: 27.06.2023
Читать сообщение на форуме или сайте.
Как создать таблицу с 50+ строками, Не могу перенести полную обновляемую таблицу из интернета
Автор: Sur Arutyuni. Здравствуйте,  Мне нужно создать таблицу, которая обновляется, но проблема в том, что на странице из интернета, с которой я импортируют таблицу видно только 50 строк, а для того чтобы увидеть все 1200 строк нужно нажимать “show more”(тогда всё появляется), но excel распознает только первые 50 строк, когда вставляешь ссылку на импорт.Как сделать так, чтобы обновляемая таблица распознавала все строки сразу, чтобы даже  «show more” не нужно было нажимать
Изменен: 19.04.2023
Читать сообщение на форуме или сайте.
Сбор данных из файлов excel в 1 файл VBA, Сбор данных из выбранной папки в 1 файл VBA
Автор: lilo295. Добрый день. Помогите в написании макроса. Необходимо из нескольких файлов excel в которых находятся одинаковые таблицы с разными значениями собрать данные в 1 файл excel. Вариант 1: осуществить поиск по строке №6  по названию ячейки и определить столбец и вставить данные с 7 строки и до конца со всех файлов в 1 файл и на один лист. Поиск колонок: Наименование, артикул, цвет и последующая вставка столбцов в 1 файл, поиск нужно произвести во всех файлах. Заранее благодарствую!
Теги: VBA
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.
Сокращение (адаптация) длинной формулы для макроса в VBA, При активации записанной макрорекордером формулы появляется ошибка: "Run-time error '1004' Application-defined or object-defined error"
Автор: i molecule. Доброго времени суток! Есть довольно длинная формула (1580 знаков), которая никак не хочет работать в VBA, даже после обработки макрорекордером – вылетает ошибка 1004. Формула, вставляемая вручную (есть в файле-примере):  =ЕСЛИ(ИЛИ(ПСТР([@Номер];1;2)="05";ПСТР([@Номер];1;2)="06";ПСТР([@Номер];1;2)="07";ПСТР([@Номер];1;5)="08";ПСТР([@Номер];1;5)="09";ПСТР([@Номер];1;2)="10& ...
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.
VBA Фоновое открытие Книг в папке, кроме уже открытых, Макрос должен открывать все Книги в папке, кроме уже открытых
Автор: boberchik. Ребята, всем привет! Помогите доработать макрос. Я его нашел на просторах интернета, добавил к своей Книге - работает, но есть нюансы. Изначальная задача: при открытии Альфа-Книги необходимо в фоновом режиме открыть все Книги в Папке, сохранить изменения и закрыть. Тестовый запуск показал, что файлы открываются, сохраняются и закрываются нормально. Но только до тех пор, пока не случается ситуация, когда один из файлов в Папке уже кем-то открыт. Тогда работа макроса ...
Теги: VBA, Workbooks.Open
Изменен: 23.03.2023
Читать сообщение на форуме или сайте.
Regex execute, Проверка и подстановка скопированных данных в ячейку
Автор: Dzhode -. Доброй ночи, форумчане. Возник вопрос по использованию RegEx.Execute сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства... Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : "Машина KAMAZ А101СЕ178". Диапазон к примеру используется "A". я могу только проверить, но не ...
Изменен: 02.02.2023
Читать сообщение на форуме или сайте.
Цикл For для нескольких строк
Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 10. Понимаю что скорее всего нужно взять это все в массив и использовать\внедрить For Each, но никак не получается разобраться. Заранее благодарен.Private Sub CommandButton1_Click() Dim m As Integer Dim x As Integer Dim out As Integer m = Cells(2, 1) x = Cells(2, 2) out = Cells(2, 3) For i = m To x Step -x If i > 0 Then i = i - out ...
Теги: EXCEL, VBA, Макрос
Изменен: 22.11.2022
Читать сообщение на форуме или сайте.
Сохранение одного листа как отдельный файл.
Автор: В. Здравствуйте. Нужен VBA макрос скрипт который бы сохранял активный лист в виде отдельного файла, но вся информация в новом файле должна быть сохранена как текст а в исходном файле должно все остаться как было. P.S. Находил примерно похожие решения, но они мне не подошли, либо меняли информацию в исходном листе, либо сохраняли формулы, либо сохраняли все листы, либо сохраняли листы с определенным именем(а не активный).
Теги: VBA, Макрос, EXCEL
Изменен: 03.11.2022
Читать сообщение на форуме или сайте.
Не прогружается дата в поле TextBox при открытии, При открытии Экселя и автоматического запуска макроса поле TextBox остается пустым, хотя у него есть присвоенное значение. Может как обновить нужно?
Автор: Юлия Лунева. При открытии Экселя и автоматического запуска макроса поле TextBox остается пустым, хотя у него есть присвоенное значение. Может как обновить нужно? Dim NameOfFiles(2) As String Dim PathOfFile() Private Sub Back_Click()     Me.Hide     Choose.Show End Sub Private Sub ChooseFiles_Click()     Dim i As Integer     PathOfFiles = Application.GetOpenFilename(",*.csv", , "Choose file", , True)     If UBound(PathOfFiles) = 2 Then     NameOfFiles(1) = Mid( ...
Теги: VBA
Изменен: 26.10.2022
Читать сообщение на форуме или сайте.
VBA excel парсер highchart графика, Парсер на VBA (excel, макрос) highchart графика
Автор: mvfedosov. Добрый день. Необходим парсер на VBA (excel, макрос) highchart графика  https://yield.chinabond.com.cn/cbweb-mn/indices/single_index_query?locale=en_US (скриншот 1234567890). Парсер должен записывать на лист excel значения в три колонки: дата, значение в этой дате красного графика и значение в этой дате желтого графика. Алгоритм получения html кода страницы не важен, преимущественно нужно сделать акцент на решении преобразования данных (скриншот 12345678901, выделено красной ...
Теги: Excel, VBA, Парсер
Изменен: 16.09.2022
Читать сообщение на форуме или сайте.
Выгрузка CSV макросом на лист
Автор: Сергей Разумчиков. Добрый день! Помогите с задачей: Есть CVS открытый в EXEl с разделителями запятыми, далее его делим по столбцам по разделителю. Затем на другом листе па данной таблице строимсводную. Хотел автоматизировать процес подгрузки нового CSV (за другой период) с затиранием данных по старому. Но опробовав множество различных вариантов запутался и сломал голову. Ключевые моменты которые хотелось бы использовать: 1. Выбор файла CSV через диалоговое окно - что бы среди прочего ...
Изменен: 12.09.2022
Читать сообщение на форуме или сайте.
Команда vba Replace не работает с данными, считанными из ячеек, Команда vba Replace не работает с данными, считанными из ячеек
Автор: zenija2007. Здравствуйте. Создал скрипт для пакетной замены одной фамилии на другую. Когда вбиваю в команду Replace текст на поиск и замену напрямую, все работает, когда считываю из ячеек и подставляю через переменные - не работает. 'Список файлов на пакетную обработку Function ScanFolder() Dim sFolder As String, sFiles As String Dim str As String Dim s() As String 'диалог запроса выбора папки с файлами With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit ...
Теги: VBA
Изменен: 10.09.2022
Читать сообщение на форуме или сайте.
[VBA] Поиск и перенос уникальных данных
Автор: BUCK. Всем добрый день! Очень прошу вас помочь в создании макроса для переноса уникальных данных из одной книги в другую, так как макросами владею не сильно. Пример приложил в файле, для простоты Лист=Книга. Допущения следующие: Исходный файл "Книга 2", который выгружается из открытого источника, и куда постоянно добавляются данные в верхнюю часть таблицы, а также обновляются существующие данные "Книга 1" - рабочий файл, в который мне необходимо перенести новые ...
Теги: VBA, Excel
Изменен: 09.09.2022
Читать сообщение на форуме или сайте.
Vba самопроизвольно меняет путь сохранения файлов и названия некоторых файлов , Vba самопроизвольно меняет путь сохранения файлов и названия некоторых файлов
Автор: zenija2007. Здравствуйте. Есть несложный скрипт. Получаю список всех файлов excel в указанной папке, по очереди открываю, делаю замену некоторых слов и закрываю. Сохранение происходит через .save. 1. Vba сохраняет изменённые файлы не с перезаписью оригиналов, а на уровень выше. Это странно, ведь используется команда .save, которая не подразумевает создание нового файла. 2. Имена файлов 1.xlsx и 2.xlsx превратились в 11 и 21.xlsx. Повторю, использовал команду .save. Вопрос: почему ...
Теги: VBA
Изменен: 06.09.2022
Читать сообщение на форуме или сайте.
Макрос копирования данных с критериями
Автор: Сергей Тихомиров. Здравствуйте, стоит задача составить макрос для копирования данных с одного листа по критериям в другой. На просторах интернета нашел похожую, но все равно иную и попытался этот макрос переделать по нужную мне задачу. И вот он вроде бы работает, но криво. Прошу помощи разобраться. Сама задача звучит так:  Нужно чтобы данные с листа 2 копировались на лист 1 по критерию в столбце С. Подобных строк в листе 2 будут около 250, а листе 1 зависит от заказа. Sub Копирование() ...
Изменен: 22.08.2022
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Наверх