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.

Read More ... Lawrlwythiad Am Ddim... Prynu ...

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!

Read More ... Lawrlwythiad Am Ddim... Prynu ...

sylwadau (26)

Dim sgôr eto. Byddwch y cyntaf i sgorio!

Wayne Bailey

tua 5 o flynyddoedd yn ôl

#19936

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?

ateb

Pieter Ramaut

tua 5 o flynyddoedd yn ôl

#21920

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

ateb

Cole

tua 4 o flynyddoedd yn ôl

#24379

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?

ateb

Kentthegreet Cole

tua 4 o flynyddoedd yn ôl

#24380

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.

ateb

Cyfarchiad Caint Cole

tua 4 o flynyddoedd yn ôl

#24381

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

ateb

adroddiad

tua 3 o flynyddoedd yn ôl

#28132

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

ateb

grisial Ed

tua 3 o flynyddoedd yn ôl

#28133

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

ateb

adroddiad

Lou

tua 3 o flynyddoedd yn ôl

#29360

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.

ateb

grisial Lou

tua 3 o flynyddoedd yn ôl

#29361

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.

ateb

adroddiad

Therese

tua 3 o flynyddoedd yn ôl

#30984

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!

ateb

grisial Therese

tua 3 o flynyddoedd yn ôl

#30985

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.

ateb

adroddiad

Mai

tua 3 o flynyddoedd yn ôl

#31355

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.

ateb

grisial Mai

tua 3 o flynyddoedd yn ôl

#31356

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo Mai,
Mae'n ddrwg gennyf na chefais eich pwynt.

ateb

adroddiad

angela

tua 3 o flynyddoedd yn ôl

#31530

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.

ateb

grisial angela

tua 2 o flynyddoedd yn ôl

#31531

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.

ateb

adroddiad

Maggie

tua 2 o flynyddoedd yn ôl

#32767

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.

ateb

Eric

tua blwyddyn yn ôl

#35115

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.

ateb

etb1025

tua blwyddyn yn ôl

#35116

Lleihawyd y sylw hwn gan y safonwr ar y wefan

ateb

adroddiad

Welington Mesquita

tua 6 mis yn ôl

#39373

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

ateb

grisial Welington Mesquita

tua 5 mis yn ôl

#39441

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?

ateb

adroddiad

Welington Mesquita

tua 6 mis yn ôl

#39398

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

ateb

grisial Welington Mesquita

tua 5 mis yn ôl

#39445

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.

ateb

adroddiad

Welington Mesquita

tua 6 mis yn ôl

#39402

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"

ateb

grisial Welington Mesquita

tua 5 mis yn ôl

#39446

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

ateb

adroddiad

Rose

tua 2 mis yn ôl

#41159

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....

ateb

grisial Rose

tua 2 mis yn ôl

#41471

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

ateb

adroddiad

Nid oes unrhyw sylwadau wedi'u postio yma eto

Gadewch eich sylwadau

Postio fel Gwestai

Mewngofnodi

Enw (Angenrheidiol)

E-bost (Angenrheidiol)

Graddiwch y swydd hon:

Ailosod

0 Cymeriadau

Cytunaf â'r telerau a chyflwr