ComboBox VBA EXCEL
Формулировка задачи:
Народ, чё-то не вкурю как в комбобоксе запретить ввод текста пользователем, при этом оставив функциональность выбора элемента из зписка.
Решение задачи: «ComboBox VBA EXCEL»
textual
Листинг программы
Пытась воплотить с помощью кода: <font color="blue">Public</font> a1 <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">Public</font> a3 <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">Public</font> Sv <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">Public</font> Tmp <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">Public</font> <font color="blue">Sub</font> SchetSPR() <font color="00AA00">'Проверка строк на странице справочника</font> a1 a3 = <font color="darkblue"><b>1</b></font> a1 = Poisk_pust(a1, <font color="darkblue"><b>1</b></font>) a3 = Poisk_pust(a3, <font color="darkblue"><b>3</b></font>) <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Function</font> Poisk_pust(Sv, St <font color="blue">As</font> <font color="blue">Integer</font>) <font color="blue">As</font> <font color="blue">Integer</font> <font color="00AA00">' Поиск не пустых строк</font> <font color="blue">Do</font> <font color="blue">While</font> Worksheets(<font color="teal">"SPR"</font>).Cells(Sv, St) <> <font color="teal">""</font> Sv = Sv + <font color="darkblue"><b>1</b></font> <font color="blue">Loop</font> Poisk_pust = Sv <font color="blue">End</font> <font color="blue">Function</font> <font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Initialize() SchetSPR <font color="blue">For</font> Tmp = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> a1 UserForm.cbLpu.AddItem Worksheets(<font color="teal">"SPR"</font>).Cells(Tmp, <font color="darkblue"><b>1</b></font>).Value <font color="blue">Next</font> <font color="blue">For</font> Tmp = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> a3 UserForm.cbKateg.AddItem Worksheets(<font color="teal">"SPR"</font>).Cells(Tmp, <font color="darkblue"><b>3</b></font>).Value <font color="blue">Next</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д