Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Поиск
Построение диаграммы из диапазона активного листа
Автор: Lexey. Всех приветствую! Прошу помощи с задачей построения диаграммы в VBA. Есть множество листов, в каждом диапазоны в тех же ячейках, на основании которых строятся диаграммы. В каждой диаграмме несколько рядом (например, 3) со своими значениями Х и Y. Проблема в том, чтобы диаграмма строилась по значениям из диапазона активного листа. Сейчас получилось только добиться того, чтобы на всех листа данные диаграммы брались из первого листа. У меня указаны именованные диапазоны, но это ...
Теги: VBA
Изменен: 05.03.2024
Читать сообщение на форуме или сайте.
Формирование отдельного файла с данными из исходной таблицы
Автор: lodes11. Всем доброго дня. Обращаюсь за помощью, так как самому не получилось собрать макрос отвечающий моей задачи. ТЗ к макросу: Есть документ "Пример", в нем есть лист с таблицей данных "$ Данные $", необходимо по нажатию на "Кнопку" сформировать новый документ (пример нового документа на листе "! Реестр к выполнению !"), который будет содержать определенные заголовки отличные от заголовков таблицы исходных данных и иметь другой порядок столбцов, ...
Теги: VBA
Изменен: 06.02.2024
Читать сообщение на форуме или сайте.
Макрос для печати четных и нечетных страниц с разными полями
Автор: Reaper. Добрый день, нужен макрос для печати четных и нечетных страниц с разными полями. Есть такой, но он печатает все листы как четные. Я плохо разбираюсь в кодах и вообще не пойму как его исправить. Помогите, пожалуйста!Sub PrintActiveSheet() Dim ws As Worksheet Dim oddPages As Boolean Set ws = ActiveSheet oddPages = False With ws.pageSetup .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) End With If ws.Index Mod 2 ...
Теги: Макрос
Изменен: 30.01.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
Читать сообщение на форуме или сайте.
Сломался 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
Читать сообщение на форуме или сайте.
Макрос на добавление строк выше каждой отсортированной строки, Макрос на добавление строк выше каждой отсортированной строки с заполнением данными и форматом.
Автор: TheArhus. Добрый день! Прошу решить следующую проблему: Есть файл (во вложении) Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию: Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то К каждой такой строке нужно добавить строку сверху. В этой строке ячейки со "Стоимость руб." нужно зачеркнуть. Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...
Изменен: 23.10.2023
Читать сообщение на форуме или сайте.
Удаление листа, Как можно сделать так чтобы лист удалялся без всплывающего окна
Автор: al.tarin. Здравствуйте! Есть макрос, который удаляет лист после выполнения пересчета. Но появляется окно с запросом стоит ли удалить лист, ведь там есть данные.  Можно ли обойти это окно, тк нужно чтобы лист удалялся без вмешательства пользователя
Теги: Макрос
Изменен: 25.09.2023
Читать сообщение на форуме или сайте.
Запуск макроса после расчетов в книге
Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!
Теги: Макрос
Изменен: 21.09.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
Читать сообщение на форуме или сайте.
Траспонирование таблицы с повторяющимися значениями, Помогите привести таблицу в нужны формат
Автор: magistr_ken. Привет, знатоки. Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи. Мне нужно привести это в вид где все это стоит вертикально. При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз. Пример как должно выглядеть показал.
Изменен: 04.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
Читать сообщение на форуме или сайте.
Сбор данных из файлов 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
Читать сообщение на форуме или сайте.
Макрос на одном ПК работает корректно, на другом возвращает значения в книгу источник
Автор: Артём Б. Всем добрый день! Есть легкое непонимание, т.к. на одном пк макрос работает корректно и переносит значения ячеек из таблицы "Таблицаисточник" в "Таблицаприемник". При попытке скопипастить макрос с заменой путей на актуальный, выходит ошибка 9, т.к. макрос не видит листа "Лист1" в "Таблицаисточник", но если добавить лист под названием "Лист1" - все значения исправно встают куда им нужно, но не в ту книгу. Вопрос в следующем, ...
Теги: Макрос
Изменен: 21.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
Читать сообщение на форуме или сайте.
Удаление лишних символов в массиве данных, Удаление пробелов, запятых по условиям
Автор: Владислав Гладыш. Добрый вечер уважаемые пользователи форума. Ломал я голову, ломал - и просидевши часов 7 с интернетом так и не смог получить желаемый результат, а он очень нужен. Задача не совсем тривиальная, но и не совсем сложная. Поискав по форуму похожих проблем не нашёл у кого-то - если плохо искал - тыкните мордой) Дано: Есть массив фраз, которую хранит ячейка вида " Шампунь для волос, Крем,Маска, ," Задача: Нужно привести данную ячейку к виду: "Шампунь для волос, ...
Изменен: 16.11.2022
Читать сообщение на форуме или сайте.
Сохранение одного листа как отдельный файл.
Автор: В. Здравствуйте. Нужен VBA макрос скрипт который бы сохранял активный ... файле должна быть сохранена как текст а в исходном файле должно ...
Теги: 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
Читать сообщение на форуме или сайте.
Обновление запросов и подключений с последующим сохранением
Автор: Estelio Ammen. Подскажите, пожалуйста, как можно реализовать следующее: Необходимо обновлять все запросы и подключения (я так понимаю это ActiveWorkbook.RefreshAll) Далее сохранять файл. Сделать цикличность выполнения макроса. Есть несколько оговорок - изначально я сделал просто обновление запросов и сохранение книги, но в этом случае эксель не успевает обновить запросы перед сохранением, так что я предполагаю нужно сделать задержку между обновлением запросов и сохранением книги. Вот что ...
Изменен: 18.10.2022
Читать сообщение на форуме или сайте.
Печать по условию (макрос), Печать документа по условию: определенные листы и копии
Автор: Сергей Бригса. Здравствуйте. Посоветуйте как подправить макрос. Имеется документ из более 100 листов с данными и оглавлением. В оглавлении указаны названия тех самых 100 листов, и столбец "кол-во печати". Нужно чтобы макрос проверил данный столбец и если в нем >0, то отправил тот лист на печать (напротив которого указана цифра) и столько копий, сколько указано. На данном форуме нашел нечто похожее, но там проверяется просто заполнена определённая ячейка или нет и печатает эти ...
Изменен: 10.10.2022
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 6 7 8 9 10 След.
Наверх