0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 8
1

Получение значения при выборе в ComboBox

22.04.2016, 00:06. Показов 1181. Ответов 5
Метки нет (Все метки)

Получение значения при выборе в ComboBox с клавиши Стрелка вверх и Стрелка вниз не получается, помогите написать код... заранее благодарю
Вложения
Тип файла: zip 101.zip (643.6 Кб, 8 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2016, 00:06
Ответы с готовыми решениями:

Вывод в TextBox при выборе значения в Combobox
Всем здравствуйте! Кто может подсказать макрос для того, чтобы при выборе значения в...

При выборе значения в ComboBox автозаполняются ТекстБоксы значениями из таблицы
ComboBox должен заполниться фамилиями из 3 столбика. При выборе значения в ComboBox должны...

При выборе значения в любом из ComboBox-ов очистить все остальные
задачка вроде не сложная, но не могу придумать решение. есть 5 комбобоксов ComboBox1,...

При выборе значения в ComboBox должны автозаполняться ячейки в листе
Доброго времени суток, форумчане. Задали домашнее задание по информатике в вузе, но я в этом совсем...

5
0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 8
22.04.2016, 12:48  [ТС] 2
Вот код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub ComboBox1_DropButtonDBLClick()
If ActiveCell <> "" Then
ComboBox1 = ActiveCell
Else
ActiveCell = ComboBox1.Value
End If
End Sub
 
'Private Sub ComboBox1_Click()
'    ActiveCell = ComboBox1.Value
'    Unload UserForm1
'End Sub
 
Private Sub ComboBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
If Len(ComboBox1.Text) = 0 Or bu = True Then Exit Sub
 txt = ComboBox1.Text: lt = Len(ComboBox1.Text)
 x = Sheets("База данных").Columns(1).SpecialCells(2).Value
 For i = 1 To UBound(x, 1) 'поиск по любому вхождению
 If InStr(x(i, 1), txt) Then s = s & "~" & x(i, 1)
Next i
ComboBox1.List = Split(Mid(s, 2), "~")
ComboBox1.DropDown
 
End Sub
 
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii = 27) Then ' если нажат еск тогда форма закрывается
    Me.Hide
    End If
End Sub
 
Private Sub CommandButton1_Click()
    ActiveCell = ComboBox1.Value
    Unload UserForm1
End Sub
Добавлено через 12 часов 32 минуты
мой вопрос так осталось без ответа? никто не сможет мне помочь
0
45 / 45 / 15
Регистрация: 14.04.2016
Сообщений: 128
22.04.2016, 19:58 3
Вы не совсем правильно заполняли список. Так работает, вроде
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
If Len(ComboBox1.Text) = 0 Or bu = True Then Exit Sub
 txt = ComboBox1.Text: lt = Len(ComboBox1.Text)
 x = Sheets("База данных").Columns(1).SpecialCells(2).Value
 For i = 1 To UBound(x, 1) 'поиск по любому вхождению
 If InStr(x(i, 1), txt) Then Me.ComboBox1.AddItem x(i, 1)
Next i
ComboBox1.DropDown
End Sub
0
0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 8
23.04.2016, 11:46  [ТС] 4
МВТ, не работает,( (
0
45 / 45 / 15
Регистрация: 14.04.2016
Сообщений: 128
23.04.2016, 14:53 5
Проверил еще раз: повторно вставил свой код в Ваш файл. Все работает. Остается непонятным, зачем такие извращения заполнением списка значений в комбобоксе? Впрочем, это Ваше дело.
P.S. дабы не быть голословным, прикладываю файл
Вложения
Тип файла: zip 101.ZIP (641.1 Кб, 22 просмотров)
0
0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 8
26.04.2016, 16:22  [ТС] 6
тогда, не ищет по буквам (или символы) внутри текстовой списки значении, искомный буква (или символы) может содержит в начало или посреди или в конце одного значении

Добавлено через 21 час 36 минут
никто не поможет как правильно пишется код
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2016, 16:22

При выборе значения в Combobox, в TextBox сразу же отображать информацию
Привет, суть моей проблемы такова, у меня есть ComboBox и TextBox. Нужно сделать так, если конечно...

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

C# Как сделать чтобы при выборе в combobox , менялись значения в других combobox?
Приветствую коллеги. Только встал на путь программирования и столкнулся с дилеммой. Есть форма,...

Как сделать чтобы при выборе в combobox , менялись значения в других combobox?
Есть два combobox. Как их сделать зависимыми друг от друга. Что бы при выборе одного combobox...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.