Как установить все флажки с помощью одного флажка в Excel?
Флажки очень полезны для наших пользователей Excel, со списком флажков мы можем выбрать некоторые параметры на листе. Если необходимо установить сразу несколько флажков, установка их по одному будет утомительной и трудоемкой. Здесь я могу представить вам, как установить все флажки с помощью одного флажка, то есть, когда вы установите этот основной флажок, все флажки текущего рабочего листа будут выбраны немедленно.
Установите все флажки, используя один флажок с кодом VBA
Установите все флажки, используя один флажок с кодом VBA
Чтобы установить все флажки на листе с помощью единого основного флажка, выполните следующие действия:
1. Во-первых, вы можете добавить флажок и назвать его Выбрать все, это будет ваш главный флажок, см. снимок экрана:
2. Затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.
3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: установите все флажки с помощью одного флажка
Sub SelectAll_Click()
'Update by Extendoffice
Dim xCheckBox As CheckBox
For Each xCheckBox In Application.ActiveSheet.CheckBoxes
If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("Check Box 1").Name Then
xCheckBox.Value = Application.ActiveSheet.CheckBoxes("Check Box 1").Value
End If
Next
End Sub
4. Затем сохраните и закройте этот код, вернитесь на рабочий лист, щелкните правой кнопкой мыши Выбрать все флажок и выберите Назначить макрос из контекстного меню см. снимок экрана:
5. В Назначить макрос диалоговое окно, нажмите ВыбратьВсе_Клик вариант в Имя макроса список, а затем щелкните OK кнопку, чтобы закрыть это диалоговое окно, см. снимок экрана:
6. И теперь, когда вы устанавливаете основной флажок «Выбрать все», все остальные флажки текущего рабочего листа проверяются сразу.
Внимание: В приведенном выше коде флажок 1 - это имя вашего основного флажка, его можно просмотреть в Имя Box щелкнув его правой кнопкой мыши, и измените его по своему усмотрению.
Статьи по теме:
Как связать флажок с несколькими ячейками в Excel?
Как быстро вставить несколько флажков в Excel?
Как быстро удалить несколько флажков в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
