Реализация ВПР на форме с texbox'ами и данными с листа.

Дата: Воскресенье, 03.06.2018, 13:51 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Добрый день!
Можно ли на форме сделать texbox, в который вносились бы данные, а в других texbox подставлялись соответствующие значения с листа по принципу ВПР или его аналога?

Дата: Воскресенье, 03.06.2018, 13:56 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Можно. На кнопку ОК вешаем
[vba]

Код

Private Sub CommandButton1_Click()
    Err.Clear
    On Error Resume Next
     Me.TextBox2.Value=Columns(здесь_номер_столбца_в_котором_ищем).Find(Me.TextBox1.Value).Offset(,здесь_сдвиг_по_столбцам)
    If Err.Number<>0 Then Me.TextBox2.Value="Ничего не найдено"
End Sub

[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Воскресенье, 03.06.2018, 14:08

Дата: Воскресенье, 03.06.2018, 14:53 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

А без кнопки, допустим через textbox1_change? Идея в том, чтобы пользователь сразу видел результат на форме ничего лишнего не нажимая.

Дата: Воскресенье, 03.06.2018, 15:33 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Да какая разница, на какое событие Вы это подвесите? Код от этого не изменится. Вам виднее, просто Сhange отрабатывает после каждого символа.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Воскресенье, 03.06.2018, 15:38 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Я бы вообще вместо TextBox1 сделал ComboBox с загруженным в него нужным столбцом, но опять же, задача Ваша, Вам виднее.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Воскресенье, 03.06.2018, 17:00 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

StoTisteg, ваш представленный код работает не верно, подставляет значение из того же столбца на заданный шаг строки. Получилось что-то на подобии ГПР

Дата: Воскресенье, 03.06.2018, 17:15 | Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Паштет, выложите тот код, который у Вас не работает. Есть у меня подозрения. Запятая после открывающей скобки в Offset - не опечатка и не украшение.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Воскресенье, 03.06.2018, 17:18

Дата: Воскресенье, 03.06.2018, 17:17 | Сообщение № 8

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

[vba]

Код

Private Sub akt2_Change()
Err.Clear
    On Error Resume Next
    Me.name2.Value = Sheets("Æóðíàë ÈÁ").Columns(1).Find(Me.akt2.Value).Offset(2)
    If Err.Number <> 0 Then Me.name2.Value = "Íè÷åãî íå íàéäåíî"
End Sub

[/vba]

Дата: Воскресенье, 03.06.2018, 17:19 | Сообщение № 9

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Паштет, я так и знал

[vba]

Код

Private Sub akt2_Change()
Err.Clear
    On Error Resume Next
    Me.name2.Value = Sheets("Æóðíàë ÈÁ").Columns(1).Find(Me.akt2.Value).Offset(,2)
    If Err.Number <> 0 Then Me.name2.Value = "Íè÷åãî íå íàéäåíî"
End Sub

[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Воскресенье, 03.06.2018, 17:29 | Сообщение № 10

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Супер! Все заработало! Прошу прощения, был невнимателен

А можно еще ограничить размер столбца, чтобы поиск начинался с 3-й строки до последней заполненной строки или бесконечности?

Дата: Воскресенье, 03.06.2018, 17:40 | Сообщение № 11

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

[vba]

Код

Private Sub akt2_Change()
Err.Clear
    On Error Resume Next
    Me.name2.Value = Sheets("Æóðíàë ÈÁ").Range(Cells(3,1),Cells(Cells(Rows.Count,1).End(xlUp).Row,1)).Find(Me.akt2.Value).Offset(,2)
    If Err.Number <> 0 Then Me.name2.Value = "Íè÷åãî íå íàéäåíî"
End Sub

[/vba]

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Дата: Воскресенье, 03.06.2018, 17:49 | Сообщение № 12

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

Ранг: Форумчанин

Сообщений: 155

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

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

Excel 2010

Благодарю!