Страницы: 1
RSS
Скрывать или показывать ComboBox от значений в CheckBox
 
Здравствуйте. Помогите пожалуйста написать макрос который бы делал ComboBox видимым, если стоит флажок в CheckBox. И скрывал бы если флажок не стоит.
 
If CheckBox.Value=True Then  
ComboBox.Visible=True  
Else  
ComboBox.Visible=False  
End If  
 
Где-то так, не проверял (наколенный вариант).
 
Sub Check_Box1()  
If CheckBox.Value = True Then  
ComboBox5.Visible = True  
Else  
ComboBox5.Visible = False  
End If  
End Sub  
 
Присвоил чекбоксу этот макрос. Ругается на первую строку.
 
Private Sub CheckBox1_Click()
 
Поправил, скопировал в исходный текст листа, но не работает. Прикрепил файл. Что я делаю не так?
 
используйте элементы activex( в нижней части пано "вставить")
Живи и дай жить..
 
А через обычный флажок это не реализуемо?
 
попробуйте так, см файл
Редко но метко ...
 
Всем спасибо за помощь! Все работает.
 
А можно сделать так что бы снимая галочку комбобокс не только скрывался, но и очищался?
 
См. свойства ComboBox.Value  и ComboBox.Text
 
Sub Флажок7_Щелчок()  
   Dim b As Boolean  
   b = Shapes("Check Box 7").OLEFormat.Object.Value = 1  
   ComboBox6.Visible = b  
   If Not b Then ComboBox6.Value = ""  
End Sub  
 
другой по аналогии
Редко но метко ...
 
Спасибо все работает.  
Вопросик немного не по теме, но чем отличаются свойства Value и Text ?
Страницы: 1
Читают тему
Наверх