Як зняти або зняти прапорці відразу всі прапорці в Excel?
Як ви могли зняти або зняти позначки з усіх прапорців відразу на аркуші, як показано на наступному знімку екрана? У цій статті я розповім про деякі швидкі коди для її вирішення.
Зніміть або зніміть усі прапорці з кодом VBA
Зніміть або зніміть усі прапорці з кодом VBA
Зніміть або зніміть прапорці з усіх прапорців (елементи керування формою):
Якщо ваші прапорці є елементами керування формою, ви можете зняти їх відразу за допомогою такого коду VBA:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Зніміть або зніміть усі прапорці (елементи керування формою):
Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
3. Потім натисніть F5 для запуску цього коду, і всі позначені прапорці відразу зняті на активному аркуші.
Зніміть або зніміть усі прапорці (елементи керування ActiveX):
Якщо прапорцями є елементи керування ActiveX, застосуйте наведений нижче код VBA:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Зніміть або зніміть прапорці з усіх прапорців (елементи керування ActiveX):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub
3. Потім натисніть F5 клавішу для запуску цього коду, і всі позначені прапорці відмінено відразу на активному аркуші.
Вставляйте відразу кілька прапорців у виділеннях
Kutools для Excel's Прапорці вставки партії Утиліта може допомогти вам швидко вставити кілька прапорців одночасно. Клацніть, щоб завантажити Kutools для Excel!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!