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

Код: 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:29
| Ответить | Цитировать | Написать  
ComboBox VBA EXCEL
    #36559609
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
Ляпнул не подумав.
...
Рейтинг: 0 / 0
04.04.2010, 08:47
| Ответить | Цитировать | Написать  
ComboBox VBA EXCEL
    #36559611
zchvv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zchvv
Участник
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, 09:10
| Ответить | Цитировать | Написать  
ComboBox VBA EXCEL
    #36559629
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
Код: plaintext
1.
ComboBox1.Style = fmStyleDropDownList
...
Рейтинг: 0 / 0
04.04.2010, 10:15
| Ответить | Цитировать | Написать  
ComboBox VBA EXCEL
    #36778811
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Пытаюсь сделать выпадающий список в 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
06.08.2010, 10:45
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
ComboBox VBA EXCEL
    #38164241
Bagir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bagir
Гость
.Михаил. Спасибо, в яблочко! То что нужно!
...
Рейтинг: 0 / 0
25.02.2013, 10:16
| Ответить | Цитировать | Написать  
ComboBox VBA EXCEL
    #38340836
exception41
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
exception41
Гость
Bagir,

спасибо=)
...
Рейтинг: 0 / 0
23.07.2013, 16:17
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox VBA EXCEL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=36559629&tid=2156841]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 15ms
total:  161ms
созд. / загр.: 161ms
x
x
Закрыть


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