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 для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте код 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 для Excel. Або пакетно вставте кілька кнопок опцій за допомогою Пакетні кнопки вставки корисність. Крім того, ви можете видалити всі прапорці одночасно за допомогою Прапорці з видаленням пакетів утиліта, як показано на скріншотах нижче. Ви можете піти на безкоштовно завантажити програмне забезпечення без обмежень протягом 30 днів.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Ваш скрипт VDA частково працює. Тому що, коли я застосував його, зв’язана клітинка поруч із прапорцем змінилася та була пов’язана з коміркою під нею.
Цей коментар був мінімізований модератором на сайті
Це чудово спрацювало для мене, за винятком того, що воно не вирівнює його з текстом у наступній клітинці, яка вирівнюється знизу. Чи є спосіб вирівняти прапорці для вирівнювання знизу, щоб змусити їх вирівняти текст у наступній клітинці? Спасибі!
Цей коментар був мінімізований модератором на сайті
VBA для мене взагалі не працює. Коли я натискаю F5, виявляється, що модуль працює, але прапорці не рухаються.
Цей коментар був мінімізований модератором на сайті
Після ще кількох експериментів я зрозумів, що VBA працює для вставлених вручну прапорців, але якщо я використовую пакетну вставку Kutools, це не так. Як відцентрувати всі прапорці, вставлені за допомогою Kutools?
Цей коментар був мінімізований модератором на сайті
Привіт, quadma,
Код також працює для прапорців, вставлених Kutools. Яку версію Excel ви використовуєте?
Цей коментар був мінімізований модератором на сайті
Я використовую Office 360. Я думаю, що проблема, яку я маю, полягає в тому, що коли я використовую пакетну вставку Kutools, розмір об’єкта прапорця дорівнює ширині стовпця, в який він вставлений (тобто ширина об’єкта прапорця дорівнює більше, ніж його висота), при цьому сам видимий прапорець вирівнюється ліворуч у межах об’єкта. Якщо я вибираю всі об’єкти прапорців, а потім зміню їх розмір, щоб висота та довжина були однаковими, а потім запускав VBA, він потім центрував прапорці в стовпці.





Це здається непотрібним кроком, враховуючи, що прапорці квадратні, чому Kultools не робить об’єкти прапорців квадратними?
Цей коментар був мінімізований модератором на сайті
Привіт, quadma,
Прапорці, вставлені Kutools, такі ж, як і Прапорець (контроль форми) який вставлено Excel.
Я не дуже розумію, що ви сказали «зробити об’єкт прапорця квадратним». Зазвичай прапорець містить поле поля та поле значення. Kutools зберігає значення прапорців порожнім, якщо вибрані клітинки порожні. І якщо у виділених клітинках є значення, значення клітинки буде прийнято як значення прапорця.
Цей коментар був мінімізований модератором на сайті
Я завантажив зображення, щоб показати, що я маю на увазі. Сподіваюся, це допоможе.
Цей коментар був мінімізований модератором на сайті
Привіт, quadma, я зрозумів вашу думку. Ми подумаємо над цим і дякуємо за ваше терпіння.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця