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

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.

Uwagi: 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 bezpłatne pobieranie oprogramowania bez ograniczeń w 30 dni.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (9)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Twój skrypt VDA częściowo działa. Ponieważ kiedy to zastosowałem, połączona komórka obok pola wyboru została zmieniona i połączona z komórką pod nią.
Ten komentarz został zminimalizowany przez moderatora na stronie
To działało dla mnie świetnie, z wyjątkiem tego, że nie wyrównuje go z tekstem w następnej komórce, która jest wyrównana do dołu. Czy istnieje sposób na wyrównanie pól wyboru dla wyrównania do dołu, aby wyrównać je z tekstem w następnej komórce? Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
VBA w ogóle nie działa dla mnie. Kiedy naciskam F5, wydaje się, że moduł działa, ale pola wyboru się nie poruszają.
Ten komentarz został zminimalizowany przez moderatora na stronie
Po kilku dalszych eksperymentach zorientowałem się, że VBA działa z ręcznie wstawianymi polami wyboru, ale jeśli używam wstawiania wsadowego Kutools, tak nie jest. Jak wyśrodkować wszystkie pola wyboru wstawione za pomocą Kutools?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć quadma,
Kod działa również dla pól wyboru wstawionych przez Kutools. Z której wersji programu Excel korzystasz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Używam pakietu Office 360. Myślę, że problem, który mam, polega na tym, że kiedy używam wstawki wsadowej Kutools, rozmiar obiektu pola wyboru jest tak szeroki, jak kolumna, do której jest wstawiony (tj. Szerokość obiektu pola wyboru jest większa niż jego wysokość), z widocznym polem wyboru po pozostawieniu wyrównania w obrębie obiektu. Jeśli zaznaczę wszystkie obiekty pól wyboru, a następnie zmienię ich rozmiar, aby wysokość i długość były równe, a następnie uruchomię VBA, wyśrodkuje pola wyboru w kolumnie.





Wydaje się to niepotrzebnym krokiem, biorąc pod uwagę, że pola wyboru są kwadratowe, dlaczego Kultools nie powoduje, że obiekty pola wyboru są kwadratowe?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć quadma,
Pola wyboru wstawione przez Kutools są takie same jak Pole wyboru (kontrolka formularza) który wstawiony przez Excel.
Naprawdę nie rozumiem, jak powiedziałeś „uczynienie obiektu pola wyboru kwadratem”. Zwykle pole wyboru zawiera pole pola i pole wartości. Kutools pozostawia wartość pól wyboru pustą, jeśli wybrane komórki są puste. A jeśli w wybranych komórkach znajdują się wartości, wartość komórki zostanie przyjęta jako wartość pola wyboru.
Ten komentarz został zminimalizowany przez moderatora na stronie
Przesłałem zdjęcie, aby pokazać, o co mi chodzi. Mam nadzieję, że to pomoże.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć quadma, rozumiem. Pomyślimy o tym i dziękujemy za cierpliwość.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL