Как установить флажок в ячейке в Excel?
При вставке флажков в ячейки Excel вы можете заметить, что сложно расположить все флажки в порядке, как показано на снимке экрана ниже. На самом деле, вы можете переместить все флажки в центр ячейки, чтобы они были в аккуратном порядке. Метод в этой статье может вам помочь.
Флажок Автоцентр в ячейке с кодом VBA
Флажок Автоцентр в ячейке с кодом VBA
Чтобы автоматически центрировать все флажки в ячейках на текущем листе, сделайте следующее.
1. На листе вам нужно автоматически центрировать все флажки, нажмите другой + 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 Sub
3. нажмите F5 ключ. Затем все флажки сразу перемещаются в центр ячеек, как показано на скриншоте ниже.
Внимание: Этот код VBA может применяться как к CheckBox (элемент управления ActiveX), так и к CheckBox (элемент управления формой).
Наконечник: Если вы хотите вставить несколько флажков в выбранный диапазон сразу, вы можете попробовать Флажки пакетной вставки утилита pf Kutools for Excel. Или пакетно вставьте несколько опциональных кнопок с Кнопки параметров пакетной вставки утилита. Кроме того, вы можете удалить сразу все флажки с помощью Флажки пакетного удаления утилита, как показано на скриншотах ниже. Ты можешь пойти в бесплатно скачать программу без ограничений в течение 30 дней.
Статьи по теме:
- Как создать выпадающий список с несколькими флажками в Excel?
- Как изменить указанное значение или цвет ячейки при установленном флажке в Excel?
- Как выделить ячейку или строку с помощью флажка в Excel?
- Как установить флажок на основе значения ячейки в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!