Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2009, 19:39   #1
Vic65
Пользователь
 
Регистрация: 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


Но... невозможна передача в неё ссылок на таблицу в текстовом виде. Поэтому не удаётся произвести выбор таблицы, по которой происходит поиск, например, с помошью результатов других функций.

Как это решить????
Vic65 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение двух столбцов в разных книгах 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