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

Sut i guddio rhesi os yw celloedd gwag mewn colofn?

Os oes gennych ystod o ddata sy'n poblogi rhai celloedd gwag mewn colofn, ac yn awr, rydych chi am guddio'r rhesi sy'n cynnwys y celloedd gwag yn y golofn honno yn awtomatig. A oes unrhyw ffyrdd da o ddatrys y swydd hon yn Excel yn gyflym ac yn hawdd?

Rhesi cuddio awto os celloedd gwag mewn colofn gyda chod VBA


swigen dde glas saeth Rhesi cuddio awto os celloedd gwag mewn colofn gyda chod VBA

Efallai y bydd y cod canlynol yn eich helpu i guddio pob rhes os yw celloedd gwag mewn colofn benodol ar unwaith, ac os byddwch chi'n dileu'r cynnwys celloedd yn y golofn honno, bydd y rhesi'n cael eu cuddio'n awtomatig hefyd. Gwnewch fel a ganlyn:

1. Cliciwch ar y dde wrth y tab dalen rydych chi am ei guddio'r rhesi os oes celloedd gwag mewn colofn, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau:

Cod VBA: Rhesi cuddio awto os yw celloedd gwag mewn colofn:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

rhesi cuddio auto doc 1

Nodyn: Yn y cod uchod, A1: A20 yw'r rhestr ddata sy'n cynnwys y celloedd gwag rydych chi am eu cuddio'n awtomatig.

2. Yna ewch yn ôl i'r daflen waith, ac yn awr, pan fyddwch chi'n clicio ddwywaith ar unrhyw gell ac yn pwyso Rhowch allwedd, mae'r rhesi sy'n cynnwys celloedd gwag yng ngholofn A wedi'u cuddio ar unwaith, ac os byddwch chi'n clirio unrhyw gynnwys celloedd yng nghelloedd penodedig colofn A, bydd y rhesi'n cael eu cuddio'n awtomatig.

rhesi cuddio auto doc 2

 


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 (32)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, yr wyf yn defnyddio excel 2016 ac nid yw'n gweithio. Rwy'n cael neges gwall sintax. gallwch chi helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ant,

Mae'r cod uchod yn gweithio'n dda yn fy Excel 2016, a ydych chi wedi newid y cyfeirnod cell yn y cod i'ch angen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy’n cael gwall amser rhedeg ’13’:



Camgymhariad math



Rhywun all helpu???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf atal y macro hwn rhag rhedeg yn awtomatig ar ôl taro enter? A allaf ei atodi i fotwm i guddio'r celloedd dim ond pan fyddaf yn clicio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a wnaeth unrhyw un erioed ddarganfod hyn? Hoffwn innau wybod hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oes unrhyw un wedi dod o hyd i'r ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yr un cwestiwn yma
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, bois,
I guddio'r rhesi y mae colofn benodol yn cynnwys celloedd gwag trwy ddefnyddio botwm, gwnewch fel hyn:
Yn gyntaf, dylech fewnosod Botwm Gorchymyn o'r tab Datblygwr.
Ac yna cymhwyswch y cod VBA canlynol ar gyfer y Botwm Gorchymyn, (Sylwer: newidiwch y cyfeirnod cell a1:a20 i'ch un chi)

Is-orchymyn PreifatButton1_Cliciwch()
Dim rng Fel Ystod, x Fel Ystod
Gosod rng = Ystod ("a1: a20")
Application.ScreenUpdating = Anghywir
Ar gyfer Pob x Yn rng
Os yw Len(x.Text) = 0 Yna
x.EntireRow.Hidden = Gwir
arall
x.EntireRow.Hidden = Gau
Gorffennwch Os
Nesaf x
Application.ScreenUpdating = Gwir
Is-End

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i guddio rhesi yn awtomatig os yw celloedd gwag mewn 2 golofn wahanol gyda chod VBA
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, salpe,
I guddio'r rhesi os yw celloedd gwag mewn 2 golofn wahanol yn awtomatig, cymhwyswch y cod canlynol:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg, xCell Fel Ystod
Dim xRgs, xRgArea Fel Ystod
Gosod xRgs = Ystod ("A1: A22, D1: D22")
Application.ScreenUpdating = Anghywir
Ar Gwall Ewch i Ctn
Ar gyfer Pob xRgArea Mewn xRgs.Areas
Debug.Print xRgArea.Address
Am Bob xRg Mewn xRgArea.Columns
Am Bob xCell Mewn xRg.Rows
Os xCell.Value = "" Yna
xCell.EntireRow.Hidden = Gwir
GoTo Ctn
ElseIf Not xCell.EntireRow.Hidden Yna
xCell.EntireRow.Hidden = Gau
Gorffennwch Os
Ctn:
Digwyddiadau
Digwyddiadau
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End

Gallwch newid y cyfeiriadau cell i'ch angen.
Rhowch gynnig arni!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
بسم الله وجزاكم الله خيرا هذا الكوenig رائع وot وكن حين قمت بتطبيق كوÿ vifer حذف الصف يبطأ الشريل rhain
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am wybod a fydd y cod yn gweithio Os yw'r gell yn wag o ganlyniad i Fformiwla ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, AchINTA,
Mae'r cod VBA uchod hefyd yn cael ei gymhwyso i'r celloedd gwag o ganlyniad i fformiwla, fe allech chi roi cynnig arni, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla yn gweithio i guddio celloedd yn seiliedig ar wybodaeth, ar y dechrau, ond nid yw'n ail-ddatgelu celloedd os yw eu cynnwys yn newid. Rwyf am iddo ddatgelu unrhyw gelloedd newydd sydd wedi'u llenwi â gwybodaeth (sy'n digwydd trwy chwilio cell). Sut mae gwneud hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bom dia, esta é minha necessidade também.

Preciso ocultar e quando a célula ar gyfer preenchida (uso uma fórmula que preenche a mesma se houver valor em outra planilha) seja reexibida a linha novamente de forma automática .

Ddiolchgar.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr hyn rydw i eisiau yw i rywbeth fel hyn weithio yn y daflen weithredol:

Os yw celloedd D2:D55=""
Yna Cuddio.EntireRow

Os oes gan gelloedd D2:D55 = "unrhyw werth"
Yna Show.EntireRow

Sut?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kacha, Does ond angen i chi newid y cyfeirnod cell yn y cod i'ch ystod celloedd eich hun fel y nodir isod: Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
'Updateby Extendoffice
Dim xRg Fel Ystod
Application.ScreenUpdating = Anghywir
Ar gyfer Pob xRg Mewn Ystod ("D2: D55")
Os xRg.Value = "" Yna
xRg.EntireRow.Hidden = Gwir

arall
xRg.EntireRow.Hidden = Gau
Gorffennwch Os
xRg nesaf
Application.ScreenUpdating = Gwir
Diwedd SubAr ôl mewnosod y cod, cofiwch glicio ddwywaith ar unrhyw gell a phwyso Enter i wneud i'r cod ddod i rym.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw'r ffordd symlaf o ddadwneud y guddfan ceir?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi, mình có dùng 2 cod trong 1 file excel (1 code là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng trống. Khi mình ấn in từng bản thì ok nhưng nếu in 1 loạt thì code Hide không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

Is-PRINT_PRINT()
Dim rng Fel Ystod, x Fel Ystod
Gosod rng = Ystod ("a16: a23")
Application.ScreenUpdating = Anghywir
Ar gyfer Pob x Yn rng
Os yw Len(x.Text) = 0 Yna
x.EntireRow.Hidden = Gwir
arall
x.EntireRow.Hidden = Gau
Gorffennwch Os
Nesaf x
Application.ScreenUpdating = Gwir


Dim p1, t2, i&
p1 = Dalen1.Range("O1").Gwerth
p2 = Dalen1.Range("O2").Gwerth
Os IsNumeric(p1) = Gau Neu IsNomeric(p2) = Anwir Yna
tb = MsgBox("Felly cod phai la so.", , "Thông báo")
Is Allanfa
Gorffennwch Os
Os p1 > t2 Yna
tb = MsgBox("Felly cod sau phai >= felly cod truoc.", , "Thông báo")
Is Allanfa
Gorffennwch Os
Os p1 < 1 Neu p2 < 1 Yna
tb = MsgBox("Felly cod phai >= 1.", , "Thông báo")
Is Allanfa
Gorffennwch Os
Os p1 <= p2 Yna
Am i = p1 I t2
Dalen1.Range("M2").Gwerth = i
Taflen1.PrintOut
Digwyddiadau
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola,Necesito crear una macro que mi oculte una columna.Sería así: en la primera fila poner un 1 a las colofnau que no quiero ocwltar a no poer ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente code, pero no se en que fallo:
Is-OcultarColofnSin1()
Application.ScreenUpdating = Anghywir
Ar gyfer Pob Rango Mewn Colofnau
Os rango = "" Yna
rango.EntireColumn.Hidden = Gwir
arall
rango.EntireColumn.Hidden = Gau
Gorffennwch Os
Rango nesaf
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych i mi, Mae'n cuddio'r rhesi ac yn eu hagor pan fydd fy ngwerthoedd yn newid yn seiliedig ar fformiwlâu. Y cwestiwn sydd gennyf yw fy nhaflen yn 104 rhes o hyd. Mae'n corddi am ychydig bob tro dwi'n clicio ar gell. Unrhyw ffordd i gyflymu'r trawsnewid pan gaiff ei actifadu? Neu ai fy nghyfrifiadur ydyw? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn guddio rhesi'n awtomatig os yw colofn E yn wag neu'n 0
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os yw'r gwerth yng ngholofn E yn wag neu 0 hoffwn i'r rhes guddio'n awtomatig. Os yw'r gwerth yn E yn newid i rywbeth heblaw gwag neu 0 hoffwn iddo ddangos. Mae'r adroddiad yn 1500 o resi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Cathy,
I guddio'r rhesi yn awtomatig yn seiliedig ar gelloedd gwag neu werthoedd 0, defnyddiwch y cod vba isod:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i guddio rhes sy'n cynnwys blwch ticio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sweta

I guddio rhesi gyda blwch ticio, efallai y bydd yr erthygl isod yn gwneud ffafr i chi:
Sut i guddio'r blwch siec pan fo rhes wedi'i chuddio yn Excel?

Ceisiwch, os oes gennych unrhyw gwestiwn arall o hyd, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wrth weithredu'r cod yn swyddfa 2013/2019/2021 mae'n gweithio ond yn cymryd gormod o amser i'w gwblhau (dim ond 95 rhes i'w cuddio).
Sut allwch chi gyflymu hyn?
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Asaf,
Mae'r cod yn gweithio'n dda yn fy ffeil Excel, a allech chi uwchlwytho eich llyfr gwe atodiad yma os nad oes ots gennych? Fel y gallwn helpu i wirio'r broblem.

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
apakah ada rumus lain ?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Nurjanah
I ddatrys eich problem, yn gyntaf, dylech guddio'r rhesi gwag, ac yna argraffu'r data, ar ôl argraffu'r data, mae angen i chi ddatguddio'r rhesi gwag eto. Gwnewch fel hyn os gwelwch yn dda:
1. Cymhwyswch y fformiwla hon: =COUNTA(A2:E2) wrth ymyl eich data, gweler y sgrinlun:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Yna, hidlo'r golofn Cynorthwyydd Blank newydd, cuddio pob un o'r 0 rhesi gwerth, gweler y sgrinlun:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. Ac yna, dylech guddio'r golofn Blank newydd, ac argraffu'r data, ar ôl argraffu'r daflen waith, canslwch yr hidlydd i ddatguddio'r rhesi gwag yn ôl yr angen.
Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n cael problemau gyda "awtomatiaeth" y macro. Rwy'n chwilio am ffordd i'r cod weithio fel proses awtomataidd heb fod angen rhedeg y macro "â llaw". Rwyf wedi bod yn defnyddio fy amrywiad fy hun o'ch cod oherwydd i mi ddod o hyd i broblemau i ddefnyddio'ch cod. Dyma fy amrywiad:

Is Rhesi Cudd()
Dim xRg Fel Ystod
Application.ScreenUpdating = Anghywir
Ar gyfer Pob xRg Mewn Ystod ("A3: A800")
Os ( xRg.Value = "" ) Yna
xRg.EntireRow.Hidden = Gwir
arall
xRg.EntireRow.Hidden = Gau
Gorffennwch Os
xRg nesaf
Application.ScreenUpdating = Gwir
Is-End

Rwy'n ceisio creu taenlen sy'n gofyn am werthoedd cyfnewidiol, felly byddai angen proses "awtomataidd" wirioneddol. Rwy'n gymharol newydd i VBA ac os yw'ch cod eisoes yn bodloni fy ngofynion a fyddai ots gennych chi fy helpu / fy nysgu i'w gymhwyso yn VBA? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vian
Mewn gwirionedd, gellir rhedeg y cod yn ein herthygl yn awtomatig.
Rhaid i chi gopïo a gludo'r cod i fodiwl cod y daflen waith gyfredol, yna dychwelyd i'r daflen waith, cliciwch ddwywaith ar unrhyw gell, a gwasgwch y Rhowch allweddol, bydd y rhes sy'n cynnwys y gell wag yn cael ei guddio'n uniongyrchol.

Dilynwch y dull yn yr erthygl hon gam wrth gam, gobeithio y gall eich helpu chi!
Diolch yn fawr!
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