Как связать combobox и textbox

Программирование на Visual Basic for Applications
melkiy7
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 14.06.2006 (Ср) 18:05

Как связать combobox и textbox

Сообщение melkiy7 » 14.06.2006 (Ср) 18:12

таблица из 3 клонок
combobox смотрит первую колонку
нужно что бы при выборе в combobox1 значения соответствующего строке 1 в textbox1 подстовлялось значение из колонки 2 а в textbox2 из колонки 3

Al Khamid
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 274
Зарегистрирован: 11.02.2004 (Ср) 10:00
Откуда: Москва, Ховрино

Сообщение Al Khamid » 16.06.2006 (Пт) 8:34

8) 8)
Последний раз редактировалось Al Khamid 06.11.2007 (Вт) 14:53, всего редактировалось 1 раз.
"Время пришло..." ©

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 16.06.2006 (Пт) 8:36

Э... А причем тут PDF?
Lasciate ogni speranza, voi ch'entrate.

Al Khamid
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 274
Зарегистрирован: 11.02.2004 (Ср) 10:00
Откуда: Москва, Ховрино

Сообщение Al Khamid » 20.06.2006 (Вт) 16:36

8) 8)
Последний раз редактировалось Al Khamid 06.11.2007 (Вт) 14:52, всего редактировалось 1 раз.

fishh
Обычный пользователь
Обычный пользователь
 
Сообщения: 81
Зарегистрирован: 21.10.2005 (Пт) 9:50

Сообщение fishh » 10.07.2006 (Пн) 11:16

Если ты программируешь в Excel, тогда попробуй так:
Код: Выделить всё
Private Sub ComboBox1_Click()
For i = 1 To 12
    If Sheets("Лист1").Cells(i, 1).Value = ComboBox1.List(ComboBox1.ListIndex) Then
        TextBox1 = Sheets("Лист1").Cells(i, 2).Value
        TextBox2 = Sheets("Лист1").Cells(i, 3).Value
    End If
Next i
End Sub

Private Sub CommandButton1_Click()
For i = 1 To 12 'заполнение ComboBox1 значениями первого столбца
    ComboBox1.AddItem Sheets("Лист1").Cells(i, 1).Value
Next i
' или
'ComboBox1.ListFillRange = "A1:A12"
End Sub


Удачи!!!

Sanity
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 24.07.2006 (Пн) 17:14

Сообщение Sanity » 24.07.2006 (Пн) 17:38

Private Sub ComboBox1_Change()
TextBox1.Text = ComboBox1.Column(1)
End Sub

не это ты случайно имеешь ввиду?
Вложения
combobox.xls
(31.5 Кб) Скачиваний: 214


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 47

    TopList