Як автоцентрувати прапорець у комірці в 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 Sub3 Натисніть кнопку F5 ключ. Потім усі прапорці негайно переміщуються в центр комірок, як показано нижче.
примітки: Цей код VBA можна застосувати як до CheckBox (керування ActiveX), так і до CheckBox (контроль форми).
Порада: Якщо ви хочете вставити декілька прапорців у вибраний діапазон, ви можете спробувати Прапорці вставки партії утиліта pf Kutools for Excel. Або пакетно вставте кілька кнопок опцій за допомогою Пакетні кнопки вставки корисність. Крім того, ви можете видалити всі прапорці одночасно за допомогою Прапорці з видаленням пакетів утиліта, як показано на скріншотах нижче. Ви можете піти на безкоштовно завантажити програмне забезпечення без обмежень 30 днів.
Статті по темі:
- Як створити випадаючий список із декількома прапорцями в Excel?
- Як змінити вказане значення комірки або колір, якщо в Excel встановлено прапорець?
- Як виділити клітинку або рядок за допомогою прапорця в Excel?
- Як встановити прапорець на основі значення комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
