Связь трех и более combobox в Excel - VB

Узнай цену своей работы

Формулировка задачи:

Уважаемые профи,
перчитал кучу страниц интернета но так и не смог найти ответ.
Сделал userform где есть куча взаимосвязанных комбобоксов и текстбоксов. Перечитав Ваш форум нашел как связать два комбика . Попытался такимже способом привязать к двух третий, но ничего не вышло. Купил несколько книг по программированию в Excel на VBA но там такие вещи не рассматриваются. Буду очень признателен, если Вы поможете мне увязать кобики между собой и подскажете хорошую литературу для VBA в Excel.
В приложении Вы можете найти образец файла с формой.
Буду признателен за любую помощь.

Решение задачи: «Связь трех и более combobox в Excel»

textual
Листинг программы
<font color="blue">Function</font> redifine_range(n <font color="blue">As</font> <font color="blue">Name</font>, new_v <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Name</font>
<font color="blue">Dim</font> n_n <font color="blue">As</font> <font color="blue">String</font>
n.RefersToRange.Worksheet.Activate
n.RefersToRange.<font color="blue">End</font>(xlDown).Offset(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>0</b></font>).Value = new_v
Range(n.RefersToRange, n.RefersToRange.Offset(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>0</b></font>)).<font color="blue">Select</font>
n_n = n.<font color="blue">Name</font>
n.Delete
<font color="blue">Set</font> redifine_range = Application.ThisWorkbook.Names.Add(n_n, Selection)
<font color="blue">End</font> <font color="blue">Function</font>

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


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

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

8   голосов , оценка 4 из 5