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

Hogyan lehet az Excel cellájában automatikusan központosítani a jelölőnégyzetet?

Miközben bejelöli a jelölőnégyzeteket az Excel celláiba, észreveheti, hogy nehéz az összes jelölőnégyzetet rendezetten rendezni, ahogy a bal oldali képernyőkép látható. Valójában az összes jelölőnégyzetet áthelyezheti a cellaközpontba, hogy rendben tartsa azokat. Ebben a cikkben szereplő módszer segíthet.

Auto-center jelölőnégyzet a cellában VBA kóddal


Auto-center jelölőnégyzet a cellában VBA kóddal

Az aktuális munkalap celláiban lévő összes jelölőnégyzet automatikus központosításához tegye a következőket.

1. A munkalapon az összes jelölőnégyzetet automatikusan központosítania kell, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a kódablakba.

VBA kód: Az összes jelölőnégyzet automatikus központosítása a cellákban

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. megnyomni a F5 kulcs. Ezután az összes jelölőnégyzet azonnal a cellák közepére kerül, ahogy az alábbi képen látható.

Megjegyzések: Ez a VBA kód mind a CheckBox (ActiveX Control), mind a CheckBox (Form Control) esetében alkalmazható.

Tipp: Ha tömegesen szeretne több jelölőnégyzetet beilleszteni a kiválasztott tartományba, akkor próbálja ki a Batch Insert jelölőnégyzetek segédprogram pf Kutools az Excel számára. Vagy tételesen helyezzen be több Opció Gombot a Batch Insert opció gombok hasznosság. Ezenkívül az összes jelölőnégyzetet egyszerre törölheti a Kötegelt törlés jelölőnégyzetek segédprogram az alábbi képernyőképek szerint. Mehetsz ingyenesen letöltheti a szoftvert korlátozás nélkül 30 napok.


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (9)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
A VDA-szkripted részben működik. Mert amikor alkalmaztam, a Checkbox melletti linkelt cella megváltozott, és az alatta lévő cellához kapcsolódik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remekül működött számomra, kivéve, hogy nem igazítja a következő cellában lévő szöveghez, amely alul van igazítva. Van mód az alsó igazítás jelölőnégyzeteinek igazítására, hogy a következő cellában lévő szöveghez igazodjanak? Kösz!
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA egyáltalán nem működik nálam. Amikor megnyomom az F5 billentyűt, úgy tűnik, hogy a modul fut, de a jelölőnégyzetek nem mozdultak el.
A weboldal moderátora ezt a megjegyzést minimalizálta
További kísérletezés után rájöttem, hogy a VBA működik manuálisan beszúrt jelölőnégyzeteknél, de ha Kutools batch insert-et használok, akkor nem. Hogyan állíthatom középre a Kutools-szal beillesztett összes jelölőnégyzetet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia quadma,
A kód a Kutools által beillesztett jelölőnégyzetekhez is működik. Melyik Excel verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
Office 360-at használok. Azt hiszem, az a problémám, hogy amikor a Kutools kötegelt beszúrást használom, a checkbox objektum mérete olyan széles, mint az oszlopé, amelybe be van szúrva (azaz a jelölőnégyzet objektum szélessége nagyobb, mint a magassága), maga a látható jelölőnégyzet az objektumon belül sorkizárva marad. Ha kijelölöm az összes jelölőnégyzet-objektumot, majd átméretezem őket úgy, hogy a magasság és a hosszúság egyenlő legyen, majd futtatom a VBA-t, akkor az oszlop közepére helyezi a jelölőnégyzeteket.





Ez szükségtelen lépésnek tűnik, mivel a jelölőnégyzetek négyzet alakúak, a Kultools miért nem teszi négyzet alakúvá a jelölőnégyzet objektumokat?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia quadma,
A Kutools által beillesztett jelölőnégyzetek megegyeznek a Jelölőnégyzet (űrlapvezérlés) amelyet az Excel szúrt be.
Nem igazán értem, hogy azt mondtad, hogy "tégy négyzet alakú jelölőnégyzetet". Általában a jelölőnégyzet tartalmazza a doboz mezőt és az érték mezőt. A Kutools üresen hagyja a jelölőnégyzetek értékét, ha a kijelölt cellák üresek. És ha vannak értékek a kijelölt cellákban, akkor a cella értéke lesz jelölőnégyzet értéke.
A weboldal moderátora ezt a megjegyzést minimalizálta
Feltöltöttem egy képet, hogy lássam mire gondolok. Remélhetőleg ez segít.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia quadma, megértettem a véleményed. Gondolkodni fogunk rajta, és köszönjük türelmét.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi