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

Sut i ddefnyddio blwch gwirio i guddio / dadorchuddio rhesi neu golofnau yn Excel?

Gan dybio bod angen i chi ddefnyddio blwch gwirio i guddio neu agor rhai rhesi neu golofnau. Er enghraifft, pan fydd y blwch gwirio Rheoli X Gweithredol yn cael ei wirio, mae'r rhesi neu'r colofnau penodol yn cael eu harddangos, fel arall, byddant yn cael eu cuddio. Mae'r erthygl hon yn dangos i chi'r dull o ddefnyddio blwch gwirio i guddio / dadorchuddio rhesi neu golofnau yn Excel gyda manylion.

Defnyddiwch flwch gwirio i guddio / dadorchuddio rhesi neu golofnau gyda chod VBA


Defnyddiwch flwch gwirio i guddio / dadorchuddio rhesi neu golofnau gyda chod VBA

Gall y cod VBA canlynol eich helpu i guddio / cuddio rhai rhesi neu golofnau gyda blwch gwirio.

1. Ar ôl mewnosod blwch gwirio Rheoli X Gweithredol ar y daflen waith, cliciwch ar y dde ar y blwch gwirio ac yna dewiswch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA canlynol i mewn i ffenestr y Cod.

Cod VBA: Defnyddiwch flwch gwirio i guddio / dadorchuddio rhesi neu golofnau

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Nodiadau:

1. Yn y cod VBA, [C: D]. EntireColumn yn golygu y bydd y golofn C a D yn cuddio neu'n cuddio trwy wirio neu ddad-wirio'r blwch gwirio cyfatebol.

2. Ar gyfer cuddio neu arddangos rhai rhesi fel rhes 6: 9, newidiwch y [C: D]. EntireColumn i [6: 9]. EntireRow yn y cod VBA.

3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Nawr trowch y Modd Dylunio O dan y Datblygwr tab fel y dangosir isod screenshot:

O hyn ymlaen, pan fydd y blwch gwirio yn cael ei wirio, mae'r rhesi neu'r colofnau penodedig yn cael eu harddangos. Pan fydd heb ei wirio, mae'r rhesi neu'r colofnau penodedig wedi'u cuddio.


Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddefnyddio'r "Defnyddio blwch ticio i guddio / datguddio rhesi neu golofnau gyda chod VBA" ar daflen waith warchodedig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
@Wayne:

Is-Flwch Ticio Preifat1_Cliciwch()
ActiveSheet.Unprotect Password:="xxxxx"
Rhesi("284:351").EntireRow.Hidden = Ddim yn CheckBox1
ActiveSheet.Protect Password:="xxxx"
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos mai dim ond un cyfeiriad y bydd y cod hwn yn mynd, hy dim ond cuddio a pheidio â'u cuddio wrth glicio. A oes ffordd i gywiro hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennym yr un broblem ond darganfyddais ein bod yn defnyddio Rheolyddion Ffurflen ac nid Rheolaethau ActiveX. Mae'r cod yn gweithio'n berffaith yn y botwm ActiveX Control Checkbox. Trowch oddi ar y Modd Dylunio er mwyn i chi allu clicio ar y Blwch Ticio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennym yr un broblem ond dod o hyd i ffordd i wneud iddo weithio. Defnyddiwch flwch ticio ActiveX Controls ac nid yn y blwch ticio Form Control. Mae'r cod yn gweithio'n berffaith gyda blwch gwirio ActiveX.


Is-Flwch Ticio Preifat1_Cliciwch()
[C:D].EntireColumn.Hidden = Ddim yn CheckBox1
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Rwy'n ceisio defnyddio'r cod hwn i guddio / datguddio ar ddalen ar wahân o'r blwch ticio. Beth sy'n rhaid i mi ei ychwanegu i wneud i hyn weithio? Diolch ymlaen llaw.

Is-Flwch Ticio Preifat1_Cliciwch()
[C:D].EntireColumn.Hidden = Ddim yn CheckBox1
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Fel y mae'r cod canlynol yn ei ddangos, rhowch enw eich dalen ar wahân yn lle'r "Taflen 4".

Is-Flwch Ticio Preifat1_Cliciwch()
[Taflen4!C:D].EntireColumn.Hidden = Ddim yn CheckBox1
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Helo, rydw i wedi gwneud y cod, mae'n waith da ond pan dwi'n ceisio gwneud yr un peth mewn mwy nag un blwch ticio ar yr un ddalen maen nhw'n gweithio 'gyda'i gilydd', dim ond yn cuddio neu'n datguddio'r rhesi os yw'r tri blwch ticio yn cael eu dewis.
Rwy'n ceisio gwneud i'r tri blwch gwirio hyn weithio'n annibynnol ar ei gilydd. A gadewch i'r defnyddwyr farcio un blwch yn unig ar gyfer ar amser.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Lou,
Gwnewch yn siŵr bod y blychau ticio a grëwyd gennych yn flychau ticio ActiveX Controls. Mae'r blychau ticio hyn yn gweithio'n annibynnol yn eich taflen waith.
Diolch am eich sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

A oes ffordd i guddio dim ond un rhes. Os byddaf yn rhoi 6:9 mae pob rhes wedi'u cuddio, ond os byddaf yn rhoi 6 yn unig, mae'n dod allan fel gwall. Byddwn yn gwerthfawrogi eich help, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Newidiwch yr ail linell yn y cod i:
[6:6].EntireRow.Hidden = Ddim yn CheckBox1.
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i'n ceisio datguddio'r tair rôl gyntaf ond nid oedd yn waith. Sut gallaf ei wneud, rwy'n gwybod bod y person sy'n anfon y ffeil ataf eisiau gwybod fy sgil y gallaf ei datrys neu beidio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mai,
Mae'n ddrwg gennyf na chefais eich pwynt.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd, ond yna pan achubais y ffeil, ac ailagor nid yw'n gweithio. Ceisiais ei arbed fel taflen Macro excel ac fel llyfr gwaith rheolaidd. Beth ydw i wedi'i wneud o'i le? Rwyf am ei roi i rywun arall ei ddefnyddio a dydw i ddim eisiau iddyn nhw gael eu drysu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo angela, Ar ôl ychwanegu'r cod yn y llyfr gwaith, cliciwch Ffeil > Arbed fel, dewiswch ble i gadw'r ffeil, yn y blwch deialog Save As, dewiswch Excel Macro-Enabled Workbook (*.xlsm) o'r gwymplen Cadw fel math , ac yn olaf cliciwch Cadw. Yna anfonwch y llyfr gwaith Excel Macro-Enabled hwn i eraill.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiol iawn, ond sut gallaf ei ddefnyddio i guddio dim ond rhan o'r daenlen? Rwy'n golygu er enghraifft celloedd B2: B11, sut i gyfuno'r ddwy swyddogaeth hynny? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth pe bawn i eisiau defnyddio 3 blwch ticio gwahanol ac eisiau iddyn nhw bob un toglo cuddio gwahanol grwpiau o resi? Rwyf wedi ceisio ac edrych ar hyd a lled. Pan geisiaf addasu'r cod hwn mae'n ymddangos bod y blychau ticio yn ymyrryd â'i gilydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth pe bawn i eisiau defnyddio 3 blwch ticio gwahanol ac eisiau iddyn nhw bob un toglo cuddio gwahanol grwpiau o resi? Rwyf wedi ceisio ac edrych ar hyd a lled. Pan geisiaf addasu'r cod hwn mae'n ymddangos bod y blychau ticio yn ymyrryd â'i gilydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Esse codigo oculta, mas não executa a reexibição quando desmarcar.

Alguém pode ategol por favor? Preciso de um codigo para ocultar a reexibir colunas indicadas.

Is-Flwch Ticio Preifat1_Cliciwch()
[C:D].EntireColumn.Hidden = Ddim yn CheckBox1
Is-End

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Welington Mesquita,
Gall y cod VBA hwn gyflawni:
Pan fydd y blwch ticio1 yn cael ei wirio, dangosir y golofn C:D;
Pan na chaiff ei wirio, mae'r golofn C:D wedi'i chuddio.
Mae'r cod yn gweithio'n dda yn fy achos i. Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bore da!
Ystyr geiriau: Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizando o Control ActiveX unawdol o eitem.

Enghreifftiau: Tenho coluna com os enwau: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) a Variação (%), dim entanto, que poder selcionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não estando a sequencia.

Desde já agradeço,
Welington
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennyf nad wyf yn deall yr hyn yr ydych yn ei olygu. A fyddech chi'n meindio darparu sgrinlun o'ch data?
Efallai y bydd angen i chi atodi ciplun neu ffeil sampl i ddisgrifio'r broblem y daethoch ar ei thraws yn gliriach.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
E para ocultar colunas não sequências?
Enghraifft: A e C

A yw'r gyfres wedi'i chymhwyso at A e C ?

msgstr "Is-GwirioBox1_Cliciwch ar breifatrwydd ()
[C:D].EntireColumn.Hidden = Não CheckBox1
Diwedd Is"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gall y cod VBA canlynol wneud ffafr i chi. Rhowch gynnig arni.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bei mir werden marw Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder yn aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Hilfe....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rose,
Gall y cod VBA canlynol helpu.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL