Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
аналог ВПР в VBA одной строкой
 
#1
20.01.2014 19:17:04
Добрый день уважаемые!
Суть проблемы в следующем:

Имеется UserForm с различными элементами. После заполнения данные из UserForm заносятся в соответствующие ячейки последней строки Листа2.
Однако в столбцы C и D необходимо подтянуть данные из столбцов  D и Е Листа3, в которых значение в столбце В соответствует значению в Combobox (FIO).

Вот кусок кода, где вместо ВПР(FIO.value;Лист3!$B$2:$E$10;3 или 4;0) надо вставить данные из столбцов  D и Е Листа3, которые соответствуют значению
Код
 With Sheets("Лист2")
            Dim LastRow As Long
            LastRow = .Cells(Rows.Count, "B").End(xlUp).Row + 1
            .Cells(LastRow, "B").Value = Me.FIO.Value
            '.Cells(LastRow, "C").Value =ВПР(FIO.value;Лист3!$B$2:$E$10;4;0)  
       '.Cells(LastRow, "D").Value =ВПР(FIO.value;Лист3!$B$2:$E$10;3;0)  
            .Cells(LastRow, "E").Value = Me.DTPicker2.Value   
            .Cells(LastRow, "F").Value = Me.DTPicker3.Value   
            .Cells(LastRow, "G").Value = Me.DTPicker3.Value - Me.DTPicker2.Value    
      .......................   
End With
Подскажите пожалуйста как это можно сделать, если вообще можно?
Изменено: ts-79 - 21.01.2014 13:45:12
 
 
 
#2
20.01.2014 19:44:39
Запишите вставку формулы макросом. А потом замените на значение.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
20.01.2014 20:22:59
как вариант - вызов WorksheetFunction.Lookup
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
20.01.2014 20:52:41
Цитата
WorksheetFunction.Lookup
Vlookup :)
 
 
 
#5
20.01.2014 21:20:51
точно
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
20.01.2014 22:01:36
.Cells(LastRow, "C" ).Value = "=VLOOKUP(FIO.value;Лист3!$B$2:$E$10;4;0) "
 
 
 
#7
20.01.2014 22:04:28
Бонифайций, тогда уж по всем правилам надо(.Value не будет вычислять формулу, FIO.value - должно быть экранировано)
Код
.Cells(LastRow, "C" ).Formula = "=VLOOKUP(" & FIO.value & ",Лист3!$B$2:$E$10,4,0)"
.Cells(LastRow, "C" ).Value =  .Cells(LastRow, "C" ).Value
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#8
21.01.2014 06:50:15
Код
.Cells(LastRow, "C" ).Formula = "=VLOOKUP(" & FIO.value & ",Лист3!$B$2:$E$10,4,0)"
.Cells(LastRow, "C" ).Value =  .Cells(LastRow, "C" ).Value
Выдает ошибку #ИМЯ?

Цитата
как вариант - вызов WorksheetFunction.Lookup

Этот вариант думал применить если не получится в одну строчку.
Добавить дополнительных 2 невидимых Textboxа, в которые прописать Application.WorksheetFunction.VLookup. А потом их значения выводить как все другие.
 
 
 
#9
21.01.2014 11:46:51
У меня никаких ошибок не выдает. Ошибку #ИМЯ! может выдать как раз в том случае, если Вы воспользовались советом Бонифаций и использовали свойство .Value.

Приложите свой пример, в котором эта ошибка появляется.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#10
21.01.2014 13:40:18
Цитата
Приложите свой пример, в котором эта ошибка появляется.
Спасибо за помощь. Решение нашел через Find.

Код
.Cells(LastRow, "C").Value = Sheets("Лист3").Range("B2:B10").Find(FIO.Value).Offset(, 3).Value
.Cells(LastRow, "D").Value = Sheets("Лист3").Range("B2:B10").Find(FIO.Value).Offset(, 2).Value
Код
На всякий случаю прикладываю файл.
Изменено: ts-79 - 21.01.2014 13:44:49 (перезалил файл)
 
 
 
Страницы: 1
Читают тему
Наверх