Как автоматически центрировать флажок в ячейке Excel?
При вставке флажков в ячейки Excel вы можете заметить, что их сложно расположить в порядке, как показано на скриншоте ниже. На самом деле, вы можете переместить все флажки в центр ячеек, чтобы они были аккуратно упорядочены. Метод, описанный в этой статье, поможет вам.
Автоматическое центрирование флажка в ячейке с помощью кода VBA
Автоматическое центрирование флажка в ячейке с помощью кода VBA
Чтобы автоматически центрировать все флажки в ячейках текущего листа, выполните следующие действия.
1. В рабочем листе, где нужно автоматически центрировать все флажки, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений нажмите Вставить > Модуль. Затем скопируйте и вставьте код VBA в окно кода.
Код VBA: Автоматическое центрирование всех флажков в ячейках
Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub3. Нажмите клавишу F5. Затем все флажки сразу переместятся в центр ячеек, как показано на скриншоте ниже.
Примечание: Этот код VBA можно применять как к CheckBox (Элемент управления ActiveX), так и к CheckBox (Элемент управления формы).
Совет: Если вы хотите вставить несколько флажков в выбранную область оптом, вы можете воспользоваться функцией Пакетная вставка флажков из Kutools для Excel. Или пакетно вставить несколько кнопок опций с помощью функции Пакетная вставка кнопок опций. Кроме того, вы можете удалить все флажки одновременно с помощью функции Пакетное удаление флажков, как показано на скриншотах ниже. Вы можете бесплатно скачать программное обеспечение без ограничений на 30 дней.
Связанные статьи:
- Как создать выпадающий список с несколькими флажками в Excel?
- Как изменить значение или цвет указанной ячейки, когда флажок отмечен в Excel?
- Как выделить ячейку или строку с флажком в Excel?
- Как сделать флажок отмеченным на основе значения ячейки в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек