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

Вход

Регистрация

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

 

= Мир MS Excel/Создать кнопку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать кнопку (Макросы/Sub)
Создать кнопку
Казак Дата: Воскресенье, 28.01.2018, 11:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Не могу создать кнопку.
При нажатии на кнопку в ячейку А1 должен вставить "1", при отпускании кнопки - "0".
Если так не получиться, то при нажатии на кнопку в ячейку А1 должен вставить "1", при повторном нажатии кнопки - "0". И так далее 1, 0, 1, 0,....


Сообщение отредактировал Казак - Воскресенье, 28.01.2018, 11:37
 
Ответить
СообщениеНе могу создать кнопку.
При нажатии на кнопку в ячейку А1 должен вставить "1", при отпускании кнопки - "0".
Если так не получиться, то при нажатии на кнопку в ячейку А1 должен вставить "1", при повторном нажатии кнопки - "0". И так далее 1, 0, 1, 0,....
Автор - Казак
Дата добавления - 28.01.2018 в 11:36
nilem Дата: Воскресенье, 28.01.2018, 11:47 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
вот так пойдет?
[vba]
Код
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = 0
End If
End Sub
[/vba]
К сообщению приложен файл: 9360076.xlsm (19.1 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениевот так пойдет?
[vba]
Код
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = 0
End If
End Sub
[/vba]
Автор - nilem
Дата добавления - 28.01.2018 в 11:47
Казак Дата: Воскресенье, 28.01.2018, 12:02 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
nilem, СПАСИБО!
Еще вопрос. Как сделать так, чтобы кнопки "Ручной" и "Автоматич." работали отдельно от кнопок "Откл" и "Вкл".
Вложил файл.
К сообщению приложен файл: 4585398.xlsm (21.4 Kb)


Сообщение отредактировал Казак - Воскресенье, 28.01.2018, 12:04
 
Ответить
Сообщениеnilem, СПАСИБО!
Еще вопрос. Как сделать так, чтобы кнопки "Ручной" и "Автоматич." работали отдельно от кнопок "Откл" и "Вкл".
Вложил файл.
Автор - Казак
Дата добавления - 28.01.2018 в 12:02
RAN Дата: Воскресенье, 28.01.2018, 12:21 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
так
К сообщению приложен файл: 2171449.xlsm (23.3 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениетак
Автор - RAN
Дата добавления - 28.01.2018 в 12:21
Казак Дата: Воскресенье, 28.01.2018, 12:37 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, объясни, как сделал.
 
Ответить
СообщениеRAN, объясни, как сделал.
Автор - Казак
Дата добавления - 28.01.2018 в 12:37
nilem Дата: Воскресенье, 28.01.2018, 12:49 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
сначала вставляем группу, потом добавляем в нее переключатели

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениесначала вставляем группу, потом добавляем в нее переключатели
Автор - nilem
Дата добавления - 28.01.2018 в 12:49
Казак Дата: Воскресенье, 28.01.2018, 12:53 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата nilem, 28.01.2018 в 11:47, в сообщении № 2 ()
вот так пойдет?
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = 0
End If
End Sub
К сообщению приложен файл: 9360076.xlsm(19Kb)


Скопировал макрос и создал на новой книге, но у меня не получается.
Объясните, пож-ста, чайнику.
К сообщению приложен файл: 111111111.xlsm (19.1 Kb)
 
Ответить
Сообщение
Цитата nilem, 28.01.2018 в 11:47, в сообщении № 2 ()
вот так пойдет?
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = 0
End If
End Sub
К сообщению приложен файл: 9360076.xlsm(19Kb)


Скопировал макрос и создал на новой книге, но у меня не получается.
Объясните, пож-ста, чайнику.
Автор - Казак
Дата добавления - 28.01.2018 в 12:53
Казак Дата: Воскресенье, 28.01.2018, 12:56 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата nilem, 28.01.2018 в 12:49, в сообщении № 6 ()
сначала вставляем группу, потом добавляем в нее переключатели


Получилось, спасибо.
 
Ответить
Сообщение
Цитата nilem, 28.01.2018 в 12:49, в сообщении № 6 ()
сначала вставляем группу, потом добавляем в нее переключатели


Получилось, спасибо.
Автор - Казак
Дата добавления - 28.01.2018 в 12:56
nilem Дата: Воскресенье, 28.01.2018, 13:03 | Сообщение № 9
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Цитата Казак, 28.01.2018 в 12:53, в сообщении № 7 ()
Скопировал макрос и создал на новой книге, но у меня не получается.

Макрос нужно скопировать в модуль листа (не стандартный модуль типа Module1, а модуль листа), см. файл в сообщении №2

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение
Цитата Казак, 28.01.2018 в 12:53, в сообщении № 7 ()
Скопировал макрос и создал на новой книге, но у меня не получается.

Макрос нужно скопировать в модуль листа (не стандартный модуль типа Module1, а модуль листа), см. файл в сообщении №2
Автор - nilem
Дата добавления - 28.01.2018 в 13:03
Казак Дата: Воскресенье, 28.01.2018, 13:14 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата nilem, 28.01.2018 в 13:03, в сообщении № 9 ()
Макрос нужно скопировать в модуль листа (не стандартный модуль типа Module1, а модуль листа), см. файл в сообщении №2

Понял и сделал.
 
Ответить
Сообщение
Цитата nilem, 28.01.2018 в 13:03, в сообщении № 9 ()
Макрос нужно скопировать в модуль листа (не стандартный модуль типа Module1, а модуль листа), см. файл в сообщении №2

Понял и сделал.
Автор - Казак
Дата добавления - 28.01.2018 в 13:14
Pelena Дата: Воскресенье, 28.01.2018, 16:38 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Казак, проблема ведь была не в том, как создать кнопку, правда? Сформулируйте адекватное название темы.
И не надо цитировать пост целиком, это тоже нарушение Правил форума. Исправьте

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКазак, проблема ведь была не в том, как создать кнопку, правда? Сформулируйте адекватное название темы.
И не надо цитировать пост целиком, это тоже нарушение Правил форума. Исправьте
Автор - Pelena
Дата добавления - 28.01.2018 в 16:38
Казак Дата: Четверг, 15.02.2018, 12:21 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Как сделать так, чтобы между вставкой "0" и "1" была хоть доли секунды паузы.

Sub Ïåðåêë13_Ùåë÷îê()
Range("BQ26").Value = 0
Range("BI26").Value = 1
End Sub

Sub Ïåðåêë11_Ùåë÷îê()
Range("BQ26").Value = 1
Range("BI26").Value = 0
End Sub
[moder]Тема закрыта. Причина: Нарушение п.п. 2, 3 (код без тегов), 4, 5j Правил форума. Игнорирование замечаний модератора[/moder]


Сообщение отредактировал Pelena - Четверг, 15.02.2018, 12:41
 
Ответить
СообщениеКак сделать так, чтобы между вставкой "0" и "1" была хоть доли секунды паузы.

Sub Ïåðåêë13_Ùåë÷îê()
Range("BQ26").Value = 0
Range("BI26").Value = 1
End Sub

Sub Ïåðåêë11_Ùåë÷îê()
Range("BQ26").Value = 1
Range("BI26").Value = 0
End Sub
[moder]Тема закрыта. Причина: Нарушение п.п. 2, 3 (код без тегов), 4, 5j Правил форума. Игнорирование замечаний модератора[/moder]
Автор - Казак
Дата добавления - 15.02.2018 в 12:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создать кнопку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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