Ugrás a tartalomra

Hogyan lehet eltávolítani vagy elrejteni a szegélyeket az Excel csoportmezőiből?

Az Excel programban létrehozhat néhány csoportot több opciógomb csoportosításához a feleletválasztós kérdések elvégzéséhez, így az opciógombok körül csoportmezők jelennek meg, és a dobozvonalak rendetlenek, mert a vonalak nem olyan egyenesek, mint a cellák. Ebben a cikkben bemutatok néhány trükköt a szegélyek vagy vonalak elrejtésére vagy eltávolítására a csoportmezőkből, hogy a munkalap jobban látható legyen, a következő képernyőkép szerint:

doc elrejti a csoporthoz tartozó szegélyeket 1

Távolítsa el vagy rejtse el a szegélyeket a csoportmezőkből egy kóddal

Távolítsa el vagy rejtse el a szegélyeket a VBA kóddal ellátott csoportmezőkből


nyíl kék jobb buborék Távolítsa el vagy rejtse el a szegélyeket a csoportmezőkből egy kóddal

A csoportmezők határvonalainak elrejtéséhez vagy eltávolításához itt egy szkript segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután nyomja meg a gombot Ctrl+G megnyitni Azonnali ablakban, a Azonnali ablakba írja be ezt a kódot: activesheet.groupboxes.visible = hamis, lásd a képernyőképet:

doc elrejti a csoporthoz tartozó szegélyeket 2

3. A kód beírása után nyomja meg a gombot belép gombot, és most már láthatja, hogy a csoportmezők határai azonnal el vannak rejtve.

Megjegyzések: A határok újbóli megjelenítéséhez kérjük, alkalmazza ezt a kódot: activesheet.groupboxes.visible = igaz, és nyomja meg a gombot belép kulcs.


nyíl kék jobb buborék Távolítsa el vagy rejtse el a szegélyeket a VBA kóddal ellátott csoportmezőkből

A fenti kód mellett itt van egy másik VBA kód, amely szintén segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: A szegélyek eltávolítása vagy elrejtése a csoportmezőkből:

Sub ToggleVisible()
Dim myGB As GroupBox
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = False
Next myGB
End Sub

3. Ezután nyomja meg a gombot F5 kulcs ennek a kódnak a futtatásához, az aktív munkalapon lévő csoporthoz tartozó mezők összes határa egyszerre el van rejtve, lásd a képernyőképet:

doc elrejti a csoporthoz tartozó szegélyeket 1

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz 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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hello guys,
i need to select multiple button to sum my scores. if is this possible pls suggest my a idea.?
This comment was minimized by the moderator on the site
Very nice piece of code, thanks. Helped to sort out client problem! Can toggle it: Sub ToggleVisible() Dim myGB As GroupBox For Each myGB In ActiveSheet.GroupBoxes myGB.Visible = IIf(myGB.Visible, False, True) Next myGB End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations