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

Вход

Регистрация

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

 

= Мир MS Excel/выделить/снять выделение со всех флажков (Макросы/Sub) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
выделить/снять выделение со всех флажков (Макросы/Sub)
annsuslikova Дата: Понедельник, 03.06.2024, 11:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2016
Добрый день!
Помогите создать флажок, который будет убирать все остальные выделенные флажки, пример прилагаю
К сообщению приложен файл: primer.xlsm (28.2 Kb) · 5236511.xlsm (28.2 Kb)


Ann
 
Ответить
СообщениеДобрый день!
Помогите создать флажок, который будет убирать все остальные выделенные флажки, пример прилагаю

Автор - annsuslikova
Дата добавления - 03.06.2024 в 11:06
Nic70y Дата: Понедельник, 03.06.2024, 11:58 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
так
[vba]
Код
Sub ux_()
    a = ActiveSheet.CheckBoxes("FLAG").Value
    For Each u In ActiveSheet.CheckBoxes
        u.Value = a
    Next
End Sub
[/vba]хотели?
К сообщению приложен файл: 18.xlsm (32.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениетак
[vba]
Код
Sub ux_()
    a = ActiveSheet.CheckBoxes("FLAG").Value
    For Each u In ActiveSheet.CheckBoxes
        u.Value = a
    Next
End Sub
[/vba]хотели?

Автор - Nic70y
Дата добавления - 03.06.2024 в 11:58
annsuslikova Дата: Вторник, 04.06.2024, 05:38 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2016
Добрый день!
Единственное без выделения всех флажков, только снятие. Большое спасибо , подскажите , а как вы это сделали по действиям , я по разному пробовала, не получается


Ann
 
Ответить
СообщениеДобрый день!
Единственное без выделения всех флажков, только снятие. Большое спасибо , подскажите , а как вы это сделали по действиям , я по разному пробовала, не получается

Автор - annsuslikova
Дата добавления - 04.06.2024 в 05:38
annsuslikova Дата: Вторник, 04.06.2024, 05:40 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2016
И в идеале , что например абзац рамы - могла выбираться и считаться только одна рама . это конечно другая тема, но все равно.


Ann
 
Ответить
СообщениеИ в идеале , что например абзац рамы - могла выбираться и считаться только одна рама . это конечно другая тема, но все равно.

Автор - annsuslikova
Дата добавления - 04.06.2024 в 05:40
Nic70y Дата: Вторник, 04.06.2024, 08:17 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
по действиям

1) вставил флажок
2) присвоил ему имя (это не обязательно, просто чтоб не путаться с №№)
3) написал макрос
4) назначил флажку макрос
только снятие.

ну тогда флажок нелогично - лучше кнопка
[vba]
Код
Sub ux_()
    For Each u In ActiveSheet.CheckBoxes
        u.Value = False
    Next
End Sub
[/vba]
могла выбираться и считаться только одна рама
данные - проверка данных
К сообщению приложен файл: 19.xlsm (33.3 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение
по действиям

1) вставил флажок
2) присвоил ему имя (это не обязательно, просто чтоб не путаться с №№)
3) написал макрос
4) назначил флажку макрос
только снятие.

ну тогда флажок нелогично - лучше кнопка
[vba]
Код
Sub ux_()
    For Each u In ActiveSheet.CheckBoxes
        u.Value = False
    Next
End Sub
[/vba]
могла выбираться и считаться только одна рама
данные - проверка данных

Автор - Nic70y
Дата добавления - 04.06.2024 в 08:17
annsuslikova Дата: Вторник, 04.06.2024, 09:53 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2016
@Nic70y огромное вам спасибо :)


Ann
 
Ответить
Сообщение@Nic70y огромное вам спасибо :)

Автор - annsuslikova
Дата добавления - 04.06.2024 в 09:53
  • Страница 1 из 1
  • 1
Поиск:

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