Поиск
Автор: Жан Коштоян. Добрый день!
Прошу помочь с 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
Читать сообщение на форуме или сайте.Автор: Pankiller. Всем привет!
Такая задача:
Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку.
В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце.
То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров.
Так же необходимо чтобы была возможность количество менять в зависимости от задачи.
Изменен: 01.04.2020
Читать сообщение на форуме или сайте.Автор: mickeylikebeatle. Коллеги, приветствую.
Только начинаю путь к изучению макросов. Есть задача увязать таблицы и текст Word с Excel. Файлов excel много, в каждом из них таблицы и текст. Хочу связать word, чтобы по нажатию кнопки прогружались куски и таблицы из разных файлов excel, которые лежат на сетевом диске. Есть пару вопросов. Помогите прояснить, пожалуйста.
1. Если я делаю увязку через связь ячеек таблицы word с таблицей excel, как я могу посмотреть код своего каждого действия ...
Изменен: 23.05.2019
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было ...
Изменен: 21.06.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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.