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

Вход

Регистрация

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

 

= Мир MS Excel/Кнопки включения выключения флажков - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Кнопки включения выключения флажков
vitia88 Дата: Среда, 20.03.2019, 11:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток уважаемые гуру excel :) . Столкнулся с такой проблемой, в книге 7 флажков и 2 кнопки "вкл" "выкл" (все созданы через элементы управления). В созданиях макроса слабо разбираюсь, потому прошу помощи у вас. Как сделать что бы кнопка "вкл" включала флажки, кнопка "выкл" выключала флажки. За ранее спасибо за помощь!
К сообщению приложен файл: __.xlsm (15.8 Kb)


Сообщение отредактировал vitia88 - Среда, 20.03.2019, 11:33
 
Ответить
СообщениеДоброго времени суток уважаемые гуру excel :) . Столкнулся с такой проблемой, в книге 7 флажков и 2 кнопки "вкл" "выкл" (все созданы через элементы управления). В созданиях макроса слабо разбираюсь, потому прошу помощи у вас. Как сделать что бы кнопка "вкл" включала флажки, кнопка "выкл" выключала флажки. За ранее спасибо за помощь!

Автор - vitia88
Дата добавления - 20.03.2019 в 11:32
_Boroda_ Дата: Среда, 20.03.2019, 12:09 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub Da()
    For Each c_ In ActiveSheet.CheckBoxes
        c_.Value = True
    Next
End Sub
Sub Net()
    For Each c_ In ActiveSheet.CheckBoxes
        c_.Value = False
    Next
End Sub
[/vba]
К сообщению приложен файл: -13-1.xlsm (21.2 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub Da()
    For Each c_ In ActiveSheet.CheckBoxes
        c_.Value = True
    Next
End Sub
Sub Net()
    For Each c_ In ActiveSheet.CheckBoxes
        c_.Value = False
    Next
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 20.03.2019 в 12:09
vitia88 Дата: Среда, 20.03.2019, 12:30 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо за оперативный ответ! А можно ли как кто кнопки привязать к конкретным флажкам? Потому как на листе будут располагаться другие флажки, и за их включение выключение будут отвечать другие кнопки
К сообщению приложен файл: 2484431.xlsm (25.1 Kb)
 
Ответить
СообщениеСпасибо за оперативный ответ! А можно ли как кто кнопки привязать к конкретным флажкам? Потому как на листе будут располагаться другие флажки, и за их включение выключение будут отвечать другие кнопки

Автор - vitia88
Дата добавления - 20.03.2019 в 12:30
_Boroda_ Дата: Среда, 20.03.2019, 12:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Можно. По названиям, по положению, по привязке к ячейкам, по названию или положению нажатой кнопки, по положению спутников NASA, по последней инструкции ВЦСПС, ...

[vba]
Код
Sub Da()
    lf0_ = Cells(1, 1).Left 'лев. граница ячейки А1
    lf1_ = Cells(1, 2).Left 'лев. граница ячейки В1
    For Each c_ In ActiveSheet.CheckBoxes
        lfc_ = c_.Left
        If lfc_ >= lf0_ And lfc_ <= lf1_ Then
            c_.Value = True
        End If
    Next
End Sub
Sub Net()
    lf0_ = Cells(1, 1).Left
    lf1_ = Cells(1, 2).Left
    For Each c_ In ActiveSheet.CheckBoxes
        lfc_ = c_.Left
        If lfc_ >= lf0_ And lfc_ <= lf1_ Then
            c_.Value = False
        End If
    Next
End Sub
[/vba]
К сообщению приложен файл: 2484431_1.xlsm (26.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожно. По названиям, по положению, по привязке к ячейкам, по названию или положению нажатой кнопки, по положению спутников NASA, по последней инструкции ВЦСПС, ...

[vba]
Код
Sub Da()
    lf0_ = Cells(1, 1).Left 'лев. граница ячейки А1
    lf1_ = Cells(1, 2).Left 'лев. граница ячейки В1
    For Each c_ In ActiveSheet.CheckBoxes
        lfc_ = c_.Left
        If lfc_ >= lf0_ And lfc_ <= lf1_ Then
            c_.Value = True
        End If
    Next
End Sub
Sub Net()
    lf0_ = Cells(1, 1).Left
    lf1_ = Cells(1, 2).Left
    For Each c_ In ActiveSheet.CheckBoxes
        lfc_ = c_.Left
        If lfc_ >= lf0_ And lfc_ <= lf1_ Then
            c_.Value = False
        End If
    Next
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 20.03.2019 в 12:59
vitia88 Дата: Среда, 20.03.2019, 21:10 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо!!! то что надо :D
 
Ответить
СообщениеСпасибо!!! то что надо :D

Автор - vitia88
Дата добавления - 20.03.2019 в 21:10
  • Страница 1 из 1
  • 1
Поиск:

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