Поиск
Автор: Lexey. Всех приветствую!
Прошу помощи с задачей построения диаграммы в VBA. Есть множество листов, в каждом диапазоны в тех же ячейках, на основании которых строятся диаграммы. В каждой диаграмме несколько рядом (например, 3) со своими значениями Х и Y. Проблема в том, чтобы диаграмма строилась по значениям из диапазона активного листа. Сейчас получилось только добиться того, чтобы на всех листа данные диаграммы брались из первого листа.
У меня указаны именованные диапазоны, но это ...
Изменен: 05.03.2024
Читать сообщение на форуме или сайте.Автор: lodes11. Всем доброго дня. Обращаюсь за помощью, так как самому не получилось собрать макрос отвечающий моей задачи.
ТЗ к макросу:
Есть документ "Пример", в нем есть лист с таблицей данных "$ Данные $", необходимо по нажатию на "Кнопку" сформировать новый документ (пример нового документа на листе "! Реестр к выполнению !"), который будет содержать определенные заголовки отличные от заголовков таблицы исходных данных и иметь другой порядок столбцов, ...
Изменен: 06.02.2024
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: Yum. Добрый день всем! Собственно, сабж.
По отдельности каждая работает, но в сочетании нет. Что тут можно сделать ?
Изменен: 08.01.2024
Читать сообщение на форуме или сайте.Автор: ne.bla.bla. Всем добрый день!
Неудачно вчера выключил компьютер после чего сломался Personal.xlsb, некоторые макросы, выведенные на кнопки работают на одном очень сильно зависают. Но самая большая проблема - нет возможности редактировать код в модулях, они попросту не открываются, не экспортируются, не удаляются.
Перепробовал все что можно - перезагружал пк всякими способами, запускал excel в безопасном режиме, убирал из папки файл с макросами, создавал новый - он работает безупречно.
...
Изменен: 12.12.2023
Читать сообщение на форуме или сайте.Автор: 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. ...
Изменен: 30.11.2023
Читать сообщение на форуме или сайте.Автор: Ильяrc. Здравствуйте! Помогите пожалуйста с кодом он должен по значениям в столбике С высчитывать сумму в определенном диапазоне и делать разницу полученных значений и предыдущих потом с каждым шагом увеличивать диапазон суммирующих значений и т.д. до половины количества значений в столбике С. значения С заполняются индивидуально и не имеет зависимостей в отличии от шага В
сам код:
Sub gg()
Dim Massive As Range
Dim G As Double 'задаем форматы значений'
Dim N As Double
Dim ...
Изменен: 25.11.2023
Читать сообщение на форуме или сайте.Автор: MZ_PLANET. Друзья, мой опыт не позволяет мне сделать макрос. Необходимо переносить значения ячеек слева в горизонтальный порядок справа (окрашенные строки в примере). Каждая позиция отдельно. Если есть такая возможность макросом сделать, можете подсказать пожалуйста?
Изменен: 17.11.2023
Читать сообщение на форуме или сайте.Автор: Denko_P. доброго дня! Коллеги, прошу совета стоит ли начинать браться и если знаете - то с чего начать копать? Мне дико повезет, если уже есть решение и кто-то про него знает. дано: 650 почт, 400 из которых с доменом и 250 личных. Известно про название компании (не всегда правильно написано), почта, номер.
задача: на основе почты, названия компании подтянуть ИНН и ОКВЭД.
Нашел единственный пока для себя вариант это сервис https://dadata.ru/api/find-company/by-email/. Реально ли по такой ...
Изменен: 13.11.2023
Читать сообщение на форуме или сайте.Автор: Dinoxromniy. Добрый день.
Для связи между двумя открытыми приложениями использую VBA через функцию Getobject.
Для примера - хочу из открытого экземпляра Word получить доступ к уже открытому документу в Excel (в оригинале - нужно из открытого Autocad получить доступ в открытый же Excel, но поскольку проблема абсолютно аналогичная и с Word, легче порешать через него).
Для получения открытого экземпляра Excel использую стандартный код из Word (или из акада, не важно), который успешно ...
Изменен: 24.10.2023
Читать сообщение на форуме или сайте.Автор: Zanzibarin. Здравствуйте.
Это своеобразное продолжение темы "VBA выборочное копирование столбцов в зависимости от их названия"
Прошу помочь с решением следующей конкретной задачи.
Из Excel-файла (приложен к посту под названием "Источник") требовалось скопировать, из нескольких листов, информацию из столбцов с определённым названием, после чего перенести их в другой файл на один лист (файл c макросом приложен к посту под названием "Шаблон") и там вставить в ...
Изменен: 10.08.2023
Читать сообщение на форуме или сайте.Автор: sayriddin sohibov. Есть файл с примером GET запроса, он работает, но не знаю как сохранить(парсит) ответ get запроса на отдельных столбцов
Изменен: 18.07.2023
Читать сообщение на форуме или сайте.Автор: Wulade. Здравствуйте,
Помогите с проблемкой.
Задача: необходимо собрать базу из рецептур полуфабрикатов и готовой продукции, т.е. в готовый продукт входит полуфабрикат и упаковочный материал, а в полуфабрикат в свою очередь входит основное сырье и полуфабрикат2, который также состоит из сырья и полуфабриката3 (такая матрешка может доходить до 8 уровней, а иногда и меньше или больше). их необходимо соединить таким образом, чтоб можно было увидеть из чего состоит готовый продукт без ...
Изменен: 12.07.2023
Читать сообщение на форуме или сайте.Автор: 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 такие как дата, время, ...
Изменен: 27.06.2023
Читать сообщение на форуме или сайте.Автор: Agilov. Всем привет. Эта тема тут была, но в другом формате, и осталась неотвеченной.
В общем, возникает ошибка при слиянии, точнее обрезается текст.
Есть excel, в которых имеются данные в ячейках, ячейки построены построчно, это как простые суммы и даты, так и сложные формулы.
Но есть еще отдельные ячейки, где в них, некоторые массивы текста варьируются с содержанием текста от меньше половины листа до 3 листов, и таких ячеек пока 10.
Все ячейки первой строки это как заголовки, далее под ...
Изменен: 16.06.2023
Читать сообщение на форуме или сайте.Автор: lilo295. Добрый день.
Помогите в написании макроса.
Необходимо из нескольких файлов excel в которых находятся одинаковые таблицы с разными значениями собрать данные в 1 файл excel.
Вариант 1: осуществить поиск по строке №6 по названию ячейки и определить столбец и вставить данные с 7 строки и до конца со всех файлов в 1 файл и на один лист. Поиск колонок: Наименование, артикул, цвет и последующая вставка столбцов в 1 файл, поиск нужно произвести во всех файлах.
Заранее благодарствую!
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: boberchik. Ребята, всем привет! Помогите доработать макрос. Я его нашел на просторах интернета, добавил к своей Книге - работает, но есть нюансы.
Изначальная задача: при открытии Альфа-Книги необходимо в фоновом режиме открыть все Книги в Папке, сохранить изменения и закрыть.
Тестовый запуск показал, что файлы открываются, сохраняются и закрываются нормально. Но только до тех пор, пока не случается ситуация, когда один из файлов в Папке уже кем-то открыт. Тогда работа макроса ...
Изменен: 23.03.2023
Читать сообщение на форуме или сайте.Автор: Dzhode -. Доброй ночи, форумчане.
Возник вопрос по использованию RegEx.Execute
сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства...
Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : "Машина KAMAZ А101СЕ178". Диапазон к примеру используется "A".
я могу только проверить, но не ...
Изменен: 02.02.2023
Читать сообщение на форуме или сайте.Автор: Pushninka. Коллеги, добрый день!
Прошу помочь с решением такой задачи:
"Есть две даты (начало и конец периода) и сумма, нужно понять, как можно разбить сумму по месяцам в этом временном отрезке"
Прикладываю Excel для наглядности.
Спасибо!
Изменен: 30.01.2023
Читать сообщение на форуме или сайте.Автор: alex_rem. Всем доброго времени суток.
Описание проблемы: есть протокол, в который подтягиваются данные по приборам из таблицы на втором листе. А в таблицу на втором листе, в свою очередь, подтягиваются данные из внешнего источника (см. пример). Внешним источником служит таблица в отдельном файле excel (Все таблицы НЕ сводные!!!).
Листы в данном протоколе, а также сама книга будут защищены паролем, который исполнители, заполняющие протокол, знать не будут.
Обновлять данные нужно не ...
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: allovar. Добрый день всем! Есть сайт фондовой биржи. На сайте в углу есть кнопка "ТОРГОВАЯ ИНФОРМАЦИЯ", при нажатии на которую вызывается страница с информацией по торгам на бирже. Как можно с помощью Power Query правильно спарсить данную страницу? Ссылка https://kase.kz/ru/#trade_info_period. У меня при обычном Get From Web по этой ссылке парситься только главная страница, а всплывающая нет. Как быть?
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: Daryana Sova. Добрый вечер. Есть такая проблема, высылают числовые данные, которые нужно привести к особому шаблону. Вводить вручную около двух тысяч знаков это ужас ужасный, может есть какой-либо макрос или формула? Помогите пожалуйста. Фишка вот в чем, допустим есть три столбца, в первом указано количество знаков всего, во втором количество знаков после запятой, в третьем само значение. К примеру 8/3/45. Мне нужно, чтобы в четвертом встало число 00045,000. Первый и второй столбец не ...
Изменен: 15.12.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 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
...
Изменен: 22.11.2022
Читать сообщение на форуме или сайте.Автор: В. Здравствуйте.
Нужен VBA макрос скрипт который бы сохранял активный лист в виде отдельного файла, но вся информация в новом файле должна быть сохранена как текст а в исходном файле должно все остаться как было.
P.S. Находил примерно похожие решения, но они мне не подошли, либо меняли информацию в исходном листе, либо сохраняли формулы, либо сохраняли все листы, либо сохраняли листы с определенным именем(а не активный).
Изменен: 03.11.2022
Читать сообщение на форуме или сайте.Автор: vitalyram. Excel 2010, при открытии почти каждого файла стиль ссылок R1C1, файлов очень много, пересохранять не вариант. Подскажите пожалуйста,
можно ли сделать маркос (надстройки) или что то еще чтобы при открытии любого файла стиль ссылок менялся и как ? Может быть иное решение ?
Изменен: 28.10.2022
Читать сообщение на форуме или сайте.Автор: Юлия Лунева. При открытии Экселя и автоматического запуска макроса поле 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( ...
Изменен: 26.10.2022
Читать сообщение на форуме или сайте.Автор: mvfedosov. Добрый день.
Необходим парсер на VBA (excel, макрос) highchart графика
https://yield.chinabond.com.cn/cbweb-mn/indices/single_index_query?locale=en_US (скриншот 1234567890).
Парсер должен записывать на лист excel значения в три колонки: дата, значение в этой дате красного графика и значение в этой дате желтого графика.
Алгоритм получения html кода страницы не важен, преимущественно нужно сделать акцент на решении преобразования данных (скриншот 12345678901, выделено красной ...
Изменен: 16.09.2022
Читать сообщение на форуме или сайте.Автор: Сергей Разумчиков. Добрый день!
Помогите с задачей:
Есть CVS открытый в EXEl с разделителями запятыми, далее его делим по столбцам по разделителю.
Затем на другом листе па данной таблице строимсводную.
Хотел автоматизировать процес подгрузки нового CSV (за другой период) с затиранием данных по старому.
Но опробовав множество различных вариантов запутался и сломал голову.
Ключевые моменты которые хотелось бы использовать:
1. Выбор файла CSV через диалоговое окно - что бы среди прочего ...
Изменен: 12.09.2022
Читать сообщение на форуме или сайте.Автор: 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 ...
Изменен: 10.09.2022
Читать сообщение на форуме или сайте.