Поиск
Автор: Ильяrc. Здравствуйте! Помогите пожалуйста с кодом он должен по значениям в столбике С высчитывать сумму в определенном диапазоне и делать разницу полученных значений и предыдущих потом с каждым шагом увеличивать диапазон суммирующих значений и т.д. до половины количества значений в столбике С. значения С заполняются индивидуально и не имеет зависимостей в отличии от шага В
сам код:
Sub gg()
Dim Massive As Range
Dim G As Double 'задаем форматы значений'
Dim N As Double
Dim ...
Изменен: 25.11.2023
Читать сообщение на форуме или сайте.Автор: MZ_PLANET. Друзья, мой опыт не позволяет мне сделать макрос. Необходимо переносить значения ячеек слева в горизонтальный порядок справа (окрашенные строки в примере). Каждая позиция отдельно. Если есть такая возможность макросом сделать, можете подсказать пожалуйста?
Изменен: 17.11.2023
Читать сообщение на форуме или сайте. ... документации сопрячь это дело с VBA? Например как функционал надстройки ProXL ...
Изменен: 13.11.2023
Читать сообщение на форуме или сайте. ... между двумя открытыми приложениями использую VBA через функцию Getobject.
Для примера ...
Изменен: 24.10.2023
Читать сообщение на форуме или сайте. ... .
Это своеобразное продолжение темы "VBA выборочное копирование столбцов в зависимости ...
Изменен: 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
Читать сообщение на форуме или сайте.Автор: lilo295. Добрый день.
Помогите в написании макроса.
Необходимо из нескольких файлов excel в которых находятся одинаковые таблицы с разными значениями собрать данные в 1 файл excel.
Вариант 1: осуществить поиск по строке №6 по названию ячейки и определить столбец и вставить данные с 7 строки и до конца со всех файлов в 1 файл и на один лист. Поиск колонок: Наименование, артикул, цвет и последующая вставка столбцов в 1 файл, поиск нужно произвести во всех файлах.
Заранее благодарствую!
Изменен: 18.04.2023
Читать сообщение на форуме или сайте. ... никак не хочет работать в VBA, даже после обработки макрорекордером – вылетает ...
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.Автор: boberchik. Ребята, всем привет! Помогите доработать макрос. Я его нашел на просторах интернета, добавил к своей Книге - работает, но есть нюансы.
Изначальная задача: при открытии Альфа-Книги необходимо в фоновом режиме открыть все Книги в Папке, сохранить изменения и закрыть.
Тестовый запуск показал, что файлы открываются, сохраняются и закрываются нормально. Но только до тех пор, пока не случается ситуация, когда один из файлов в Папке уже кем-то открыт. Тогда работа макроса ...
Изменен: 23.03.2023
Читать сообщение на форуме или сайте.Автор: Dzhode -. Доброй ночи, форумчане.
Возник вопрос по использованию RegEx.Execute
сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства...
Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : "Машина KAMAZ А101СЕ178". Диапазон к примеру используется "A".
я могу только проверить, но не ...
Изменен: 02.02.2023
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 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 макрос скрипт который бы сохранял ...
Изменен: 03.11.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
Читать сообщение на форуме или сайте. ... . Добрый день.
Необходим парсер на VBA (excel, макрос) highchart графика
https ...
Изменен: 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
Читать сообщение на форуме или сайте.Автор: BUCK. Всем добрый день!
Очень прошу вас помочь в создании макроса для переноса уникальных данных из одной книги в другую, так как макросами владею не сильно. Пример приложил в файле, для простоты Лист=Книга.
Допущения следующие:
Исходный файл "Книга 2", который выгружается из открытого источника, и куда постоянно добавляются данные в верхнюю часть таблицы, а также обновляются существующие данные
"Книга 1" - рабочий файл, в который мне необходимо перенести новые ...
Изменен: 09.09.2022
Читать сообщение на форуме или сайте. ... . Сохранение происходит через .save.
1. Vba сохраняет изменённые файлы не с ...
Изменен: 06.09.2022
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, стоит задача составить макрос для копирования данных с одного листа по критериям в другой. На просторах интернета нашел похожую, но все равно иную и попытался этот макрос переделать по нужную мне задачу. И вот он вроде бы работает, но криво. Прошу помощи разобраться. Сама задача звучит так: Нужно чтобы данные с листа 2 копировались на лист 1 по критерию в столбце С. Подобных строк в листе 2 будут около 250, а листе 1 зависит от заказа. Sub Копирование()
...
Изменен: 22.08.2022
Читать сообщение на форуме или сайте.Автор: twistd. Добрый день. Необходимо при изменении значения в ячейках столбца1 (Таблица2[Столбец1]) преобразовать строку с формулами в значения. При выполнении макроса цикл не заканчивается и уходит в ошибку.
Помогите подкорректировать макрос.Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("Таблица2[Столбец1]")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range(ActiveCell, ActiveCell.End ...
Изменен: 14.07.2022
Читать сообщение на форуме или сайте.Автор: Alexander Kruglov. Привет друзья, есть умная таблица (прайс-лист) примерно 500 строк и 20 колонок, вся она создана на основе данных других с др листов. Обновляю я ее протягиванием и выглядит примерно так:
SKU ID NAME QTY тд 12323 HJWW001,HJWW003 text 5 text SKU ID NAME QTY тд 12323-HJWW001 HJWW001 text 5 text 12323-HJWW003 HJWW003 text 5 text
Я нашел код, который работает, но у него есть минусы, поэтому прошу помощи в доработке
1. самое главное он очень сильно ...
Изменен: 03.07.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии время событий (убраны из файла-примера, оставил только дату и время) приходит в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00 (наша первая минута ночи 00:01 у них идёт как 12:01) — тут проблема в том, что точно так же обозначается первая минута после полудня. То есть, дальше часы ночного/утреннего времени идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня). И возникает путаница во ...
Изменен: 16.06.2022
Читать сообщение на форуме или сайте.Автор: SRN. Добрый день, прошу профи подсказать где ошибка в коде (собрал с разных источников).
Задача: запустить рассылку сообщений. У каждого электронного адреса, уникальная тема и текст сообщения.
Сейчас он работает, но создает черновик только последнего адреса.
Dim objOl As Object
Dim objMail As Object
Dim sSignPath As String
Dim i As Long
On Error GoTo 2
Set objOl = CreateObject("Outlook.Application")
2:
If objOl Is Nothing Then MsgBox "Не удалось запустить OUTLOOK для ...
Изменен: 16.06.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии приходят события в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00
2) дальше идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня).
3) далее снова 01:** — 11:** (что соответствует «нашим» 13:** — 23:**)
Строки (события) идут в том порядке, в каком они происходили (сверху вниз от новых и в историю) — иначе вообще было бы не разобрать что за чем следует (и что было до полудня, а что было после ...
Изменен: 15.06.2022
Читать сообщение на форуме или сайте.Автор: sekutor. Вcем привет.
Cтолкнулcя c задачей, которую пытаюcь решить c помощью макроcа.
Еcть файл X.xlsb, в котором 100 вкладок: "АВ01", "АВ02", ..., "АВ50" и "АC01", "АC02", ..., "АC50".
Нужно cоздать 50 файлов c именами "X01", "X02", ..., "X50", в каждом из которых будет две вкладки: "АВ01" и "АC01" в файле "X01", "АВ02" и "АC02" в файле "X02& ...
Изменен: 07.06.2022
Читать сообщение на форуме или сайте.Автор: Никита Васильев. Application.ScreenUpdating = False
Dim table As Worksheet
Dim rw As Integer
Dim x As Integer
Set table = Worksheets("Табель")
For rw = 1 To 10 Step 1
For x = 2 To 10 Step 1
If Worksheets("Источник").Cells(rw, 1) = CDate(Worksheets("Выбор сотрудника").Range("B2")) _
And Worksheets("Источник").Cells(rw, 4) = CStr(Worksheets("Выбор ...
Изменен: 01.06.2022
Читать сообщение на форуме или сайте.Автор: Sniaper. Написал макрос который отслеживает изменения значений в определенном диапазоне. В случае обнаружения переименовывает папки в соответствии с данными ячеек. Проблема в том, что юЗвери теперь будут заполнять данные не вручную, а формулой, скрип из-за этого не подхватывает изменения в ячейках. Что посоветуете использовать? (холодное оружие не в счет)
pass: 123
Изменен: 22.05.2022
Читать сообщение на форуме или сайте.Автор: Дмитрий Филатов. Добрый день, друзья
Исходные данные:
Пример во вложении.
На листе "Назначение исполнителей" в "Таблица база" имеются общие исходные данные о заказе. В "Таблице 1,2 и 3" Нужно назначить исполнителей этого заказа. Руководитель производства, в зависимости от количества изделий в заказе, имеет возможность отдать заказ 9-м исполнителям по каждому цеху. Таким образом для формирования базы данных по заказам в работе у конкретного исполнителя ...
Изменен: 28.03.2022
Читать сообщение на форуме или сайте.