Jak automatycznie wyśrodkować pole wyboru w komórce w programie Excel?
Podczas wstawiania pól wyboru w komórkach w programie Excel możesz zauważyć, że trudno jest uporządkować wszystkie pola wyboru, jak pokazano na lewym zrzucie ekranu. Właściwie możesz przenieść wszystkie pola wyboru do środka komórki, aby zachować porządek. Metoda opisana w tym artykule może ci pomóc.
Pole wyboru Auto-center w komórce z kodem VBA
Pole wyboru Auto-center w komórce z kodem VBA
Aby automatycznie wyśrodkować wszystkie pola wyboru w komórkach w bieżącym arkuszu, wykonaj następujące czynności.
1. W arkuszu, musisz automatycznie wyśrodkować wszystkie pola wyboru, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej kod VBA do okna kodu.
Kod VBA: automatycznie wyśrodkuj wszystkie pola wyboru w komórkach
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. wciśnij F5 klucz. Następnie wszystkie pola wyboru są natychmiast przenoszone do środka komórek, jak pokazano na zrzucie ekranu.
Note: Ten kod VBA można zastosować zarówno do CheckBox (formant ActiveX), jak i CheckBox (formantu).
Wskazówka: Jeśli chcesz wstawić wiele pól wyboru w wybranym zakresie zbiorczo, możesz wypróbować Wstaw pola wyboru wsadowego narzędzie pf Kutools dla programu Excel. Lub wstaw zbiorczo wiele przycisków opcji z rozszerzeniem Przyciski opcji wstawiania wsadowego użyteczność. Poza tym możesz usunąć wszystkie pola wyboru jednocześnie za pomocą Batch Usuń pola wyboru narzędzie, jak pokazano poniżej zrzuty ekranu. Możesz iść do pobierz bezpłatnie oprogramowanie bez ograniczeń w ciągu 30 dni.
Podobne artykuły:
- Jak utworzyć listę rozwijaną z wieloma polami wyboru w programie Excel?
- Jak zmienić określoną wartość lub kolor komórki, gdy pole wyboru jest zaznaczone w programie Excel?
- Jak wyróżnić komórkę lub wiersz za pomocą pola wyboru w programie Excel?
- Jak zaznaczyć pole wyboru na podstawie wartości komórki w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!