Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 

Страницы: 1 2 3 4 5 6 7 След.
Поиск
Экспорт данных таблицы Excel в txt-файл с разбивкой по параметру, создание набора txt-файлов на основе таблицы Excel
Автор: RGE. Всем добрый день! Имеется необходимость выгрузить данные из сводной таблицы (для примера сделал таблицу жильцов) в виде txt-файлов с последующей разбивкой по одному из столбцов (по номеру дома). Подскажите пожалуйста, как это реализовать проще всего. Есть общее представление об экспорте в txt, но вот как именно по домам выгрузить не могу понять.
Изменен: 14 окт 2020
Читать сообщение на форуме или сайте.
Цикл открывающий файлы Excel и копирующий определенные ячейки в файл с кодом, Применение циклов
Автор: Spec. Добрый день! Есть задача: 1) Открывать файлы с помощью цикла 2) Копировать определенные ячейки из разных мест на листе. 3) Вставлять в список в книгу с кодом Macro.xlsm (ThisWorkbook) следующую пустую строку по столбцам А и B. Код не работает. Идет Run, потом пропадает окно с кодом, но VBE остается. То же самое с Листом ThisWorkbook, только серая область, без разметки. Sub KopirovanieIVstavkaVSpisok() Dim s As String, MyFiles As String, MyRange As String, MyRange2 As String, wb As Workbook...
Теги: VBA
Изменен: 2 окт 2020
Читать сообщение на форуме или сайте.
VBA макрос - Проставить "1" во все закрашенные ячейки на выбранном листе книги, Нужна помощь в написании кода для файла
Автор: a.ibragimov.f. Добрый день, уважаемые эксперты! Нужна помощь эксперта в макросах. К сожалению, сам допирать до рабочего кода буду долго, поэтому прошу о помощи Вас. Готов заплатить за рабочую реализацию 1000р. (Перевод с карты на карту) Данно: -Хитровыдуманная система, из которой можно выкачать файл Excel с закрашенными ячейками. -Файл, где необходимо производить анализ по тому, какие ячейки закрашены. Задача: 1) Сделать ячейку, в которой можно будет выбрать одно из названий присутствующих...
Теги: VBA
Изменен: 25 сен 2020
Читать сообщение на форуме или сайте.
VBA Если столбец содержит «Значение», то ячейка с заданным смещением (отступом) равна нулю Ø.
Автор: Vlad_Sm. Всем доброго дня! Возможно ли задать макросом следующие действия: Если в столбце «S» есть значение, содержащие в ячейке слова "CRATE", "WOODEN BOX", " RACK", "PLASTIC BAG", то от этой ячейки со смещением (↓1 →10) значение будет = нулю Ø. На примере файла во вложении : Столбец «S» (ячека S33) содержит "WOODEN BOX", необходимо чтобы ячейка (↓1 →10) это будет «AC34» была = нулю Ø и в такой же последовательности до крайнего значения столбца...
Теги: VBA
Изменен: 25 сен 2020
Читать сообщение на форуме или сайте.
получение из веб по изменяющейся ссылке
Автор: Александр. Доброго времени суток, друзья. Пытаюсь реализовать следующую задачу: нужно что бы при внесении ИНН в определенное поле в таблице эксель, в другие поля подставлялись данные ФИО директора и адрес организации из веб ресурса. Так как ссылка формируется путем статичного адреса и добавлением ИНН, она получается в каждом случае разная, а макрос упорно прописывает одну, статичную ссылку и при изменении ИНН и формировании новой ссылки, запрос из веб не изменяет данные. В приложении файл...
Изменен: 11 авг 2020
Читать сообщение на форуме или сайте.
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
Автор: Andrii Havryk. Ребята, все привет ! Помогите решить следующую ситуацию. Есть таблица определенных товаров. Как можно с помощью макроса выделить строки "пересорты" при условии: - Первые три слова и последние два в названии товаров совпадают (столбец С); - Значения в столбце F этих товаров в суме дают ноль. Для наглядности все строки и условия выделил в таблице. Хотелось бы выделить строки "пересорты" определённым цветом, для дальнейшего их анализа и удаления. Количество...
Теги: Макрос, VBA
Изменен: 3 авг 2020
Читать сообщение на форуме или сайте.
Как получить информацию из нескольких книг?
Автор: Максим. Всем добрый вечер, нужна Ваша помощь в написании макроса (сам мало знаком с VBA). Макрос должен открывать файл (файл excel), и копировать оттуда построчно данные, т.е. сначала скопировать первую строку, вставить ее в файл ...
Теги: VBA, Макрос
Изменен: 31 июл 2020
Читать сообщение на форуме или сайте.
Перебор ячеек диапазона с копированием каждой ячейки и вставкой в разные книги в папке
Автор: Spec. Добрый день. есть задача. 1) Из Excel файла Spisok с помощью цикла осуществляем перебор ячеек диапазона. Диапазон ("B2:B4). 2) Ячейку А2 из файла Spisok копируем и вставляем в файл по наименованию 1 в ячейку A2. 3) Ячейку А3 из файла Spisok копируем и вставляем в файл по наименованию 2 в ячейку А2. 4) Ячейку А4 из файла Spisok копируем и вставляем в файл по наименованию 3 в ячейку А2. Все это делается с использованием циклов. Проблема в одновременном переборе циклом диапазона ячеек...
Теги: VBA, Excel
Изменен: 5 июл 2020
Читать сообщение на форуме или сайте.
Список из номеров месяцев между двумя датами
Автор: Alexey795. Приветствую всех! Прошу посоветовать как красиво решить задачу. Может кто-то реализовывал подобное Введена дата начала и завершения контракта, нужно получить в ячейку список номеров месяцев. примеры: #2020/04/01# - #2020/06/30# - - - - - > {4,5,6} #2020/05/12# - #2020/05/30# - - - - - > {5} #2020/01/31# - #2020/05/01# - - - - - > {1,2,3,4,5} осложнение: #2020/12/05# - #2021/01/31# - - - - - > {12,1}
Теги: VBA
Изменен: 21 май 2020
Читать сообщение на форуме или сайте.
VBA: Взять значение из массива, по этому значению произвести поиск на листе
Автор: volkisreg. Пишу макросы давно но коряво и с костылями. Все это время выискивал на форумах подходящие куски кода и использовал в своих целях. Но сейчас время поджимает, а в работе с массивами я вообще не силен. Конечно со временем я разберусь, но сейчас всеже прощу натолкнуть в нужное русло ибо понимаю что это элементарно для знающих товарищей :) 1. Имеем лист где храниться список товара. У каждого товара есть свой уникальный код. 2. При работе макроса получаем массив со значениями продажи...
Теги: VBA
Изменен: 20 май 2020
Читать сообщение на форуме или сайте.
Ссылка на ячейку из ComboBox
Автор: chotop. Привет! Гуглил-гуглил, так и не нашел ответа. Есть UserForm с comboBox, и два листа sheet1 / sheet2 sheet2 Имя (данные для comboBox) Вася Петя Саша sheet1 пустые ячейки. Нужно записать в ячейку (A1, A10, A22 и далее) ссылку на значение из (sheet2) выбранную из comboBox, а не само значение в текстовом формате для того, чтобы при изменении ячейки на листе (sheet2) со списком имен изменялось значение на другом (sheet1). Как это сделать? A1: Саша A1: =sheet2!A3 with sheet1 .Cells.Range("A1")...
Теги: VBA
Изменен: 14 май 2020
Читать сообщение на форуме или сайте.
Правильно написать пользовательскую функцию для вычисления по математической формуле в VBA, Пыталась создать пользовательскую функцию, чтоб считать уравнение, но она работает некорректно.
Автор: akuts. Нужно, чтоб было, как на фото 1, а получается как на фото 2. Проблема в формуле для расчёта Y3 :  Y_three = Sqr(a + Abs(b * x)) неправильно считает для значений X<4, например, в ячейке F7 корень вообще получился отрицательным числом. Не могу понять, в чем ошибка. Буду благодарна за помощь. Excel профессиональный плюс 2019.
Теги: VBA
Изменен: 30 апр 2020
Читать сообщение на форуме или сайте.
Заполнение листов по адресу ячейки, Подскажите, существует ли подобный макрос
Автор: rrr2rrr. Добрый день! В книге Excel 85 листов одинаковой структуры (регионы РФ). Собрать данные с них умею - вставить оглавление PLEX и используя ДВССЫЛ и АДРЕС получить нужные значения Есть обратный вопрос. Заполнить определенные ячейки в определенных листах нужными мне значениями, которые я заранее подсчитал и выписал на отдельном листе. И вторая задача, более сложная - мне надо на каждый лист добавить новые строчки в нужном месте. Например, вставить между 11 и 12 строчкой еще 4 строчки...
Изменен: 28 апр 2020
Читать сообщение на форуме или сайте.
Нарастающий итог в Excel, Условие на изменение в ячейке
... минусовую сторону .   Так- то задача проста как две копейки. Но как это реализовать используя только три ячейки ? Предполагаю может быть на VBA ?  Очень прошу помогите . У самого никак не получается !    
Изменен: 9 апр 2020
Читать сообщение на форуме или сайте.
VBA Объединить каждые 25 строк из 80 тыс, Нужен правильный макрос
Автор: Pankiller. Всем привет! Такая задача: Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку. В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце. То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров. Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
Изменен: 1 апр 2020
Читать сообщение на форуме или сайте.
Выпадающий списко в userForm с уникальными значениями
Автор: qwt. Добрый день. Подскажите пожалуйста, как решить такую задачу\проблему. У меня есть список (на "листе1"). И мне нужно при вызове формы со второго листа ("лист2"), получать данный список, только с уникальными значениями. Нашел подходящий макрос, но он срабатывает, если форму вызываю именно с того же листа, где и список. А мне нужно, что бы список был на одном листе, а форма на другом. При ссылке на список, пытался явно прописать лист, но если прописывать лист, то получаю...
Теги: VBA
Изменен: 18 мар 2020
Читать сообщение на форуме или сайте.
как при помощи VBA получить электронный адрес учетной записи пользователя ?
Автор: S. Anton. коллеги, подскажите, пожалуйста, как средствами VBA получить адрес электронной почты учетной записи пользователя открывшего книгу excel ? для наглядности прикладываю картинку. Получить нужно ...
Теги: VBA, EXCEL, Макрос
Изменен: 30 янв 2020
Читать сообщение на форуме или сайте.
Нужна помощь , для написания макроса для копирования данных .
Автор: Hoakin. Мой алгоритм таков , но я не знаю как его можно организовать ... (т.к. только учусь языку). Нужно скопировать из 1 файла скопировать значения от жирного до жирного + некоторые значения копировать не нужно т.к. они считаются по формуле в другом документе . Вставить в другой документ эти значения , но поставщики могут менять  Во 2-м документе нужно сделать динамическую формулу для подсчета суммы  Для меня очень сложное задание  , кто может помогите пожалуйста ) 
Теги: VBA
Изменен: 27 янв 2020
Читать сообщение на форуме или сайте.
Проблема с кодом пользовательской функции VBA If Then Else, Проблема с кодом пользовательской функции VBA If Then Else
Автор: asdfg78. Ребята, помогите, пожалуйста. Имеется необходимость записать огромную функцию Если в пользовательскую функцию. Написала код, но он не работает, возвращает в ячейку 0. Где я совершила ошибку?( Public Function PaymentFl2In(Stp1, Stp2, Stp3, Stp4, Stp5, Stp6, Stp7, Com1, Com2, Com3, Com4, Com5, Com6, Com7, Min1, Min2, Min3, Min4, Min5, Min6, Min7, SPay) If SPay > Stp5 And (Stp1 * Com1 + (Stp2 - Stp1) * Com2 + (Stp3 - Stp2) * Com3 + (Stp4 - Stp3) * Com4 + (Stp5 - Stp4) * Com5 + (SPay...
Теги: VBA
Изменен: 9 дек 2019
Читать сообщение на форуме или сайте.
Пользовательская функция VBA "Определения скрыта ли строка", базовый VBA
... использовать в операторе СУММЕСЛИМН, как второе условия при суммирование; -Но код не работает, как должен, из-за того, что не понимаю синтаксис VBA, вот код:Function определятель(ByVal rCell As Range) As String If Rows(rCell).Height = False Then определятель = 1 Else определятель = 2 End If End Function -Так же хотел идти, через Hidden,...
Теги: VBA
Изменен: 1 дек 2019
Читать сообщение на форуме или сайте.
Отправка письма заранее созданному контакту Outlook VBA
Автор: Argo9. Добрый день, подскажите пожалуйста, как отправить письмо по outlook через vba, заранее созданному контакту. Имеется в контактах outlook контакт с массивом адресов, как в строку ".To" сказать взять этот контакт?(как ...
Изменен: 14 ноя 2019
Читать сообщение на форуме или сайте.
Несколько регулярных выражений для одной строки.
Автор: Argo9. Доброго времени суток. Подскажите кто сталкивался. Есть такой код. Sub XML_Replace() Dim s, Stroka2 As String Dim myRegExp As New RegExp With myRegExp .Global = True .IgnoreCase = False .MultiLine = False .Pattern = ">\d{10}\d{12}|>\d{13}\d{15}((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО\d{10}\d{12}ПРАВЛЕНО\d{13}\d{15}ПРАВЛЕНО((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}ПРАВЛЕНО
Изменен: 12 ноя 2019
Читать сообщение на форуме или сайте.
Не могу понять причину ошибки.
Автор: Argo9. Вылетает такая ошибка Run - time erroe '1004' Application - defined or ibject-defined error Функция то работает, то дает такую ошибку, закономерность я не выявил. Подсвечивает вот этот блок With wbTmp.PublishObjects.Add( _ SourceType:=xlSourceRange, Filename:=sF, _ sheet:=wbTmp.Sheets(1).Name, Source:=wbTmp.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With Подскажите в чем проблема? Бывает все работает, бывает нет. Непонятно. Function ConvertRngToHTM(bank...
Изменен: 12 ноя 2019
Читать сообщение на форуме или сайте.
Добавление изображение из буфера в image (Picture) VBA, Добавление изображение из буфера в image VBA
... то происходит вставка изображения из буфера БЕЗ экспорта изображения в качестве файла на компьютер. Хотел узнать как это сделать через VBA? Пробовал так (прикреплял код к нажатию на кнопку): Range (“A1:H8”). Copy Image1.Picture.SetFocus Application.SendKeys (“^V”) выдает ошибку что setfocus на picture не работает....
Изменен: 8 ноя 2019
Читать сообщение на форуме или сайте.
[VBA] Расчет значения ячейки при изменении соседней ячейки
... столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub Есть две проблемы: 1) В условии функции IIf не могу сделать разницу двух значений VBA начинает на меня "ругаться". А именно хочу записать в условии что-то в виде IIf(Intersect(cell, Range("C2:C10000")) - Intersect(cell, Range("D2:D10000")).......
Изменен: 28 окт 2019
Читать сообщение на форуме или сайте.
Вытащить нужные строки из накладных, работа с текстом
Автор: lilo295. Добрый день. Имеется файл, куда выгружены все накладные, нужно каким-то образом вытащить только строчки с наименованием, а всю лишнюю информацию убрать. Может можно как-то это сделать, или надо вручную все делать!? Файл с примером прикрепляю.
Изменен: 22 окт 2019
Читать сообщение на форуме или сайте.
Переименовать лист на основе значения ячейки
Автор: Jagig. Добрый день! Есть необходимость переименовывать лист по значению ячейки из другого листа (не текущего). У меня сейчас есть файл где со страница Главная переходит на лист с указанным именем (регионом) (по кнопке). Таких Листов около 20-ти. Они все шаблонные данные идентичные. Как можно "переименовывать лист по значению ячейки из другого листа (не текущего)." чтобы сократить кол-во листов регионов до одного. Кнопок будет также 20 на листе Главная. Может как то можно брать имя...
Теги: VBA
Изменен: 21 окт 2019
Читать сообщение на форуме или сайте.
Поиск и замена в XML через VBA
Автор: Argo9. Добрый день, подскажите, с XML в VBA раньше не работал, есть вопрос. Как средствами VBA в конкретных тегах заменить значение на другое во всем документе? Вроде задача не сложная ...
Изменен: 16 окт 2019
Читать сообщение на форуме или сайте.
Автофильтр по названию из предыдущего листа
Автор: Jagig. Добрый день! Подскажите, у меня разбивка по регионам, в каждом регионе по 4 группы различной информации. Каждый регион в итоге обращается к одному листу, допустим "Аутсорс". В данный момент прописываю автофильтр по критериям (равно) Пример: Sub Аутсорс_актюб() ActiveSheet.Select Sheets("Полный мониторинг").Visible = True ActiveSheet.Visible = False Sheets("Полный мониторинг").Select ActiveSheet.Range("B:B").AutoFilter Field:=2, Criteria1:="актюбинский"...
Теги: VBA
Изменен: 16 окт 2019
Читать сообщение на форуме или сайте.
Не получается формулу в макросе изменить на динамическую
Автор: Angelo125. Доброго времени суток!  Можете помочь в написании макроса В моем макросе я дал переменные к двум файлам.  Private sh_ассигнование As Workbook Private sh_погашение As Workbook Private sh_ассигнование As Workbook Private sh_погашение As Workbook Private end1 As Long Sub NPL_ФЛ_Рестр() 'Main макрос Call обзор_файла1 'Открывает окно где нужно выбрать файл 1 Call обзор_файла2 'Открывает окно где нужно выбрать файл 2 Call copypaste End Sub Private Sub обзор_файла1() result = Application...
Изменен: 15 окт 2019
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 6 7 След.
Наверх