Как решить? - Microsoft Office Excel

Artem_85 · 13.03.2012, 10:20

Всем добрый день!
Помогите решить одну задачку.
Выполнить поиск на Листе 1 в столбце В значений которые находятся на листе2 в столбце С и если есть 100% совпадение то на листе2 в столбце D выводить то что находится на листе1 в столбце E.
Заранее спасибо.

Watcher_1 · 13.03.2012, 10:31

Код для кнопки

Код:

Private Sub CommandButton1_Click()
    Dim myF As Range
    For i = 7 To Sheets(2).Range("C7").End(xlDown).Row
        Set myF = Sheets(1).Columns(4).Find(Sheets(2).Range("C" & i), , , xlWhole)
        If Not myF Is Nothing Then
            Sheets(2).Range("D" & i) = Sheets(1).Range("E" & myF.Row)
        End If
    Next
    MsgBox "Все"
End Sub

Artem_85 · 13.03.2012, 10:49

Огромное спасибо тебе.

Artem_85 · 13.03.2012, 10:54

Цитата:

Сообщение от Watcher_1

Код для кнопки

Код:

Private Sub CommandButton1_Click()
    Dim myF As Range
    For i = 7 To Sheets(2).Range("C7").End(xlDown).Row
        Set myF = Sheets(1).Columns(4).Find(Sheets(2).Range("C" & i), , , xlWhole)
        If Not myF Is Nothing Then
            Sheets(2).Range("D" & i) = Sheets(1).Range("E" & myF.Row)
        End If
    Next
    MsgBox "Все"
End Sub

а как сделать что бы он еще и по столбцу В выполнялся поиск?тоесть по двум столбцам было бы сто процентное совпадение.

Artem_85 · 13.03.2012, 11:16

Как добавить в код сравнение еще двух столбцов?

Watcher_1 · 13.03.2012, 12:12

По всем столбцам

Код:

Private Sub CommandButton1_Click()
    Dim myF As Range
    For i = 7 To Sheets(2).Range("C7").End(xlDown).Row
        Set myF = Sheets(1).cells.Find(Sheets(2).Range("C" & i), , , xlWhole)
        If Not myF Is Nothing Then
            Sheets(2).Range("D" & i) = Sheets(1).Range("E" & myF.Row)
        End If
    Next
    MsgBox "Все"
End Sub

Artem_85 · 13.03.2012, 12:45

Цитата:

Сообщение от Watcher_1

По всем столбцам

Код:

Private Sub CommandButton1_Click()
    Dim myF As Range
    For i = 7 To Sheets(2).Range("C7").End(xlDown).Row
        Set myF = Sheets(1).cells.Find(Sheets(2).Range("C" & i), , , xlWhole)
        If Not myF Is Nothing Then
            Sheets(2).Range("D" & i) = Sheets(1).Range("E" & myF.Row)
        End If
    Next
    MsgBox "Все"
End Sub

а как же сделать что бы только по двум столбцам ?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как решить задачу	Агнеша	Помощь студентам	2	08.03.2012 00:38
Как решить задачу?	Annneet	Общие вопросы C/C++	1	18.10.2011 19:19
[C++] Как решить пример ?	Divoha	Помощь студентам	6	27.06.2009 19:44
Ко всем кто может хоть как-то подсказать как решить проблему	porfonya	Microsoft Office Access	1	26.05.2009 17:38

13.03.2012, 10:49	#3
Artem_85 Пользователь Регистрация: 21.02.2012 Сообщений: 82	Огромное спасибо тебе.

13.03.2012, 11:16	#5
Artem_85 Пользователь Регистрация: 21.02.2012 Сообщений: 82	Как добавить в код сравнение еще двух столбцов?