Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Протянуть макросом ВПР и вывести результат поиска
 
#1
28.09.2013 22:16:13
Добрый вечер профи.
На форуме нашел подобную тему - приспособил макрос для своего файла.
Код
?
1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Range("С2:С92").FormulaR1C1 = "=VLOOKUP(RC[-1],Лист2!C[-2]:C[-1],2,FALSE)"
End Sub

Вношу данные в B8 Лист1 - нет результата в С8 Лист1 - выдает ошибку на ряд кода Range("С2:С92" ;) ...
Эксперименты не дали результата (поместил макрос сначала в "Лист 1", потом "Ета книга" ;)  - не работает
Помогите пожалуйста исправить мою ошибку в коде макроса.
Заранее огромное спасибо.
Изменено: Джонни_2013 - 28.09.2013 22:19:13
 
 
 
#2
28.09.2013 22:59:26
А всё потому, что в "С2:С92" буквы С - русские, а не латинские...
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
28.09.2013 23:07:35
Спасибо,EducatedFool
К сожалению результат появился для всего диапазона С2:С92 :(
Можно как-то законектить так, чтобы результат был только напротив ячейки В, куда вносится цифра для поиска?
Цыфра в B8 = результат только в С8,
Цыфра в B9 = результат только в С9 и так далее?
 
 
 
#4
28.09.2013 23:08:05
Мне, например, не понятно, что Вы хотели получить в итоге.
Если заменить в "С2:С92" С русскую на С английскую - код сработает при условии размещения его в "Лист1" (или "Лист2"), а не в "Эта книга".
А зачем Макрос1 - тоже не понятно.
 
 
 
#5
28.09.2013 23:11:29
Михаил Лебедев
Макрос1 не нужен - он уже удален
Переместил макрос в "Лист1"
Заменил на С английскую.
Проблема:
К сожалению результат появился для всего диапазона С2:С92  :(  
Можно как-то законектить так, чтобы результат был только напротив ячейки В, куда вносится цифра для поиска?
Цифра в B8 = результат только в С8,
Цифра в B9 = результат только в С9 и так далее?

ЦыфраЦифра
Изменено: Джонни_2013 - 28.09.2013 23:35:27
 
 
 
#6
28.09.2013 23:23:49
Используйте Target, а не Range. А диапазон используйте для указаний контролируемых ячеек.
 
 
 
#7
28.09.2013 23:38:16
Спасибо.
Переделал, но увы... не работает

Код
?
1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
Target("С8").FormulaR1C1 = "=VLOOKUP(RC[-1],Лист2!C[-2]:C[-1],2,FALSE)"
End Sub
 
 
 
#8
28.09.2013 23:47:06
Код
?
1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
        Target.Offset(0, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],Лист2!C[-2]:C[-1],2,FALSE)"
    End If
End Sub
 
 
 
#9
28.09.2013 23:47:56
Только лучше не формулу, раз у нас уже есть макрос, а искать на втором листе и подставлять сразу значение.
 
 
 
#10
28.09.2013 23:51:23
Спасибо. То, что надо.
 
 
 
#11
28.09.2013 23:55:41
Код
?
1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(, 1).FormulaR1C1 = "=VLOOKUP(RC[-1],Лист2!C[-2]:C[-1],2,FALSE)"
    End If
End Sub
 
 
 
#12
29.09.2013 00:01:59
Спасибо Юрий М и Kuzmich
Все работает отлично.
Не сочтите за наглость: Вы говорили, что можно обойтись без формулы(ВПР), если уже есть макрос .
Насколько это трудно реализовать?
 
 
 
#13
29.09.2013 00:13:20
Код
?
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
        With Sheets("Лист2")
            Set Rng = .Columns(1).Find(what:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole)
            If Not Rng Is Nothing Then
                Target.Offset(0, 1) = Rng.Offset(0, 1)
            End If
        End With
    End If
End Sub
 
 
 
#14
29.09.2013 00:17:16
Фантастика.
Очень большое спасибо за труды.
 
 
 
#15
29.09.2013 06:00:15
на всякий случай: приведенный код будет работать только с видимыми строками второго листа.
значения в скрытых строках (вручную или фильтром) - не найдутся.
ВПР работает иначе.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#16
29.09.2013 14:33:54
Всем спасибо огромное  за помощь.
Испытал сегодня данный макрос на большом файле.
Последнее 100% просьба о помощи:
Как в макросе от Юрий М прописать путь поиска. В макросе, что сейчас, это "Лист 2" в том же файле.
А нужно "Лист 2" в  C:\Documents and Settings\User0001295\Freemake\DSA.xls
Файл(Файл.xls), в котором есть макрос и в котором выводится результат поиска лежит в D:\QWE\Файл.xls
Насколько я понял нужно изменить путь в коде здесь:
Код
?
1
With Sheets("Лист2")
но у меня подстановки пути не привели к результату.
Помогите пож в последний раз.
 
 
 
#17
29.09.2013 17:46:34
Просмотрел подобные темы.
Нужно наверное использовать метод Set book .
Прикрутил к коду Юрия М:
Код
?
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
   With Set book = GetObject("C:\Documents and Settings\User0001295\Freemake\DSA.xls", "Excel.Sheets("Лист2"))
            Set Rng = .Columns(1).Find(what:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole)
            If Not Rng Is Nothing Then
                Target.Offset(0, 1) = Rng.Offset(0, 1)
            End If
        End With
    End If
End Sub


В данном случае я что-то явно исказил - снова ошибка при работе кода.
Помогите пожалуйста исправить ошибки.
Изменено: Джонни_2013 - 29.09.2013 17:47:48
 
 
 
#18
29.09.2013 17:52:35
Сначала нужно открыть нужную книгу, а уже затем обращаться к её листу. И вот КТО мешал Вам сразу сказать, что лист будет в другой книге?
 
 
 
#19
29.09.2013 18:01:00
Set book =Workbooks.Open(Filename:="C:\Documents and Settings\User0001295\Freemake\DSA.xls"
 
 
 
#20
29.09.2013 18:08:30
Изменил.
Ругается на End With. Убрал End With -ругается на Private Sub Worksheet_Change(ByVal Target As Range)
Код
?
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
    Set book =Workbooks.Open(Filename:="C:\Documents and Settings\User0001295\Freemake\DSA.xls"
            Set Rng = .Columns(1).Find(what:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole)
            If Not Rng Is Nothing Then
                Target.Offset(0, 1) = Rng.Offset(0, 1)
            End If
        End With
    End If
End Sub


И где в етом коде прописать Sheets("Лист2" ;)  файла DSA.xls?
Спасибо заранее.
Изменено: Джонни_2013 - 29.09.2013 18:09:00
 
 
 
#21
29.09.2013 20:22:06
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
    Set book =Workbooks.Open(Filename:="C:\Documents and Settings\User0001295\Freemake\DSA.xls"
        With book.Sheets("Лист2")
               Set Rng = .Columns(1).Find(what:=Target.Value, LookIn:=xlValues, lookAt:=xlWhole)
            If Not Rng Is Nothing Then
                Target.Offset(0, 1) = Rng.Offset(0, 1)
            End If
        End With
    End If
End Sub

Не забудьте в конце закрыть DSA.xls
 
 
 
#22
30.09.2013 12:25:00
Kuzmich Спасибо огромное.
 
 
 
#23
30.09.2013 12:36:56
Джонни_2013, тут есть неудобство: при КАЖДОМ изменении в столбце В будет открываться/закрываться вторая книга. Может быть есть смысл данные держать в этой же (первой) книге?
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...