Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti ali skriti robove iz skupinskih polj v Excelu?

V Excelu lahko ustvarite nekaj skupinskih polj za združevanje več gumbov za izbiranje za večkratno izbiro, tako da bodo okrog gumbov z možnostmi prikazane skupinske okence in vrstice oken bodo videti neurejene, ker vrstice niso tako ravne kot celice. V tem članku vam bom predstavil nekaj trikov, da bi skrili ali odstranili robove ali črte iz skupinskih oken, da bi bil preglednejši preglednejši pogled na naslednji sliki:

doc skrij meje skupin oken 1

Odstranite ali skrijete robove iz skupinskih polj z eno kodo

Odstranite ali skrijte robove iz skupinskih polj s kodo VBA


puščica modra desno mehurček Odstranite ali skrijete robove iz skupinskih polj z eno kodo


Če želite skriti ali odstraniti robne vrstice v oklepajih skupine, vam lahko pomaga en skript, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato pritisnite Ctrl + G da odprete Takojšen okno, v Takojšen vnesite to kodo: activesheet.groupboxes.visible = false, si oglejte sliko zaslona:

doc skrij meje skupin oken 2

3. Po vnosu kode in nato pritisnite Vnesite ključ in zdaj vidite, da so meje skupin skrinjic takoj skrite.

Opombe: Če želite znova prikazati meje, uporabite to kodo: activesheet.groupboxes.visible = truein pritisnite Vnesite ključ.


puščica modra desno mehurček Odstranite ali skrijte robove iz skupinskih polj s kodo VBA

Poleg zgornje kode, tu je še ena VBA koda, ki vam lahko pomaga tudi, prosimo, naredite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Odstranite ali skrijte robove iz skupine:

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

3. Nato pritisnite F5 ključno za zagon te kode, so vse meje polj v skupini na aktivnem delovnem listu skrite hkrati, si oglejte sliko zaslona:

doc skrij meje skupin oken 1


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ManiE07CM · 1 years ago
    hello guys,
    i need to select multiple button to sum my scores. if is this possible pls suggest my a idea.?
  • To post as a guest, your comment is unpublished.
    Angus · 2 years ago
    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