|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.10.2009, 10:13 | #1 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Поиск с полным совподением.
Всем день добрый !
Есть код. With opWb For i = 4 To .Cells(Rows.Count, 35).End(xlUp).Row If .Cells(i, c) = "" Then GoTo m2 For l = 1 To 4 Set x = Bz.Sheets(l).Columns("A:B").Find(wh at:=.Cells(i, 35)) If Not x Is Nothing Then Bz.Sheets(l).Cells(x.Row, 7) = .Cells(i, c): GoTo m2 Next l m2: Next i End With какой параметр функции Find надо поставить чтобы он выбирал только при полном совподении? А то он выбирает если дажеж 3 первых символа совподают а остальные 2 нет !!! Все значений числовые. 5-значений. |
13.10.2009, 10:24 | #2 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Читаем справку по методу Find:
Цитата:
Код:
|
|
13.10.2009, 10:27 | #3 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Спасибо за ответ !
Теперь буду знать! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поиск | spree | Microsoft Office Excel | 22 | 16.11.2009 15:08 |
экспорт отчетов аксесс в эксель с полным форматированием | kate158 | Помощь студентам | 1 | 11.03.2009 17:52 |
поиск | Азамат | Microsoft Office Excel | 7 | 18.06.2008 13:44 |
ПОИСК | FIIR | БД в Delphi | 3 | 16.06.2008 16:06 |
Поиск В бД | Старик_Романыч | БД в Delphi | 5 | 29.04.2008 21:12 |