При выборе значения в ComboBox, в TextBox подставить соответствующее значение из таблицы

@kreotivk · Регистрация: 11.12.2014

Author24 — интернет-сервис помощи студентам

как сделать так, чтобы при выборе иного значения в ComboBox, в TextBox менялись соответствующим значениям из таблицы?

@~~101~~ · 11.12.2014, 23:53

Надо чтобы элементы в списке были както связанны с элементами таблицы
например пусть там будут названия идущие по порядку от 1-го до ...
значит и в TextBox можно отобразить так-же по порядку ячейки из таблицы
в событии клика, в ComboBox можно написать например так:

за X берем столбец (>0), за Y строку (>0)

Visual Basic

1
2
3

With combo1
   Text1.text=cells(.listindex + y , x)
End With

@Alex77755 · 12.12.2014, 00:20

Можно не связывать, а использовать функцию листа ВПР

Visual Basic

Private Sub ComboBox1_Click()
    Dim RN As Range
    Set RN = Лист1.Range("B2").Resize(Range("B2").End(xlDown).Row, 7)
    TextBox1 = WorksheetFunction.VLookup(ComboBox1.Text, RN, 2, 0)
End Sub

Добавлено через 2 минуты
без дополнительнюй переменной:

Visual Basic

1
2
3

Private Sub ComboBox1_Click()
    TextBox1 = WorksheetFunction.VLookup(ComboBox1.Text, Лист1.Range("B2").Resize(Range("B2").End(xlDown).Row, 7), 2, 0)
End Sub

@kreotivk · 12.12.2014, 07:13 **[ТС]**

Спасибо Вам)

@kreotivk 0 / 0 / 0 Регистрация: 11.12.2014 Сообщений: 2
	12.12.2014, 07:13 [ТС]	4
	Спасибо Вам) 0

При выборе значения в ComboBox, в TextBox подставить соответствующее значение из таблицы

Решение