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

Вход

Регистрация

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

 

= Мир MS Excel/Как размножить элемент управления флажок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как размножить элемент управления флажок (Формулы/Formulas)
Как размножить элемент управления флажок
valermihali4 Дата: Среда, 02.11.2016, 09:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Доброго дня.
Как размножить элемент управление флажок с зависимой ячейкой так что бы, связь с ячейкой менялась так же где находится сам флажок.
Просто нужно флажки поставить на 1800 строк.
Спасибо


Сообщение отредактировал valermihali4 - Среда, 02.11.2016, 10:25
 
Ответить
СообщениеДоброго дня.
Как размножить элемент управление флажок с зависимой ячейкой так что бы, связь с ячейкой менялась так же где находится сам флажок.
Просто нужно флажки поставить на 1800 строк.
Спасибо

Автор - valermihali4
Дата добавления - 02.11.2016 в 09:59
Manyasha Дата: Среда, 02.11.2016, 11:01 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
valermihali4, лепить кучу флажков - это не самый лучший вариант. Опишите, чего хотите добиться (смысл этих флажков) и покажите файл. Может кто-то предложит более удобный вариант.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеvalermihali4, лепить кучу флажков - это не самый лучший вариант. Опишите, чего хотите добиться (смысл этих флажков) и покажите файл. Может кто-то предложит более удобный вариант.

Автор - Manyasha
Дата добавления - 02.11.2016 в 11:01
valermihali4 Дата: Среда, 02.11.2016, 11:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
valermihali4, лепить кучу флажков - это не самый лучший вариант. Опишите, чего хотите добиться (смысл этих флажков) и покажите файл. Может кто-то предложит более удобный вариант.
К сообщению приложен файл: __.xlsx (9.8 Kb)
 
Ответить
Сообщение
valermihali4, лепить кучу флажков - это не самый лучший вариант. Опишите, чего хотите добиться (смысл этих флажков) и покажите файл. Может кто-то предложит более удобный вариант.

Автор - valermihali4
Дата добавления - 02.11.2016 в 11:13
buchlotnik Дата: Среда, 02.11.2016, 11:31 | Сообщение № 4
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Можно через выпадающий список - для планшета вполне норм
К сообщению приложен файл: -1-.xlsx (10.2 Kb)
 
Ответить
СообщениеМожно через выпадающий список - для планшета вполне норм

Автор - buchlotnik
Дата добавления - 02.11.2016 в 11:31
valermihali4 Дата: Среда, 02.11.2016, 11:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Можно через выпадающий список - для планшета вполне норм



Вполне приемлемо, надо попробовать.
Спасибо!!!
 
Ответить
Сообщение
Можно через выпадающий список - для планшета вполне норм



Вполне приемлемо, надо попробовать.
Спасибо!!!

Автор - valermihali4
Дата добавления - 02.11.2016 в 11:36
Wasilich Дата: Среда, 02.11.2016, 11:38 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Если правильно понимаю, оператор станка отмечает готова деталь или нет. Если да, то это можно отметить любым знаком и способом и получить - истину при наличии знака и ложь при отсутствии.
Этот код ставит или снимает "галочку" кликом мыши непосредственно в ячейке. А вот как это будет с планшетом не знаю. Но, вдруг пригодится.
[vba]
Код
'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("B2:B20")) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
        End If
End Sub
[/vba]
К сообщению приложен файл: valermihali4.xls (38.0 Kb)


Сообщение отредактировал Wasilich - Среда, 02.11.2016, 11:56
 
Ответить
СообщениеЕсли правильно понимаю, оператор станка отмечает готова деталь или нет. Если да, то это можно отметить любым знаком и способом и получить - истину при наличии знака и ложь при отсутствии.
Этот код ставит или снимает "галочку" кликом мыши непосредственно в ячейке. А вот как это будет с планшетом не знаю. Но, вдруг пригодится.
[vba]
Код
'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("B2:B20")) Is Nothing Then
            Target.Font.Name = "Marlett"
            If Target = vbNullString Then
                Target = "a"
            Else
                Target = vbNullString
            End If
        End If
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 02.11.2016 в 11:38
valermihali4 Дата: Среда, 02.11.2016, 12:08 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Осталось дело за малым))). Как теперь вставить этот макрос в свою книгу?)))
 
Ответить
СообщениеОсталось дело за малым))). Как теперь вставить этот макрос в свою книгу?)))

Автор - valermihali4
Дата добавления - 02.11.2016 в 12:08
valermihali4 Дата: Среда, 02.11.2016, 12:13 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
ААА дошло как))) Спасибо большое!!!
 
Ответить
СообщениеААА дошло как))) Спасибо большое!!!

Автор - valermihali4
Дата добавления - 02.11.2016 в 12:13
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как размножить элемент управления флажок (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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