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

Вход

Регистрация

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

 

= Мир MS Excel/элемент управления Флажок на три ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » элемент управления Флажок на три ячейки (Формулы/Formulas)
элемент управления Флажок на три ячейки
Gold_Barsik Дата: Пятница, 16.08.2019, 21:33 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Доброго времени.
Подскажите, можно ли одним элементом управления Флажок задействовать три ячейки. Т.е. в трёх ячейках отобразить ИСТИНА при включении одного Флажка? Если да, то как.
 
Ответить
СообщениеДоброго времени.
Подскажите, можно ли одним элементом управления Флажок задействовать три ячейки. Т.е. в трёх ячейках отобразить ИСТИНА при включении одного Флажка? Если да, то как.

Автор - Gold_Barsik
Дата добавления - 16.08.2019 в 21:33
bmv98rus Дата: Пятница, 16.08.2019, 22:18 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
в двух ячейках сослаться на первую, а она пусть зависит от флажка.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениев двух ячейках сослаться на первую, а она пусть зависит от флажка.

Автор - bmv98rus
Дата добавления - 16.08.2019 в 22:18
Gold_Barsik Дата: Пятница, 16.08.2019, 22:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - Gold_Barsik
Дата добавления - 16.08.2019 в 22:26
krosav4ig Дата: Пятница, 16.08.2019, 23:22 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
в модуль [vba]
Код
Function xx(ParamArray r() As Variant) As Range
    Dim rng, b As Boolean
    If Application.Caller.Address = ActiveCell.Address Then
        Set xx = r(0).Cells(1, 1)
        b = xx
        For Each rng In r
            rng.Value = Not b
        Next
    End If
End Function
[/vba]
в диспетчер имен именованный диапазон
x
Код
=xx((Лист1!$B$2;Лист1!$D$2;Лист1!$B$5;Лист1!$D$5))
или, например,
Код
=xx(Лист1!$F$2:$F$3;Лист1!$H$2:$H$3;Лист1!$F$5:$F$6)

выделяем флажок, в строке формул пишем =x
К сообщению приложен файл: 9648676.xlsm (16.2 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
в модуль [vba]
Код
Function xx(ParamArray r() As Variant) As Range
    Dim rng, b As Boolean
    If Application.Caller.Address = ActiveCell.Address Then
        Set xx = r(0).Cells(1, 1)
        b = xx
        For Each rng In r
            rng.Value = Not b
        Next
    End If
End Function
[/vba]
в диспетчер имен именованный диапазон
x
Код
=xx((Лист1!$B$2;Лист1!$D$2;Лист1!$B$5;Лист1!$D$5))
или, например,
Код
=xx(Лист1!$F$2:$F$3;Лист1!$H$2:$H$3;Лист1!$F$5:$F$6)

выделяем флажок, в строке формул пишем =x

Автор - krosav4ig
Дата добавления - 16.08.2019 в 23:22
Gold_Barsik Дата: Пятница, 16.08.2019, 23:56 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 459
Репутация: 6 ±
Замечаний: 0% ±

2003
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - Gold_Barsik
Дата добавления - 16.08.2019 в 23:56
Мир MS Excel » Вопросы и решения » Вопросы по Excel » элемент управления Флажок на три ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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