Как да премахнете отметката или премахнете отметката от всички квадратчета наведнъж в Excel?
Как можете да премахнете отметката или да премахнете отметката от всички отметнати квадратчета наведнъж в работен лист, както е показано на следната екранна снимка? В тази статия ще говоря за някои бързи кодове за разрешаването му.
Премахнете отметката или премахнете отметката от всички отметнати квадратчета с VBA код
Премахнете отметката или премахнете отметката от всички отметнати квадратчета с VBA код
Премахнете отметката или премахнете отметката от всички отметнати квадратчета (Контроли на формуляра):
Ако вашите квадратчета за отметка са контроли на формуляри, можете да ги премахнете наведнъж със следния VBA код:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 Controls):
Ако квадратчетата за отметка са ActiveX контроли, моля, приложете следния VBA код:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Премахнете отметката или премахнете отметката от всички отметнати квадратчета (ActiveX Controls):
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% и намалява стотици кликвания на мишката за вас всеки ден!