Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox VBA EXCEL / 13 сообщений из 13, страница 1 из 1
24.01.2005, 17:41
    #32880854
Pirog
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Народ, чё-то не вкурю как в комбобоксе запретить ввод текста пользователем, при этом оставив функциональность выбора элемента из зписка.
...
Рейтинг: 0 / 0
24.01.2005, 17:47
    #32880876
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Если на рабочем листе, то так можно:
Меню Данные - Проверка - Тип Данных - Список
...
Рейтинг: 0 / 0
25.01.2005, 11:15
    #32881805
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Если не ошибаюсь, то в стандартном Combobox'е есть свойство Locked, которое и отвечает за возможность редактировать список в объекте
...
Рейтинг: 0 / 0
29.04.2005, 10:58
    #33042270
Johny Walker
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Этого сделать нельзя - только отлавливать событие Changed и сравнивать значение с эталонным, при необходимости возвращать все назад. Locked=true позволит выбрать сам элемент, но сделать выбор из списка не позволит.
...
Рейтинг: 0 / 0
29.04.2005, 12:38
    #33042614
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
См свойство Style
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
04.04.2010, 00:24
    #36559564
~ENERGY~
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Есть свойство MatchRequired (True/False)
True-нельзя ввести значения, кроме перечисленных
False-можно.
...
Рейтинг: 0 / 0
04.04.2010, 08:29
    #36559607
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Добавьте еще:

Код: plaintext
1.
2.
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  If ComboBox1.MatchFound(ComboBox1.Text) Then Cancel = True
End Sub
...
Рейтинг: 0 / 0
04.04.2010, 08:47
    #36559609
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Ляпнул не подумав.
...
Рейтинг: 0 / 0
04.04.2010, 09:10
    #36559611
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Exit Sub
End If
End Sub
...
Рейтинг: 0 / 0
04.04.2010, 10:15
    #36559629
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Код: plaintext
1.
ComboBox1.Style = fmStyleDropDownList
...
Рейтинг: 0 / 0
06.08.2010, 10:45
    #36778811
valdemar_ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Пытаюсь сделать выпадающий список в ComboBox, который периодически изменяется
т.е. выпадающий список постоянно меняется.
Код: plaintext
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.
Пытась воплотить с помощью кода:
Public a1 As Integer  
Public a3 As Integer
Public Sv As Integer
Public Tmp As Integer
Public Sub SchetSPR() 'Проверка строк на странице справочника
    a1
    a3 =  1 
    a1 = Poisk_pust(a1,  1 )
    a3 = Poisk_pust(a3,  3 )
    
End Sub

Function Poisk_pust(Sv, St As Integer) As Integer ' Поиск не пустых строк
    Do While Worksheets("SPR").Cells(Sv, St) <> ""
       Sv = Sv +  1 
    Loop
    Poisk_pust = Sv
   
End Function

Private Sub UserForm_Initialize() 
   SchetSPR
    For Tmp =  1  To a1
        UserForm.cbLpu.AddItem Worksheets("SPR").Cells(Tmp,  1 ).Value
    Next
    For Tmp =  1  To a3
        UserForm.cbKateg.AddItem Worksheets("SPR").Cells(Tmp,  3 ).Value
    Next
End Sub
Все работает списки можно изменять в ComboBox они тоже меняютя, но после того как нажимаюкнопку добавить, хотелось что бы ComboBox очищался, если написать
Код: plaintext
UserForm.cbKateg.AddItem "Hello"
, то очистить можно вот так
Код: plaintext
cbKateg.Text = ""
cbKateg.Text = "", но этот же код не хочет рабоатть с выше написанным кодом предположительно из за цикла For. cbKateg.Clear полностью очищает ComboBox. В чем может быть проблема ?
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
25.02.2013, 10:16
    #38164241
Bagir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
.Михаил. Спасибо, в яблочко! То что нужно!
...
Рейтинг: 0 / 0
23.07.2013, 16:17
    #38340836
exception41
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ComboBox VBA EXCEL
Bagir,

спасибо=)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox VBA EXCEL / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]