|
|
Другие темы раздела | |
VBA Как создать макрос для проверки файлов поврежден вирусом Петя
https://www.cyberforum.ru/ vba/ thread2026573.html Подскажите Как создать макрос для проверки файлов поврежден вирусом Петя или может у кого есть. Необходимо проверить комп и удалить(или переместить в отдельную папку) поврежденные файлы. |
Перенос данных между таблицами VBA Помогите пожалуйста написать макрос, задача такая : есть 2 таблицы (книги), нужно из одной таблицы(книги 1) скопировать данные одного столбца в другую таблицу(книгу 2). При этом книги имеют следующий вид: a 1 g 7 b 2 k 9 c 3 Книга 1 |
VBA Не сразу отрабатывает правило условного форматирования
https://www.cyberforum.ru/ vba/ thread2026541.html Есть строка, которая передается и используется как сериализатор скопа правил. Потом по ней идет восстановление правила. Раньше все работало, но с кучей танцев и магическими ритуалами (восстановление как и само описание правила - сложная вещь, которая отрабатывает на одном компьютере, но совершенно отказывается работать на другом - где из-за ", и ;" где-то из-за "TRUE и ИСТИНА" где-то из-за "OR и... |
VBA Сохранение автофигур с листа
https://www.cyberforum.ru/ vba/ thread2026469.html Здравствуйте форумчане. Подскажите решение непростого вопроса. Имеется макрос - сохранения всех диаграмм на листе - в папку (в формате PNG). Как заставить этот макрос сохранять не все диаграммы с листа, а все автофигуры с листа в формат PNG ? |
VBA Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги Sub Zagruzka_dannyh() UserForm1.Label117.Visible = False UserForm1.Image48.Visible = False Location = "T:\Rik\PS\ЛПА\Выдача нарядов" Dim sShName, sDiap As String, sAddress As String, vData UserForm1.Label60.Caption = UserForm1.Controls("CB" & Uch).Caption 'показ смена UserForm1.Label64.Visible = True |
VBA Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги Sub Zagruzka_dannyh() UserForm1.Label117.Visible = False UserForm1.Image48.Visible = False Location = "T:\Rik\PS\ЛПА\Выдача нарядов" Dim sShName, sDiap As String, sAddress As String, vData UserForm1.Label60.Caption = UserForm1.Controls("CB" & Uch).Caption 'показ смена UserForm1.Label64.Visible = True https://www.cyberforum.ru/ vba/ thread2026454.html |
VBA Макрос определения размеров фотофайла
https://www.cyberforum.ru/ vba/ thread2026451.html Доброе утро, господа программисты. Помогите разобраться. У меня есть код, работающий как функция - суть которого в извлечении размеров картинки JPG, лежащей по определенному адресу. Как заменить эту пользовательскую функцию - на макрос (прицепленный на кнопку) ? Function TimeFilms(ByVal sFilePath) As String Dim objShell As Object Dim objFolder As Object |
VBA: Библиотека/класс для работы с окнами - ищу VBA Добрый день! Подскажите, плиз! Столкнулся с работой с окнами в Windows. Изучаю WindowsAPI: FindWindow, GetWindowText, EnumChildWindows и т.п. Процесс идет, но долго. Подумал, наверняка ведь есть уже готовое какое-нибудь решение - какая-нибудь библиотека, которую нужно подключить, и оперировать окнами как объектами? И не изучать каждую функцию в отдельности. Официальная или... |
VBA Вставка рисунка в Excel используя путь Добрый день, подскажите каким образом можно массово вставить картинки в Excel в столбец C используя путь к файлу. https://www.cyberforum.ru/ vba/ thread2026150.html | VBA Определение восстановленности файла Как отследить, что файл открыт как ""?! может есть нормальная тема/флаг кроме как считывать текст заголовка окна? https://www.cyberforum.ru/ vba/ thread2026094.html |
VBA Получение данных из 3х столбцов с занесением в 4 - VBA Доброго времени суток уважаемые программисты. Нужна Ваша помощь в написании макроса. Есть некая таблица (в аттаче файл) столбцов и строк в ней может быть сколь угодно (в примере, я взял 17 строк и 5 столбцов). Мне нужно из 3х столбцов 1) Кол.во кодов 2) Серийник 3) Код (1 лист, помечены серым цветом), получить данные и занести в новый созданный столбец (лист 2, пример готового варианта). Чтобы... |
VBA Как измерить длину и ширину конкретной ячейки Доброго времени суток, форумчане. Подскажите - как измерить длину и ширину конкретной ячейки? (Я ввожу ее адрес, жму на кнопку и получаю длину и ширину указанной ячейки.) https://www.cyberforum.ru/ vba/ thread2026016.html |
0 / 0 / 0
Регистрация: 11.08.2017
Сообщений: 10
|
|
13.08.2017, 23:46 [ТС] | 0 |
Усовершенствованный VLOOKUP на VBA - VBA - Ответ 1068563313.08.2017, 23:46. Показов 4225. Ответов 10
Метки (Все метки)
Ответ
Добрый вечер. Прикладываю файл с тем макросом что имеется. Тот макрос, который нужно изменить называется MultipleSearch. Я в нем закомментировал весь блок который для вас не важен, чтобы он вас не сбивал с толку.
Во всем столбце J на листе Accounting output результаты от этого макроса, кроме J41:J43. Эти ячейки я отформатировал и задал туда правильный результат. Макро берет номер счета с листа Accounting output, столбец D, сверяет его с листом KBSWG столбец A, и если они совпадают возвращает значение с листа KSWG столбец H. Правда файл пришлось сильно почистить так как можно заливать только до 100кб, и макро отправляю отдельно, так как файлы с макросами тоже нельзя добавлять. Буду очень признателен за помощь. Спасибо! Вернуться к обсуждению: Усовершенствованный VLOOKUP на VBA VBA
0
|
13.08.2017, 23:46 | |
Готовые ответы и решения:
10
Vlookup (ВПР) на VBA Есть ли в VBA оператор, который работает как VLOOKUP ну или Index и Match? Vlookup - 2,3,4 и т.д. найденнные значения VLookup с параметрами через переменные из значений функции |
13.08.2017, 23:46 | |
13.08.2017, 23:46 | |
Помогаю со студенческими работами здесь
0
Ввести формулу VLOOKUP в первую отфильтрованную строчку Макрос для сравнения данных в двух столбцах, вместо vlookup Команда Vlookup Усовершенствованный UPS |