Связь трех и более combobox в Excel - VB
Формулировка задачи:
Уважаемые профи,
перчитал кучу страниц интернета но так и не смог найти ответ.
Сделал userform где есть куча взаимосвязанных комбобоксов и текстбоксов. Перечитав Ваш форум нашел как связать два комбика . Попытался такимже способом привязать к двух третий, но ничего не вышло. Купил несколько книг по программированию в Excel на VBA но там такие вещи не рассматриваются. Буду очень признателен, если Вы поможете мне увязать кобики между собой и подскажете хорошую литературу для VBA в Excel.
В приложении Вы можете найти образец файла с формой.
Буду признателен за любую помощь.
перчитал кучу страниц интернета но так и не смог найти ответ.
Сделал 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д