Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/командбутоны 2,3,4 не реагируют - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » командбутоны 2,3,4 не реагируют (Макросы/Sub)
командбутоны 2,3,4 не реагируют
Asretyq Дата: Пятница, 22.09.2017, 17:03 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Прошу помощи, надо при нажатии нажатии на 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]
К сообщению приложен файл: 111.xlsm (20.2 Kb)
 
Ответить
СообщениеПрошу помощи, надо при нажатии нажатии на 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]

Автор - Asretyq
Дата добавления - 22.09.2017 в 17:03
buchlotnik Дата: Пятница, 22.09.2017, 17:10 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
да реагируют они и вставляют единичку - см. файл
К сообщению приложен файл: 1160872.xlsm (17.3 Kb)
 
Ответить
Сообщениеда реагируют они и вставляют единичку - см. файл

Автор - buchlotnik
Дата добавления - 22.09.2017 в 17:10
Asretyq Дата: Пятница, 22.09.2017, 17:15 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, наверно не правильно выразился, мне надо чтобы они реагировали по другому, при нажатии CommandButton2, CommandButton3, CommandButton4 было в ячейке А1 цифра 5, при нажатии CommandButton1 в ячейке А2 цифра 1. Именно методом который заключается при нажатии CommandButton1 А2=1, в противном случае А1=5. Вот эта функция не работает
[vba]
Код
Else: Range("A1").Value = 5
[/vba]


Сообщение отредактировал Asretyq - Пятница, 22.09.2017, 17:29
 
Ответить
Сообщениеbuchlotnik, наверно не правильно выразился, мне надо чтобы они реагировали по другому, при нажатии CommandButton2, CommandButton3, CommandButton4 было в ячейке А1 цифра 5, при нажатии CommandButton1 в ячейке А2 цифра 1. Именно методом который заключается при нажатии CommandButton1 А2=1, в противном случае А1=5. Вот эта функция не работает
[vba]
Код
Else: Range("A1").Value = 5
[/vba]

Автор - Asretyq
Дата добавления - 22.09.2017 в 17:15
K-SerJC Дата: Пятница, 22.09.2017, 17:34 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
вы неверно интерпретировали 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]


Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Пятница, 22.09.2017, 17:37
 
Ответить
Сообщениевы неверно интерпретировали 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]

Автор - K-SerJC
Дата добавления - 22.09.2017 в 17:34
Asretyq Дата: Пятница, 22.09.2017, 17:35 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
K-SerJC, не то, в этом случае я бы вас не тревожил, метод заключается в том что если нажать на бутон1 то А2=1, В ПРОТИВНОМ СЛУЧАЕ ПРИ НАЖАТИИ ДРУГИХ КНОПОК А1=5


Сообщение отредактировал Asretyq - Пятница, 22.09.2017, 17:41
 
Ответить
СообщениеK-SerJC, не то, в этом случае я бы вас не тревожил, метод заключается в том что если нажать на бутон1 то А2=1, В ПРОТИВНОМ СЛУЧАЕ ПРИ НАЖАТИИ ДРУГИХ КНОПОК А1=5

Автор - Asretyq
Дата добавления - 22.09.2017 в 17:35
K-SerJC Дата: Пятница, 22.09.2017, 17:38 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
как интерпретировать?

у вас на каждую кнопку свое событие клик срабатывает и выполняется код только от sub до end sub


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение
как интерпретировать?

у вас на каждую кнопку свое событие клик срабатывает и выполняется код только от sub до end sub

Автор - K-SerJC
Дата добавления - 22.09.2017 в 17:38
Asretyq Дата: Пятница, 22.09.2017, 17:43 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
k = Range("D4").Value

If UserForm1.Controls("Image" & k).Enabled = True Then
Else: UserForm1.Hide
End If
[/vba]

вот что мне придется редактировать!
файл не получиться закинуть там фото и тому подобное связано, но можно и методом
[vba]
Код
If UserForm1.CommandButton1.Enabled = True Then
Range("A2").Value = 1
Else: Range("A1").Value = 5
End If
[/vba]
это тоже аналогично
 
Ответить
Сообщение[vba]
Код
k = Range("D4").Value

If UserForm1.Controls("Image" & k).Enabled = True Then
Else: UserForm1.Hide
End If
[/vba]

вот что мне придется редактировать!
файл не получиться закинуть там фото и тому подобное связано, но можно и методом
[vba]
Код
If UserForm1.CommandButton1.Enabled = True Then
Range("A2").Value = 1
Else: Range("A1").Value = 5
End If
[/vba]
это тоже аналогично

Автор - Asretyq
Дата добавления - 22.09.2017 в 17:43
Asretyq Дата: Пятница, 22.09.2017, 18:16 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Тема закрыта, я нашел решение!
 
Ответить
СообщениеТема закрыта, я нашел решение!

Автор - Asretyq
Дата добавления - 22.09.2017 в 18:16
buchlotnik Дата: Пятница, 22.09.2017, 18:37 | Сообщение № 9
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
я нашел решение!
так поделитесь им - на то это и форум
 
Ответить
Сообщение
Цитата
я нашел решение!
так поделитесь им - на то это и форум

Автор - buchlotnik
Дата добавления - 22.09.2017 в 18:37
Asretyq Дата: Пятница, 22.09.2017, 19:17 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, Это таки довольно простой код, только немного по другому прописал
немного скомбинировал с ячейкой, делаю опросник типа игры миллионер, прожал правильную кнопку перешел на другой ответ, не правильно прожал - выкинуло с формы, конечно доделать надо, в конец рабочего дня голова не варит, не мог додуматься как сделать!
Ну это один из моих способов, их думаю миллион!

[vba]
Код
If Range("D4").Value = 1 Then
Range("S1").Value = ActiveCell.Value
Else: UserForm1.Hide
End If
[/vba]

Спасибо всем, кто помогал!!!


Сообщение отредактировал Asretyq - Пятница, 22.09.2017, 19:19
 
Ответить
Сообщениеbuchlotnik, Это таки довольно простой код, только немного по другому прописал
немного скомбинировал с ячейкой, делаю опросник типа игры миллионер, прожал правильную кнопку перешел на другой ответ, не правильно прожал - выкинуло с формы, конечно доделать надо, в конец рабочего дня голова не варит, не мог додуматься как сделать!
Ну это один из моих способов, их думаю миллион!

[vba]
Код
If Range("D4").Value = 1 Then
Range("S1").Value = ActiveCell.Value
Else: UserForm1.Hide
End If
[/vba]

Спасибо всем, кто помогал!!!

Автор - Asretyq
Дата добавления - 22.09.2017 в 19:17
buchlotnik Дата: Пятница, 22.09.2017, 19:25 | Сообщение № 11
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
выкинуло с формы
тогда почему
Цитата
.hide
а не
Цитата
Unload Me
? Память-то не резиновая


Сообщение отредактировал buchlotnik - Пятница, 22.09.2017, 19:27
 
Ответить
Сообщение
Цитата
выкинуло с формы
тогда почему
Цитата
.hide
а не
Цитата
Unload Me
? Память-то не резиновая

Автор - buchlotnik
Дата добавления - 22.09.2017 в 19:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » командбутоны 2,3,4 не реагируют (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!