vikttur, честно говоря я потратил уйму времени чтобы что то похожее найти в интернете, но так и не смог четко сформулировать..
Application.VLookup если содержит
Application.VLookup если содержит
20.09.2020 13:33:56
Ігор Гончаренко, работает!
Не пойму только каким образом , если есть такая возможность могли бы оставить комментарии? Спасибо огромное!
Изменено: |
|
|
Application.VLookup если содержит
20.09.2020 00:46:23
Задача подтягивать из второй таблицы в первую данные.
В файле примере я изменил всю ненужную к вопросу инфу звездочками, именно в таком виде данные таблицы приходят. Конкретно в этом примере таблица1 начинается с 63 строки, но может быть и 73, всегда по разному, поэтому я и определяю ее по условию(во вложении макрос где все есть). Загвоздка в том, что неккоректно отрабатывает функция Application.VLookup , в обычной формуле ВПР я могу добавить к просматриваему элементу "*" & & "*", чтобы искать вхождения этого элемента в строке. Как это повторить с Application.VLookup вот вопрос..
Изменено: |
|
|
Application.VLookup если содержит
Application.VLookup если содержит
19.09.2020 22:59:08
Доброго времени суток!
Есть таблица с наименованиями :
Так же есть таблица соответсвий - наименование и его позиция, но в данном случае наименования через запятую.
И все работает, но проблема в том, что месторасположение данных таблиц на листе может меняться, формулу каждый раз придется прописывать заного, поэтому принял решение написать код в VBA который бы мог искать таблицы по заголовкам,а потом подтягивал бы данные из 2 в 1 таблицу. Столкнулся с проблемой, что в первую таблицу данные подтягиваются не совсем корректо, файл пример прилагаю. Прошу помочь кто встречался с подобным, возможно мой вариант поиска координат таблиц не самый правильный, если есть идеи прошу поделиться.
Изменено: |
|||||||||||||
|
Поиск отправителя в Outlook используя Excel
Поиск отправителя в Outlook используя Excel
Поиск отправителя в Outlook используя Excel
29.08.2020 18:16:03
Доброго времени суток,
Есть ли возможность сделать макрос, который запускался бы из книги excel , открывал Outlook и фильтровался во всех входящих по адресату, которого я бы указал в определенной ячейке? нашел такой кусок кода, но как адаптировать под свои хотелки не пойму, опыта работы с Outlook objects нет.
Изменено: |
|||
|
Поиск топ 5 наибольших значений
Поиск топ 5 наибольших значений
ВПР с динамическим именем листа
ВПР с динамическим именем листа
ВПР с динамическим именем листа
ВПР с динамическим именем листа
ВПР с динамическим именем листа
Извлечения текста из ячейки
Извлечения текста из ячейки
Извлечения текста из ячейки
20.06.2018 11:13:32
Форумчане , доброго времени суток!
Подскажите, есть ли решение моего вопроса формулой, Необходимо преобразовывать исходные данные к виду: 77_10250 Данные могут быть в различном формате : Qw_77_10250 BSE77_10250 WWW_77_10250_234 WWW_77_10250_qwe234 Вариации могут быть абсолютно разными, но закономнерность все равно прослеживается . С первыми 2мя примерами справляется формула массива: =ПСТР(A4;МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99)));ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99))-МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(A4;СТРОКА($1:$99);1));СТРОКА($1:$99)))+1) но вот с 3 и 4 примерами возвращает вот такой результат : 77_10250_234 77_10250_qwe234
Изменено: |
|
|
Постраничное сохранение документа в формате PDF
26.04.2018 08:58:36
Форумчане, доброго времени суток!
Прошу подсказать что делаю не так. Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа. Есть следущий макрос : Sub savetopdf() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2) Next End Sub Update: Разобрался со всем, кому если нужно вот код: Sub savetopdf() Dim DiagramServices As Integer DiagramServices = ActiveDocument.DiagramServicesEnabled ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150 Dim j As Integer For j = 3 To 83 Application.ActiveWindow.Page = Application.ActiveDocument.Pages.ItemU(j) Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "C:\" & Left(ActiveWindow.Page.Name, 2) & ".pdf", visDocExIntentPrint, visPrintCurrentPage, 46, 46, False, True, False, False, False Next j ActiveDocument.DiagramServicesEnabled = DiagramServices End Sub
Изменено: |
|
|
Поиск значения ячейки в диапазоне
20.03.2018 15:36:25
Jack Famous, интересная функция, спасибо!
|
|
|
Поиск значения ячейки в диапазоне
Поиск значения ячейки в диапазоне
Поиск значения ячейки в диапазоне
20.03.2018 15:06:38
Добрый день форумчане.
Прошу подсказать с формулой. Имеются 2 столбца, необходимо найти значение из 2 столбца в диапазоне первого и напротив него написать это значение, Пробовал через =СУММПРОИЗВ(ДЛСТР( , но ничего не получилось, если кто сталкивался прошу помощи. Пример вкладываю. |
|
|
Проверка ячейки на наличие в ней текста, Помогите разобраться!
Проверка ячейки на наличие в ней текста, Помогите разобраться!
Проверка ячейки на наличие в ней текста, Помогите разобраться!
Проверка ячейки на наличие в ней текста, Помогите разобраться!
Проверка ячейки на наличие в ней текста, Помогите разобраться!
Проверка ячейки на наличие в ней текста, Помогите разобраться!
01.02.2018 09:39:58
|
|||
|
Проверка ячейки на наличие в ней текста, Помогите разобраться!