Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Checkbox дублирование формулы
 
#1
04.01.2017 00:11:05
Добрый вечер!

Есть галка checkbox и условное форматирование цветом, зависящее от галки.
Если нужно сделать 50-100 таких галок с однотипным форматированием, можно как-то чекбоксы привязать к ячейкам автоматически, а не вручную?
При нажатии галки соседняя ячейка везде просто меняет цвет по сути.

Спасибо
 
 
 
#2
04.01.2017 00:14:28
для каждой строки свой переключатель - неоптимально.
Лучше макросом. Например, при двойном клике на ячейке столбца, при выделении ячейки... Но решение не для этой темы.

Если не уговорил, покажите файл -пример.
 
 
 
#3
04.01.2017 00:55:45
checkthesound, если "галка checkbox" это Флажок с панели формы, назначьте им всем один макрос
Код
Sub Ch()
  With ActiveSheet.CheckBoxes(Application.Caller)
    .TopLeftCell.Offset(, 1).Interior.ColorIndex = IIf(.Value = xlYes, 4, 3)
  End With
End Sub
 
 
 
#4
04.01.2017 10:32:32
Цитата
vikttur написал:  покажите файл -пример.
Вот такой пример, строчек планируется около 100 штук.
Заливка ячейки с датой (дедлайн) меняет цвет в зависимости от текущей даты.
При этом если нажата галочка, то эти правила не действуют, и цвет меняется на другой.

Вопрос в том, как привязать чекбокс к ячейке автоматически, чтобы не делать это 100 раз через свойства чекбокса и ручной выбор ячейки.
Изменено: checkthesound - 04.01.2017 15:33:18
 
 
 
#5
04.01.2017 10:58:41
Цитата
checkthesound написал:
Вот такой пример
Где он? ))
Я бы использовал псевдо-чекбоксы и событие двойного клика. Или правый клик.
 
 
 
#6
04.01.2017 11:07:46
Сорри) во вложении
Изменено: checkthesound - 04.01.2017 15:32:43
 
 
 
#7
04.01.2017 11:11:10
checkthesound, не нужно меня цитировать, да ещё и с таким количеством пустых строк - исправьте своё сообщение.
Чтобы показать файл, совсем необязательно создавать новое сообщение: старое можно редактировать. В том числе добавить файл.
 
 
 
#8
04.01.2017 15:34:05
Сообщение №3 - код не помог?
 
 
 
#9
04.01.2017 20:04:52
vikttur, не помогло, к сожалению
 
 
 
#10
04.01.2017 21:28:49
checkthesound, так можно связать каждый флажок с ячейкой, в которой находится его левый верхний угол - если он еще не связан.
Учтите, что в ячейках D10, D11, D12 находятся по 6 флажков - отсюда некоторое торможение.
Код
Sub ch1()
Dim c As CheckBox
  For Each c In ActiveSheet.CheckBoxes
    If c.LinkedCell = "" Then c.LinkedCell = c.TopLeftCell.Address
  Next
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх