Поиск
Автор: Жан Коштоян. Добрый день!
Прошу помочь с Excel VBA. У меня excel 2010.
На листе "Лист1" в ячейке R7C53 записана формула массива:
{=НАИМЕНЬШИЙ(ЕСЛИ(ДВССЫЛ($AZ$7 )>=$AX$7;ДВССЫЛ($AZ$7));1)}
Она вычисляет минимальное значение из диапазона записанного в R7C52 превышающее расчетное значение в ячейке R7C50.
Алгоритм действий:
1. Вычисляем сечение клапана (Высота*ширину). Записываем в ячейку R7C50;
2. В диапазоне $AW$6:$AW$36 (в макросе записано в стиле R1C1) записаны максимальные ...
Изменен: 31.08.2022
Читать сообщение на форуме или сайте.Автор: Oleg K. Здравствуйте!
Новичок, и не могу разобраться как написать код.
Необходимо написать макрос VBA для Excel таблицы состоящей из перечня оборудования и календарного графика, где в календарном графике надо проставлять текстовые значения с определённым шагом в зависимости от исходного значения.
Задача:
1. Поиск в диапазоне строки (пример С5:AG5) текстового значения "то2" "то3" "то4" "то5" (далее по тексту "Значение")
2. При обнаружении ...
Изменен: 22.10.2021
Читать сообщение на форуме или сайте.Автор: aroz. Добрый день, искал в интернете подобное, но всё не то, возможно даже не знаю как правильно формулировать вопрос
Есть папка с файлами excel, ~10.000 файлов, в каждом по 150 строк, в строках повторяются названия - для каждого своя сумма, нужно сделать, чтобы повторений не было и каждую сумму сложить в единую, на словах ничего не понятно, поэтому делаю пример и прикладываю файл с примером (1 лист - исходная база, 2 лист - то, что должно получится)
Исходная база:ДатаДокДатаСостНаим№ ...
Изменен: 20.07.2021
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human".
В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту.
Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение ""
Долго гуглил информацию по поводу обхода ...
Изменен: 23.10.2020
Читать сообщение на форуме или сайте.Автор: Maxim. Доброго времени суток эксперты, столкнулся с задачей необходимости создания множества типовых документов с различными данными в определенных местах, это проблема решается добавлением в ворд документ полей в которые будет вноситься информация из excel файла с помощью макроса. На форуме "cyberforum.ru" 10 лет назад было предложено решение которое соответствует моей задачи - https://www.cyberforum.ru/vba/thread1072655.html , но разобраться с кодом я так и не смог.
1 ...
Изменен: 23.09.2020
Читать сообщение на форуме или сайте.Автор: Ranker Dark. На странице википедия есть несколько таблиц. И таких страниц несколько. Структура всех таблиц одинакова.
Я могу и вручную скопировать все таблицы, но они постоянно обновляются и каждый раз копировать одни и теже таблицы, с новыми данными, немного запарно.
Знаю, что есть способ парсить данный в Excel, но не знаю как. Не подскажете, пж.
Изменен: 17.09.2020
Читать сообщение на форуме или сайте.Автор: Walkish. Доброго времени суток,
Есть ли возможность сделать макрос, который запускался бы из книги excel , открывал Outlook и фильтровался во всех входящих по адресату, которого я бы указал в определенной ячейке?
нашел такой кусок кода, но как адаптировать под свои хотелки не пойму, опыта работы с Outlook objects нет.
Sub getmail()
Dim olApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
'Dim msg As Outlook.MailItem
Dim ...
Изменен: 29.08.2020
Читать сообщение на форуме или сайте.Автор: Salva. Привет!
Есть макрос 1, который фильтруется в сводной таблице "Продажи" по условию ячейки В2 на листе "расчет" (код ниже). Выбрал нужный город - подтянулась история продаж. Красота - не то слово.
Нюанс в том, что макрос фильтруется только по названию городу. Но по мимо прочего, у каждого города есть свой код склада. И помимо фильтрации по городу, нужна фильтрация в сводной таблице по нужному коду склада (лист матрица). Для примера город Москва, в сводной ...
Изменен: 03.04.2020
Читать сообщение на форуме или сайте.Автор: Pankiller. Всем привет!
Такая задача:
Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку.
В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце.
То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров.
Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
Изменен: 01.04.2020
Читать сообщение на форуме или сайте.Автор: panchuga. Всем привет.
Буду очень признательна за помощь в выполнении задания ниже:
Задания:
1) На листе 'client_data' представлены данные по продажам (в штуках) от клиента в разрезе торговых точек и продуктов (SKU) за сентябрь 2019 г.
На листе 'products' - справочник продуктов, где клиентским кодам однозначно сопоставлены коды L'Oreal (артикул 'Prod_code_LOR' и ШК 'EAN_LOR').
На листе 'stores' - справочник торговых точек, где клиентским кодам однозначно сопоставлены коды L ...
Изменен: 18.10.2019
Читать сообщение на форуме или сайте.Автор: mickeylikebeatle. Коллеги, приветствую.
Только начинаю путь к изучению макросов. Есть задача увязать таблицы и текст Word с Excel. Файлов excel много, в каждом из них таблицы и текст. Хочу связать word, чтобы по нажатию кнопки прогружались куски и таблицы из разных файлов excel, которые лежат на сетевом диске. Есть пару вопросов. Помогите прояснить, пожалуйста.
1. Если я делаю увязку через связь ячеек таблицы word с таблицей excel, как я могу посмотреть код своего каждого действия ...
Изменен: 23.05.2019
Читать сообщение на форуме или сайте.Автор: ShadowIGN. Приветствую друзья. Не могу разобраться с ошибкой при нажатии на кнопку в форме.
Лист1 ====> Отдел кадров ====>(Выбираете любую должность) ===> Показать всех людей в этой должности
Изменен: 08.05.2019
Читать сообщение на форуме или сайте.Автор: Sam977. И так... У меня есть задание на создания макроса, который будет проверять значения полей на их правильность и выводить сообщение если в нем есть ошибка, или ошибки нет. У меня есть вопрос по поводу того как соединить эти две задачи.. Этот макрос дает возможность увидеть есть ли ошибка в данных полях, но мне нужно еще что бы оно показывала если нет ошибки.
После запуска макроса если есть ошибка в нескольких полях, то он выводит только крайнюю ошибку, а все сразу не выводит. ...
Изменен: 16.01.2019
Читать сообщение на форуме или сайте.Автор: fangbeat. Добрый день.В прилагаемом файле мне нужно чтобы из листа Свод.таблица, выбирались данные из столбика B(название и номер оборудования) и О(итог рабочее время) и переносились в лист4, соответственно. Т.е. Мельницы 4 стадия, номер 24 её итоговое рабочее время из столбца О переносилось в ячейку С43 на листе4.
Оплата 400 р. Желательно на карту.
Заранее спасибо!
Изменен: 28.06.2018
Читать сообщение на форуме или сайте.Автор: fangbeat. Добрый день. Подскажите пожалуйста как мне поступить с проблемой. В прилагаемом файле мне нужно чтобы из листа Свод.таблица, час, делалась выборка по названию и номеру оборудования и число часов в общем итоге переносилось на соответствующее оборудование в таблице на листе 4. Переведенные данные я буду использовать в дальнейших расчетах.
Заранее спасибо всем кто поможет мне с данной проблемой.
Изменен: 28.06.2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было ...
Изменен: 21.06.2018
Читать сообщение на форуме или сайте.Автор: PantileevAndrey. Добрый день! Помогите пожалуйста! Нужно написать макрос который меняет дату в сводной таблице
с помощью записи макроса получилось это:ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Month Year]& ...
Изменен: 16.04.2018
Читать сообщение на форуме или сайте.Автор: pluto21. Добрый день
Требуется написать макрос, который подсчитывает число вложений.
Алгоритм.
Если количество листов 1 или 2, то конверт е65.
От 3 до 10 (включительно) с4.
Пример, если вложений 152 штуки. То будет 15 конвертов c4 по 10 вложений и один е65 с 1 вложением.
Если 156, то 15 с4 (10 вложений) и 1 с4(6 вложений)
Таблицу для примера прилагаю. По данным листа Таблица, нужно заполнять лист Результат
Бюджет 500 рублей.
Изменен: 14.12.2017
Читать сообщение на форуме или сайте.Автор: Troglodit. Доброго времени суток.
С толкнулся с такой проблемой.
У меня Excel 2013.
Я создал кнопку которая должна включать/выключать отображение общих итогов строк в сводной таблице.
Подключил к ней доработаный макрос созданный макрорекордером.
Sub swColumnGrand()
Dim Check As Boolean
Check = ActiveSheet.PivotTables("СводнаяТаблица2").ColumnGrand
'MsgBox (Check)
If Check Then
ActiveSheet.PivotTables("СводнаяТаблица2").ColumnGrand = False 'Эта ...
Изменен: 26.07.2017
Читать сообщение на форуме или сайте.Автор: next777pro. Нужно цифры, которые есть в столбце и считаются путем сжатия исправить в функции следующее
1) соединять в тире только если три и более, в количестве двух и одного не соединять через тире
пример 1, 2, 4-7, 11, 12, 22-45
2) убрать в конце лишние пробелы и запятые
Function Sgatie(диапазон As Range) As String
Dim i&, j&, a()
a = диапазон.Value
j = 1: Sgatie = a(1, 1)
For i = 2 To UBound(a, 1)
If a(i, 1) = a(i - 1, 1) + 1 Then
j = j + 1
ElseIf j = 1 Then
...
Изменен: 27.05.2016
Читать сообщение на форуме или сайте.