Note: The other languages of the website are Google-translated. Back to English

Как установить флажок в ячейке в 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 дня.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Ваш скрипт VDA частично работает. Потому что, когда я применил его, связанная ячейка рядом с флажком изменилась и была связана с ячейкой под ней.
Этот комментарий был сведен к минимуму модератором на сайте
Это отлично сработало для меня, за исключением того, что оно не выравнивает его с текстом в следующей ячейке, которая выравнивается по нижнему краю. Есть ли способ выровнять флажки для выравнивания по нижнему краю, чтобы они выровнялись с текстом в следующей ячейке? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
VBA у меня вообще не работает. Когда нажимаю F5, то вроде модуль запускается, но галочки не двигались.
Этот комментарий был сведен к минимуму модератором на сайте
После еще нескольких экспериментов я понял, что VBA работает для флажков, вставленных вручную, но если я использую пакетную вставку Kutools, это не так. Как центрировать все флажки, вставленные с помощью Kutools?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, quadma,
Код также работает для флажков, установленных Kutools. Какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Я использую Office 360. Я думаю, что проблема, с которой я сталкиваюсь, заключается в том, что когда я использую пакетную вставку Kutools, размер объекта флажка равен ширине столбца, в который он вставлен (т.е. ширина объекта флажка равна больше, чем его высота), при этом сам видимый флажок остается выровненным внутри объекта. Если я выберу все объекты флажков, а затем изменю их размер так, чтобы высота и длина были равны, а затем запустил VBA, он центрирует флажки внутри столбца.





Это кажется ненужным шагом, учитывая, что флажки квадратные, почему Kultools не делает объекты флажков квадратными?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, quadma,
Флажки, вставленные Kutools, такие же, как Флажок (контроль формы) которые вставлены Excel.
Я не очень понимаю, что вы сказали «сделать объект флажка квадратным». Обычно флажок включает поле поля и поле значения. Kutools сохраняет значение флажков пустым, если выбранные ячейки пусты. И если в выбранных ячейках есть значения, значение ячейки будет принято в качестве значения флажка.
Этот комментарий был сведен к минимуму модератором на сайте
Я загрузил картинку, чтобы показать, что я имею в виду. Надеюсь, это поможет.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, quadma, я понял твою точку зрения. Мы подумаем об этом и благодарим вас за терпение.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL