Как удалить чекбоксы в эксель
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Добавление флажков и переключателей (элементы управления формы)
Для упрощения ввода данных вы можете вставлять такие элементы управления формы, как флажки и переключатели. Флажки хорошо подходят для форм с несколькими вариантами. Переключатели удобнее использовать, когда у пользователя только один вариант выбора.
Чтобы добавить флажок или переключатель, вам понадобится вкладка Разработчик на ленте.
Примечания: Чтобы добавить вкладку «Разработчик», выполните следующие действия:
- В Excel 2010 и последующих версиях выберите Параметры >файлов >настройка ленты, выберите поле Проверка разработчика и нажмите кнопку ОК.
- В Excel 2007 нажмите кнопку Microsoft Office >Параметры Excel >Популярные >показать вкладку Разработчик на ленте.
- Чтобы добавить поле проверка, перейдите на вкладку Разработчик, нажмите кнопку Вставка и в разделе Элементы управления формами выберите .
Чтобы добавить кнопку параметра, перейдите на вкладку Разработчик, нажмите кнопку Вставка и в разделе Элементы управления формами выберите . 
- Выберите ячейку, в которой нужно добавить флажок или переключатель.
Совет: Одновременно можно добавить только один флажок или кнопку параметра. Чтобы ускорить работу, выделите созданный элемент управления и выберите команды Копировать > Вставить.
Совет: Если виден не весь текст, щелкните и перетаскивайте один из маркеров, пока не будет виден весь текст. Размер элемента управления и его расстояние от текста изменить нельзя.
Форматирование элемента управления
После вставки флажка или переключателя желательно проверить, работает ли он нужным образом. Например, может потребоваться настроить его внешний вид или свойства.
Примечание: Размер переключателя внутри элемента управления и его расстояние от текста невозможно изменить.
- Чтобы отформатировать элемент управления, щелкните его правой кнопкой мыши и выберите пункт Формат элемента управления.
- В диалоговом окне Формат элемента управления на вкладке Элемент управления можно изменить следующие параметры:
- установлен: отображает выбранный переключатель.
- снят: отображает невыбранный переключатель.
- В поле Связь с ячейкой введите ссылку на ячейку, в которой содержится текущее состояние переключателя. Связанная ячейка возвращает номер выбранного переключателя в группе параметров. Для всех параметров в группе нужно использовать одну связанную ячейку. Для первого переключателя возвращается 1, для второго — 2 и т. д. Если на одном листе есть несколько групп переключателей, используйте для них отдельные связанные ячейки. Возвращенное число можно использовать в формуле для реагирования на выбранный параметр. Например, на форме сотрудника в группе Тип занятости есть два переключателя (Полная и Частичная), связанные с ячейкой C1. Когда пользователь выбирает один из них, формула в ячейке D1 использует значение «Полная», если установлен первый переключатель, или «Частичная», если выбран второй переключатель. =IF(C1=1,»Full-time»,»Part-time») Если нужно оценить более двух параметров в одной группе, для этого можно использовать функции ВЫБОР или ПРОСМОТР.
- Нажмите кнопку ОК.
Удаление элемента управления
- Щелкните элемент управления правой кнопкой мыши и нажмите клавишу DELETE.
В настоящее время в Excel в Интернете нельзя использовать проверка элементы управления box. Если вы работаете в Excel в Интернете и открываете книгу с проверка полями или другими элементами управления (объектами), вы не сможете изменить книгу, не удалив эти элементы управления.
Важно: Если появится сообщение «Изменить в браузере» или «Неподдерживаемые функции» и вы решили изменить книгу в браузере, все объекты, такие как проверка поля, поля со списком, немедленно теряются. Если это происходит и вы хотите вернуть эти объекты, используйте предыдущие версии для восстановления более ранней версии.
Если у вас есть классическое приложение Excel, выберите Открыть в Excel и добавьте проверка поля или кнопки параметров.
Дополнительные сведения
Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.
Как продублировать флажки и при этом чтобы они правильно работали в Excel?
Как продублировать флажки для каждой ячейке, при это не копировать каждый флажок и отдельно настраивать, чтобы при включеном флажке показывалась значение, а при выключеном «-» не показвалось?
Отслеживать
2,326 2 2 золотых знака 11 11 серебряных знаков 38 38 бронзовых знаков
задан 8 окт 2021 в 12:29
adam vensic adam vensic
Добро пожаловать на SO! Продублировать (или автоматически создать нужное количество) не очень сложно — этот макрос много раз скопирован в интернете. А вот с «отображением» — будут проблемы. Сам посуди — сбрасываем флажок и видим «-«. А теперь взводим его опять и. Откуда взять затёртое значение?
8 окт 2021 в 12:39
Макросом. Но это тупиковый путь — множить объекты. Использовать событие листа Private Sub Worksheet_SelectionChange(ByVal Target As Range) . При клике на ячейке записывается/удаляется/меняется любое значение (можно и прототип галки поставить, есть такие в шрифтах Wingdings)
8 окт 2021 в 12:41
@vikttur Да, чаще всего это избыточный дизайн. Если речь не идёт об удобстве туповатенькой сотрудницы, которая с компьютером очень «на Вы» и предпочитает «позвать мальчика», чтобы в очередной раз всё сделал за неё, чем взяться за мышку.
8 окт 2021 в 13:05
1 ответ 1
Сортировка: Сброс на вариант по умолчанию
Макрос действительно очень простой:
Private Sub RecreateCheckboxes() Const cDblCheckboxWidth As Double = 16 ' Ширина и высота будущих чекбоксов Const cStrCheckboxPrefix As String = "cbOplata_" ' Часть имени чекбоксов, создаваемых этой процедурой (чтобы не спутать с другими) Dim cb As CheckBox ' Один чекбокс - объект Dim rng As Range ' Диапазон ячеек, к которых чекбоксы будут созданы Dim rCell As Range ' Одна отдельная ячейка из этого диапазона Dim i As Long Application.ScreenUpdating = False ' Заморозить экран на время работы макроса On Error GoTo beforeExit 'Сначала удалить все чекбоксы с префиксом cStrCheckboxPrefix, чтобы не создавать дубли For Each cb In CheckBoxes If Left(cb.Name, Len(cStrCheckboxPrefix)) = cStrCheckboxPrefix Then cb.Delete Next Set rng = . ' Каким-нибудь способом определить диапазон, например, [D5:D30] For Each rCell In rng 'Разместить новый чекбокс в ячейке Set cb = CheckBoxes.Add( _ rCell.Left + rCell.Width / 2 - cDblCheckboxWidth / 2, _ rCell.Top, cDblCheckboxWidth, rCell.Height) 'Задать свойства нового чекбокса With cb .Name = cStrCheckboxPrefix & rCell.Address(False, False) 'Имя чекбокса будет вроде "cbOplata_D7" .Value = rCell.Value ' Сразу взвести или сбросить чекбокс в зависимости от значения в ячейке .LinkedCell = rCell.Address ' Привязать чекбокс к своей ячейке .Display3DShading = True .Characters.Text = "" End With 'Чтобы подавить вывод ИСТИНА/ЛОЖЬ в ячейке - спрячем любое её содержимое rCell.NumberFormat = ";;;" Next rCell beforeExit: Application.ScreenUpdating = True ' Разморозить экран End Sub
Будем считать, что настоящее значение для оплаты есть в какой-то предыдущей ячейке, а в колонке «Сума для передоплати» только формулы вида
=IF(D7;B7;"-") =ЕСЛИ(D7;B7;"-") Не проверял, но должно работать Проверил. Возможно, перед обоими CheckBoxes нужно добавить указание на лист — ActiveSheet.CheckBoxes или что-то подобное.
Как удалить чекбоксы в эксель
Сообщений: 39
Как убрать галочки из Checkbox макросом
Есть несколько checkbox’ов не на форме, а на рабочем листе.
Можно к.-л. сделать, чтобы по нажатию на кнопку (запуск макроса), все галочки убирались?
| пример_checkbox.zip (10.3 Кб, 46 просмотров) |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
Sub button_34() Dim sha As Shape: On Error Resume Next For Each sha In ActiveSheet.Shapes sha.OLEFormat.Object.Value = 0 Next sha End Sub
__ Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов
| EducatedFool |
| Посмотреть профиль |
| Найти ещё сообщения от EducatedFool |
Регистрация: 05.12.2007
Сообщений: 4,180
Sub Main() Dim Obj As Object For Each Obj In ActiveSheet.DrawingObjects If Obj.Name Like "Check Box*" Then Obj.Value = False Next End SubЧем шире угол зрения, тем он тупее.
Пользователь
Регистрация: 23.02.2010
Сообщений: 39
спасибо, работает
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
Sub button_34() For i = 1 To ActiveSheet.Shapes.Count - 1 ActiveSheet.Shapes("Check Box " & i).Select: Selection.Value = False Next [A1].Select End SubПользователь
Регистрация: 09.12.2008
Сообщений: 56
novak_26, если честно — не понял глубинного смысла задачи. если только так, для красоты.
Обращаться к элементу — не удобно. Может просто связать с ячейкой? тогда уже можно говорить об обработке данных просто формулами и макросом обратиться к ячейке/диапазону проще
обычно я на http://planetaexcel.ru/forum.php
Регистрация: 24.01.2011
Сообщений: 3,002
здравствуйте, может кто подсказать это же решение но в Ворде? спасибо
| Ципихович Эндрю |
| Посмотреть профиль |
| Найти ещё сообщения от Ципихович Эндрю |
Регистрация: 24.01.2011
Сообщений: 3,002
For i = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).OLEFormat.Object.Enabled = True ActiveDocument.InlineShapes(i).OLEFormat.Object = True ActiveDocument.InlineShapes(i).OLEFormat.Object = False Next i| Ципихович Эндрю |
| Посмотреть профиль |
| Найти ещё сообщения от Ципихович Эндрю |
| Похожие темы | ||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Как изменить цвет CheckBox’a | —=SaNitinDG=- | Assembler — Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 18.01.2010 13:53 |
| Как сделать checkbox случайным? | Serg-Grin | Общие вопросы Delphi | 9 | 20.10.2009 21:49 |
| Как красивей проверить, установлены ли галочки на нескольких checkbox’aх? | mosq | Общие вопросы Delphi | 5 | 28.09.2009 18:58 |
| Как правильно испльзовать CheckBox | Pirotexnik | Общие вопросы Delphi | 9 | 27.03.2009 16:01 |
| Убрать галочку с Checkbox | Romanbl4 | JavaScript, Ajax | 3 | 05.11.2008 23:06 |