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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5