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

Вход

Регистрация

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

 

= Мир MS Excel/Выбор всех флажков - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор всех флажков (Формулы/Formulas)
Выбор всех флажков
Asretyq Дата: Среда, 26.04.2017, 14:06 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Как сделать при выборе одного флажка выбираются остальные, а другие независимы. То есть я выбираю флажок 1, то включаются другие флажки, выключаю флажок 1 и другие тоже выключаются. А остальные сами по себе
К сообщению приложен файл: _Microsoft_Exce.xlsx(12Kb)
 
Ответить
СообщениеКак сделать при выборе одного флажка выбираются остальные, а другие независимы. То есть я выбираю флажок 1, то включаются другие флажки, выключаю флажок 1 и другие тоже выключаются. А остальные сами по себе

Автор - Asretyq
Дата добавления - 26.04.2017 в 14:06
Udik Дата: Среда, 26.04.2017, 15:30 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1368
Репутация: 174 ±
Замечаний: 0% ±

Excel 2016 х 64
Можно таким вот извратным способом. Связываем чекбокс с ячейкой, рядом формула тупо дублирует значение связанной ячейки. И в модуле листа отслеживаем событие Calculate
[vba]
Код

Private Sub Worksheet_Calculate()

Application.EnableEvents = False
ActiveSheet.CheckBoxes = ActiveSheet.Cells(1, 10).Value
Application.EnableEvents = True

End Sub

[/vba]
[p.s.]Я не знаю как по-другому отследить смену флажка на листе.
К сообщению приложен файл: 0t.xlsm(21Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Среда, 26.04.2017, 15:33
 
Ответить
СообщениеМожно таким вот извратным способом. Связываем чекбокс с ячейкой, рядом формула тупо дублирует значение связанной ячейки. И в модуле листа отслеживаем событие Calculate
[vba]
Код

Private Sub Worksheet_Calculate()

Application.EnableEvents = False
ActiveSheet.CheckBoxes = ActiveSheet.Cells(1, 10).Value
Application.EnableEvents = True

End Sub

[/vba]
[p.s.]Я не знаю как по-другому отследить смену флажка на листе.

Автор - Udik
Дата добавления - 26.04.2017 в 15:30
sboy Дата: Среда, 26.04.2017, 15:35 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 583
Репутация: 154 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Еще вариант
[vba]
Код
Sub Флажок1_Щелчок()
Application.ScreenUpdating = False
    Set aC = ActiveCell
    ActiveSheet.Shapes(1).Select
    onoff = Selection.Value
        For x = 2 To ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(x).Select
            Selection.Value = onoff
        Next x
    aC.Select
Application.ScreenUpdating = True
End Sub
[/vba]
[p.s.]правда топорный с Селектами, пока только учусь писать коды для элементов управления на листе
К сообщению приложен файл: _Microsoft_Exce.xlsm(20Kb)
 
Ответить
СообщениеДобрый день.
Еще вариант
[vba]
Код
Sub Флажок1_Щелчок()
Application.ScreenUpdating = False
    Set aC = ActiveCell
    ActiveSheet.Shapes(1).Select
    onoff = Selection.Value
        For x = 2 To ActiveSheet.Shapes.Count
            ActiveSheet.Shapes(x).Select
            Selection.Value = onoff
        Next x
    aC.Select
Application.ScreenUpdating = True
End Sub
[/vba]
[p.s.]правда топорный с Селектами, пока только учусь писать коды для элементов управления на листе

Автор - sboy
Дата добавления - 26.04.2017 в 15:35
Udik Дата: Среда, 26.04.2017, 17:09 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1368
Репутация: 174 ±
Замечаний: 0% ±

Excel 2016 х 64
Тогда можно упростить. Вешаем на чекбокс макрос.
[vba]
Код

Sub flag1_Щелчок()

ActiveSheet.CheckBoxes = ActiveSheet.CheckBoxes(1).Value > 0

End Sub

[/vba]
К сообщению приложен файл: 2762798.xlsm(21Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеТогда можно упростить. Вешаем на чекбокс макрос.
[vba]
Код

Sub flag1_Щелчок()

ActiveSheet.CheckBoxes = ActiveSheet.CheckBoxes(1).Value > 0

End Sub

[/vba]

Автор - Udik
Дата добавления - 26.04.2017 в 17:09
Asretyq Дата: Четверг, 27.04.2017, 06:44 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, sboy, спасибо, то что надо!!!
 
Ответить
СообщениеUdik, sboy, спасибо, то что надо!!!

Автор - Asretyq
Дата добавления - 27.04.2017 в 06:44
Asretyq Дата: Четверг, 27.04.2017, 06:54 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
А вот если мне надо диапазон указать флажков?? Это с ошибкой выходит
[vba]
Код
ActiveSheet.CheckBoxes(1 - 19) = ActiveSheet.CheckBoxes(20).Value > 0
[/vba]
 
Ответить
СообщениеА вот если мне надо диапазон указать флажков?? Это с ошибкой выходит
[vba]
Код
ActiveSheet.CheckBoxes(1 - 19) = ActiveSheet.CheckBoxes(20).Value > 0
[/vba]

Автор - Asretyq
Дата добавления - 27.04.2017 в 06:54
Udik Дата: Четверг, 27.04.2017, 13:08 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1368
Репутация: 174 ±
Замечаний: 0% ±

Excel 2016 х 64
Тогда циклом только
[vba]
Код

for i=1 to 19
ActiveSheet.CheckBoxes(i) = ActiveSheet.CheckBoxes(20).Value > 0
next i
[/vba]


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеТогда циклом только
[vba]
Код

for i=1 to 19
ActiveSheet.CheckBoxes(i) = ActiveSheet.CheckBoxes(20).Value > 0
next i
[/vba]

Автор - Udik
Дата добавления - 27.04.2017 в 13:08
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор всех флажков (Формулы/Formulas)
Страница 1 из 11
Поиск:

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