Страницы: 1
RSS
Связанные списки с ActiveX
 
Подскажите, пожалуйста:  
вопрос: как сделать список ActiveX зависящим от первого списка,  
так как в свойствах в строке ListFillRange можно задать только диапазон ячеек,  
а не =ДВССЫЛ()  
Заранее огромное спасибо!.
 
http://www.planetaexcel.ru/forum.php?thread_id=28877  
На этой же странице!
 
так ? см.файл
Редко но метко ...
 
чуть подправил
Редко но метко ...
 
вот подправленный
Редко но метко ...
 
{quote}{login=RAN}{date=04.07.2011 10:35}{thema=}{post}http://www.planetaexcel.ru/forum.php?thread_id=28877  
На этой же странице!{/post}{/quote}  
 
Спасибо за ссылку,но не судите строго, прочел всю страницу, но так как пока слабо разбираюсь в программировании, то непонял что из этого мне подходит, если Вас не затруднит, то чуть-чуть разобрать для начинающего пример прилагаю.  
Заране благодарю
 
{quote}{login=GIG_ant}{date=04.07.2011 10:44}{thema=}{post}вот подправленный{/post}{/quote}  
 
Огромное спасибо!!  
последний пример просто супер!! все оказалось очень просто, если знать ))  
 
Последний вопрос: а что писать если первый список не ComboBox, а стандартный список Excel, как в моем примере?
 
У вас тут присутствует и элемент  ActiveX и Элемент управления формы. Если так нужно то можно сделать так, см файл.
Редко но метко ...
 
файл забыл ))
Редко но метко ...
 
{quote}{login=GIG_ant}{date=04.07.2011 11:27}{thema=}{post}файл забыл )){/post}{/quote}  
 
Еще раз спасибо! все работает!  
этот вариант посложнее, но думаю скоро разберусь ;)
 
Уважаемые знатоки, еще вопросик, а что нужно написать в макросе, если второй список ориетироваться будет не по првому списку а по ячейке?    
 
Заранее признателен.
 
{quote}{login=Silver}{date=05.07.2011 12:28}{thema=Re: }{post}Уважаемые знатоки, еще вопросик, а что нужно написать в макросе, если второй список ориетироваться будет не по првому списку а по ячейке?    
 
Заранее признателен.{/post}{/quote}  
По какой ячейке ?
Редко но метко ...
 
упссс, примерчик не тот прикрепил,    
вот исправленный, а ячейка В9
 
Можно так, только не пойму смысла.
Редко но метко ...
 
спасибо за пример  
 
а где что нужно написать чтобы при открытии книги обнулялись ComboBox и Excel списки?
 
Не очень понятно что значит обнулять Ексель списки ?  
А комбобокс обнулить можно так: в модуль книги вставляете продцедурку:  
 
Private Sub Workbook_Open()  
With Worksheets("Лист1").ComboBox1  
.Clear  
.AddItem ""  
.ListIndex = 0  
End With  
End Sub  
 
см. файл
Редко но метко ...
 
{quote}{login=GIG_ant}{date=07.07.2011 09:27}{thema=}{post}Не очень понятно что значит обнулять Ексель списки ?  
А комбобокс обнулить можно так: в модуль книги вставляете продцедурку:  
 
Private Sub Workbook_Open()  
With Worksheets("Лист1").ComboBox1  
.Clear  
.AddItem ""  
.ListIndex = 0  
End With  
End Sub  
 
см. файл{/post}{/quote}  
 
Благодарю, я шел не по-другому, поэтому и не получалось.  
 
Кстати, подскажите, пару примеров назад в случае где ComboBox зависит от списка (эл-та управления формой) файл post_238522, в примере все работает, когда начал применять к своему расчету ошибки не выдает, но и списка тоже ))  
Вот код, где я мог ошибиться?:  
 
   If Target.Address = "$Р$23" Then        rem P23 - ячейка со списком (эл-том  
                                           rem       управленя формой)    
      Application.EnableEvents = False  
      ComboBox4.List = Range(Target).Value  
      ComboBox4.ListIndex = 0  
      Application.EnableEvents = True  
 
   End If  
 
Заранее спасибо
 
Насколько я помню, в той ячейке было название диапазона с списком.
Страницы: 1
Читают тему
Наверх