Прошу помощи, надо при нажатии нажатии на commandbutton1 в ячейке А2 появилась 1, в остальных же случаях в ячейке А1-5, командбутоны 2,3,4 не реагируют почему то Именно таким методом [vba]
Код
If UserForm1.CommandButton1.Enabled = True Then Range("A2").Value = 1 Else: Range("A1").Value = 5 End If
[/vba]
Прошу помощи, надо при нажатии нажатии на commandbutton1 в ячейке А2 появилась 1, в остальных же случаях в ячейке А1-5, командбутоны 2,3,4 не реагируют почему то Именно таким методом [vba]
Код
If UserForm1.CommandButton1.Enabled = True Then Range("A2").Value = 1 Else: Range("A1").Value = 5 End If
buchlotnik, наверно не правильно выразился, мне надо чтобы они реагировали по другому, при нажатии CommandButton2, CommandButton3, CommandButton4 было в ячейке А1 цифра 5, при нажатии CommandButton1 в ячейке А2 цифра 1. Именно методом который заключается при нажатии CommandButton1 А2=1, в противном случае А1=5. Вот эта функция не работает [vba]
Код
Else: Range("A1").Value = 5
[/vba]
buchlotnik, наверно не правильно выразился, мне надо чтобы они реагировали по другому, при нажатии CommandButton2, CommandButton3, CommandButton4 было в ячейке А1 цифра 5, при нажатии CommandButton1 в ячейке А2 цифра 1. Именно методом который заключается при нажатии CommandButton1 А2=1, в противном случае А1=5. Вот эта функция не работает [vba]
вы неверно интерпретировали Enabled это не равно нажата кнопка как вы описали достаточно такого кода: [vba]
Код
Private Sub CommandButton1_Click() Range("A2").Value = 1 Range("A1").Value = Empty End Sub Private Sub CommandButton2_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub Private Sub CommandButton3_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub Private Sub CommandButton4_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub
[/vba]
вы неверно интерпретировали Enabled это не равно нажата кнопка как вы описали достаточно такого кода: [vba]
Код
Private Sub CommandButton1_Click() Range("A2").Value = 1 Range("A1").Value = Empty End Sub Private Sub CommandButton2_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub Private Sub CommandButton3_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub Private Sub CommandButton4_Click() Range("A1").Value = 5 Range("A2").Value = Empty End Sub
K-SerJC, не то, в этом случае я бы вас не тревожил, метод заключается в том что если нажать на бутон1 то А2=1, В ПРОТИВНОМ СЛУЧАЕ ПРИ НАЖАТИИ ДРУГИХ КНОПОК А1=5
K-SerJC, не то, в этом случае я бы вас не тревожил, метод заключается в том что если нажать на бутон1 то А2=1, В ПРОТИВНОМ СЛУЧАЕ ПРИ НАЖАТИИ ДРУГИХ КНОПОК А1=5Asretyq
Сообщение отредактировал Asretyq - Пятница, 22.09.2017, 17:41
buchlotnik, Это таки довольно простой код, только немного по другому прописал немного скомбинировал с ячейкой, делаю опросник типа игры миллионер, прожал правильную кнопку перешел на другой ответ, не правильно прожал - выкинуло с формы, конечно доделать надо, в конец рабочего дня голова не варит, не мог додуматься как сделать! Ну это один из моих способов, их думаю миллион!
[vba]
Код
If Range("D4").Value = 1 Then Range("S1").Value = ActiveCell.Value Else: UserForm1.Hide End If
[/vba]
Спасибо всем, кто помогал!!!
buchlotnik, Это таки довольно простой код, только немного по другому прописал немного скомбинировал с ячейкой, делаю опросник типа игры миллионер, прожал правильную кнопку перешел на другой ответ, не правильно прожал - выкинуло с формы, конечно доделать надо, в конец рабочего дня голова не варит, не мог додуматься как сделать! Ну это один из моих способов, их думаю миллион!
[vba]
Код
If Range("D4").Value = 1 Then Range("S1").Value = ActiveCell.Value Else: UserForm1.Hide End If