Skip i'r prif gynnwys

Sut i dynnu neu guddio ffiniau o flychau grŵp yn Excel?

Yn Excel, efallai y byddwch chi'n creu rhai blychau grŵp i grwpio botymau amlddewis ar gyfer gwneud cwestiwn amlddewis, felly bydd blychau grŵp o amgylch y botymau opsiwn, ac mae'r llinellau blwch yn edrych yn flêr oherwydd nad yw'r llinellau mor syth â'r celloedd. Yr erthygl hon, byddaf yn cyflwyno rhai triciau i chi i guddio neu dynnu'r ffiniau neu'r llinellau o'r blychau grŵp er mwyn sicrhau bod y daflen waith yn cael ei gweld yn gliriach fel y llun a ddangosir:

ffiniau blwch grŵp cuddio doc 1

Tynnu neu guddio ffiniau o flychau grŵp gydag un cod

Tynnu neu guddio ffiniau o flychau grŵp gyda chod VBA


swigen dde glas saeth Tynnu neu guddio ffiniau o flychau grŵp gydag un cod

I guddio neu dynnu llinellau ffin y blychau grŵp, dyma un sgript a allai eich helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna pwyswch Ctrl + G i agor y Ar unwaith ffenestr, yn y Ar unwaith ffenestr, teipiwch y cod hwn: activesheet.groupboxes.visible = ffug, gweler y screenshot:

ffiniau blwch grŵp cuddio doc 2

3. Ar ôl nodi'r cod, ac yna pwyswch Rhowch allwedd, ac yn awr, gallwch weld bod ffiniau'r blychau grŵp wedi'u cuddio ar unwaith.

Nodyn: I arddangos y ffiniau eto, cymhwyswch y cod hwn: activesheet.groupboxes.visible = gwir, a'r wasg Rhowch allweddol.


swigen dde glas saeth Tynnu neu guddio ffiniau o flychau grŵp gyda chod VBA

Heblaw am y cod uchod, dyma god VBA arall a all hefyd eich helpu chi, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Tynnu neu guddio ffiniau o flychau grŵp:

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

3. Yna, pwyswch F5 yn allweddol i redeg y cod hwn, mae holl ffiniau'r blychau grŵp ar y daflen waith weithredol wedi'u cuddio ar unwaith, gweler y screenshot:

ffiniau blwch grŵp cuddio doc 1

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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