|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.10.2009, 19:39 | #1 |
Пользователь
Регистрация: 28.07.2008
Сообщений: 15
|
Поиск в закрытых книгах Эксель
Задача поиска в закрытых книгах Эксель.
Больше всего подходит для этого подходит уже известная функция VLOOKUP2 Function VLOOKUP2(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _ N As Integer, ResultColumnNum As Integer) Dim i As Integer Dim iCount As Integer Select Case TypeName(Table) Case "Range" For i = 1 To Table.Rows.Count If Table.Cells(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then VLOOKUP2 = Table.Cells(i - 2, ResultColumnNum) Exit For End If Next i Case "Variant()" For i = 1 To UBound(Table) If Table(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then VLOOKUP2 = Table(i - 2, ResultColumnNum) Exit For End If Next i End Select End Function Но... невозможна передача в неё ссылок на таблицу в текстовом виде. Поэтому не удаётся произвести выбор таблицы, по которой происходит поиск, например, с помошью результатов других функций. Как это решить???? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сравнение двух столбцов в разных книгах | LAnLorD | Microsoft Office Excel | 132 | 17.05.2022 08:16 |
копирование листов из закрытых книг | mephist | Microsoft Office Excel | 4 | 10.07.2009 17:18 |
Создать приложение для занесения и выборки инфор-мации о книгах библиотеки | PRIVIDENIE18 | Общие вопросы Delphi | 4 | 02.04.2009 13:47 |
поиск макросом дубликатов в таблице эксель | brokoli | Microsoft Office Excel | 12 | 20.01.2009 11:26 |
Нахождение совпадений в двух книгах | Professor Hubert | Microsoft Office Excel | 5 | 25.07.2008 12:59 |