Улучшенный ВПР

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Улучшенный ВПР - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Улучшенный ВПР (Макросы/Sub)

Улучшенный ВПР

ASUS

Дата: Суббота, 21.03.2015, 01:52 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Привет, всем. Можете вложить код VBA для VLOOCUP 3. За ответ заранее спасибо.

Нельзя остановиться на достигнутом.

Ответить

alex77755

Дата: Суббота, 21.03.2015, 10:32 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

А самому погуглить слабо? или лень?
[vba]

Код

Function VLOOKUP3(Table1 As Range, SearchValue1 As Variant, Table2 As Range, SearchValue2 As Variant, ResultColumn As Range)
         Dim i As Integer


         For i = 1 To Table1.Rows.Count
                 If Table1.Cells(i, 1) = SearchValue1 Then
                 If Table2.Cells(i, 1) = SearchValue2 Then
                 VLOOKUP3 = ResultColumn.Cells(i, 1)
                     Exit For
                     End If
                 End If
                 Next i

     End Function

[/vba]

источник

Могу помочь в VB6, VBA
Alex77755@mail.ru

Ответить

Улучшенный ВПР (Макросы/Sub)

Страница 1 из 1
1