Як встановити всі прапорці за допомогою одного прапорця в Excel?

Прапорці дуже корисні для наших користувачів Excel, за допомогою списку прапорців ми можемо вибрати деякі параметри на робочому аркуші. Якщо потрібно встановити багато прапорців одночасно, вибирати їх по одному буде нудно та трудомістко. Тут я можу запропонувати вам вибрати всі прапорці за допомогою одного прапорця, тобто, коли ви встановлюєте цей головний прапорець, усі прапорці поточного робочого аркуша будуть негайно вибрані.

Виберіть усі прапорці, використовуючи єдиний прапорець із кодом VBA

Виберіть усі прапорці, використовуючи єдиний прапорець із кодом VBA

Щоб позначити всі прапорці робочого аркуша за допомогою одного головного прапорця, виконайте такі дії:

1. По-перше, ви можете додати прапорець і назвати його як Вибрати всі, це буде ваш головний прапорець, див. знімок екрана:

2. Потім утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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, в Призначити макрос діалогове вікно натисніть кнопку Виберіть All_Click опція в Назва макросу і натисніть кнопку OK , щоб закрити це діалогове вікно, див. знімок екрана:

6. І тепер, коли ви ставите галочку Виділити все, усі інші прапорці поточного аркуша були позначені одразу.

примітки: У наведеному вище коді прапорець 1 - це ім'я вашого головного прапорця, ви можете переглянути його в Ім'я Box клацнувши правою кнопкою миші та змініть його відповідно до своїх потреб.

Статті по темі:

Як зв’язати прапорець із кількома комірками в Excel?

Як швидко вставити кілька прапорців у Excel?

Як швидко видалити кілька прапорців у Excel?