Здравствуйте, в VBA не силен. Помогите разобраться с формой. При нажатие на галочку должно выводиться сообщение, и добавляться формула. При снятии другое сообщение, и другая формула(или порасту очищаться ячейка). [vba]
Код
Private Sub CheckBox1_Click() If True Then MsgBox "Вы добаляете торцевое отверстие" Cells(1, 1).FormulaR1C1 = _ "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]" Else MsgBox "Вы убрали торцевое отверстие" Cells(1, 1).FormulaR1C1 = _ "=""""""" End If
End Sub
[/vba]
Я пологал что должна быть лагическая форма если, но ошибся
Ну и конечно хотелось бы "заморозить" TextBoX", напротив галочики при условии если она снята.
Здравствуйте, в VBA не силен. Помогите разобраться с формой. При нажатие на галочку должно выводиться сообщение, и добавляться формула. При снятии другое сообщение, и другая формула(или порасту очищаться ячейка). [vba]
Код
Private Sub CheckBox1_Click() If True Then MsgBox "Вы добаляете торцевое отверстие" Cells(1, 1).FormulaR1C1 = _ "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]" Else MsgBox "Вы убрали торцевое отверстие" Cells(1, 1).FormulaR1C1 = _ "=""""""" End If
End Sub
[/vba]
Я пологал что должна быть лагическая форма если, но ошибся
Ну и конечно хотелось бы "заморозить" TextBoX", напротив галочики при условии если она снята.televnoy
Долго мучился получилось, ток я не разобрался как оставить замороженые ячейки при снятом, и наоборот
Результат моих мук ... [vba]
Код
Private Sub CheckBox1_Change() If CheckBox1.Value = True Then MsgBox "Вы добавили отверстие" Cells(1, 1).FormulaR1C1 = _ "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]" Else CheckBox1.Value = False MsgBox "Вы убрали отверстие" Cells(1, 1).ClearContents End If End Sub
[/vba]
Видимо прейдется в самим TextBox писать формулы
Долго мучился получилось, ток я не разобрался как оставить замороженые ячейки при снятом, и наоборот
Результат моих мук ... [vba]
Код
Private Sub CheckBox1_Change() If CheckBox1.Value = True Then MsgBox "Вы добавили отверстие" Cells(1, 1).FormulaR1C1 = _ "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]" Else CheckBox1.Value = False MsgBox "Вы убрали отверстие" Cells(1, 1).ClearContents End If End Sub
[/vba]
Видимо прейдется в самим TextBox писать формулыtelevnoy
Посмотрите еще такой вариант Не знаю, что нужно делать со второй галкой, поэтому засунул все в первую. Если не совсем верно, то переделать легко - там просто добавлены две надписи без текста, если первая галка поставлена, то они убираются на задний план, если снята - то появляются на переднем и закрывают все текстбоксы.
Посмотрите еще такой вариант Не знаю, что нужно делать со второй галкой, поэтому засунул все в первую. Если не совсем верно, то переделать легко - там просто добавлены две надписи без текста, если первая галка поставлена, то они убираются на задний план, если снята - то появляются на переднем и закрывают все текстбоксы._Boroda_