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

Conas sraitheanna a cheilt go huathoibríoch más cealla bána i gcolún?

Má tá raon sonraí agat a líonann roinnt cealla bána i gcolún, agus anois, ba mhaith leat na sraitheanna ina bhfuil na cealla bána sa cholún sin a cheilt go huathoibríoch. An bhfuil aon bhealaí maithe ann chun an post seo a réiteach in Excel go tapa agus go héasca?

Sraitheanna seiche uathoibríoch más cealla bána i gcolún le cód VBA


mboilgeog cheart gorm saighead Sraitheanna seiche uathoibríoch más cealla bána i gcolún le cód VBA

D’fhéadfadh an cód seo a leanas cabhrú leat na sraitheanna go léir a cheilt más cealla bána i gcolún ar leith iad ag an am céanna, agus má scriosann tú an t-ábhar cille sa cholún sin, beidh na sraitheanna i bhfolach go huathoibríoch freisin. Déan mar a leanas le do thoil:

1. Cliceáil ar dheis ag an táb bileog ar mhaith leat na sraitheanna a cheilt go huathoibríoch má tá cealla bána i gcolún, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa bán Modúil:

Cód VBA: Sraitheanna seithí uathoibríoch más cealla bána i gcolún iad:

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

sraitheanna seiche uathoibríoch doc 1

nótaí: Sa chód thuas, A1: A20 Is é seo an liosta sonraí ina bhfuil na cealla bána a theastaíonn uait a cheilt go huathoibríoch.

2. Ansin téigh ar ais chuig an mbileog oibre, agus anois, nuair a chliceálann tú aon chill faoi dhó agus brúigh Iontráil eochair, tá na sraitheanna ina bhfuil cealla bána i gcolún A curtha i bhfolach ag an am céanna, agus má ghlanann tú aon ábhar cille sna cealla sonraithe i gcolún A, beidh na sraitheanna i bhfolach go huathoibríoch.

sraitheanna seiche uathoibríoch doc 2

 


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab

 

Sórtáil tuairimí de réir
Comments (32)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá mé ag baint úsáide as excel 2016 agus níl sé ag obair. Faighim teachtaireacht earráide sintax. Is féidir leat cabhrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Sheáin,

Oibríonn an cód thuas go maith i mo Excel 2016, an bhfuil tú ag athrú an tagairt cille sa chód ar do riachtanas?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faighim earráid am Rith ´13´:



Mí-oiriúnú cineáil



Duine éigin atá in ann cabhrú???
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir liom stop a chur leis an macra seo ó bheith ag rith go huathoibríoch tar éis dom Enter a bhualadh? An bhféadfainn é a cheangal de chnaipe chun na cealla a cheilt ach amháin nuair a chliceálann mé?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an ndearna éinne é seo amach riamh? Ba mhaith liom freisin go mbeadh a fhios.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
aon duine teacht suas leis an freagra fós?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
cheist chéanna anseo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhaoibh,
Chun na sraitheanna ina bhfuil cealla bána i gcolún ar leith a cheilt trí chnaipe a úsáid, déan mar seo le do thoil:
Ar dtús, ba chóir duit Cnaipe Ordú a chur isteach ón gcluaisín Forbróra.
Agus ansin cuir an cód VBA seo a leanas i bhfeidhm don Chnaipe Ordú, (Tabhair faoi deara: athraigh an tagairt cille a1:a20 chuig do chuid féin)

Fo-ordú PríobháideachButton1_Cliceáil()
Dim rng Mar Raon, x Mar Raon
Socraigh rng = Raon ("a1: a20")
Application.ScreenUpdating = Bréagach
Do Gach x In rng
Má tá Len(x.Text) = 0 Ansin
x.EntireRow.Hidden = Fíor
Eile
x.EntireRow.Hidden = Bréagach
Deireadh Má
Ar Aghaidh x
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas sraitheanna a cheilt go huathoibríoch má tá cealla bána i 2 cholún dhifriúla le cód VBA
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, salpe,
Chun na sraitheanna a cheilt má tá cealla bána in 2 cholún dhifriúla go huathoibríoch, cuir an cód seo a leanas i bhfeidhm:

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRg, xCell Mar Raon
Dim xRgs, xRgArea Mar Raon
Socraigh xRgs = Raon ("A1: A22, D1: D22")
Application.ScreenUpdating = Bréagach
Ar Earráid TéighTo Ctn
Do Gach xRgArea In xRgs.Areas
Debug.Print xRgArea.Seoladh
Do Gach xRg I xRgArea.Columns
Do Gach xCell I xRg.Rows
Má tá xCell.Value="" Ansin
xCell.EntireRow.Hidden = Fíor
Téigh go Ctn
Eile Mura bhfuil xCell.EntireRow.Hidden Ansin
xCell.EntireRow.Hidden = Bréagach
Deireadh Má
Ctn:
Ar Aghaidh
Ar Aghaidh
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Is féidir leat na tagairtí cille a athrú do do riachtanas.
Bain triail eile as!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a fháil amach cé acu an n-oibreoidh an cód Má tá an chill bán mar thoradh ar Foirmle ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, AchinTA,
Cuirtear an cód VBA thuas i bhfeidhm freisin ar na cealla bána mar thoradh ar fhoirmle, d'fhéadfá é a thriail, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an fhoirmle chun cealla a cheilt bunaithe ar fhaisnéis, ag an tús, ach ní ath-nochtann cealla má athraíonn a n-ábhar. Ba mhaith liom go nochtfadh sé aon chealla nua atá líonta le faisnéis (a tharlaíonn trí chuardach cille). Conas is féidir liom é seo a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bom dia, tá sé minha gá também.

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

Buíoch.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é an rud atá uaim ná rud éigin mar seo a oibriú ar an mbileog ghníomhach:

Má tá cealla D2:D55=""
Ansin Hide.EntireRow

Má tá luach ar bith ag cealla D2:D55=""
Ansin Show.EntireRow

Conas?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Kacha, Níl le déanamh agat ach an tagairt cille sa chód a athrú chuig do raon cealla féin mar atá thíos: Fo-Bileog Oibre Príobháideach_Athraigh(Sprioc ByVal Mar Raon)
'Updateby Extendoffice
Dim xRg Mar Raon
Application.ScreenUpdating = Bréagach
Do Gach xRg i Raon ("D2: D55")
Má xRg.Value="" Ansin
xRg.EntireRow.Hidden = Fíor

Eile
xRg.EntireRow.Hidden = Bréagach
Deireadh Má
Ar Aghaidh xRg
Feidhmchlár.ScreenUpdating = Fíor
Deireadh Fo Tar éis duit an cód a chur isteach, cuimhnigh cliceáil faoi dhó ar aon chill agus brúigh Iontráil eochair chun an cód a chur i bhfeidhm.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad é an bealach is simplí chun an uath-fholú a chealú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi, mình có dùng 2 code 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!

Fo-PRINT_PRINT()
Dim rng Mar Raon, x Mar Raon
Socraigh rng = Raon ("a16: a23")
Application.ScreenUpdating = Bréagach
Do Gach x In rng
Má tá Len(x.Text) = 0 Ansin
x.EntireRow.Hidden = Fíor
Eile
x.EntireRow.Hidden = Bréagach
Deireadh Má
Ar Aghaidh x
Feidhmchlár.ScreenUpdating = Fíor


Diméin p1, p2, i&
p1 = Bileog 1.Raon ("O1").Luach
p2 = Bileog 1.Raon ("O2").Luach
Má tá IsNumeric(p1) = Bréagach Nó IsUimhriúil(p2) = Bréagach Ansin
tb = MsgBox("Mar sin cód phai la so.", , "Thông báo")
Fo-Scoir
Deireadh Má
Má tá p1 > p2 Ansin
tb = MsgBox("Mar sin cód sau phai >= mar sin cód truoc.", , "Thông báo")
Fo-Scoir
Deireadh Má
Má tá p1 < 1 Nó p2 < 1 Ansin
tb = MsgBox("Mar sin cód phai >= 1.", , "Thông báo")
Fo-Scoir
Deireadh Má
Má tá p1 <= p2 Ansin
Chun i = p1 Go p2
Bileog 1.Raon("M2").Luach = i
Bileog 1.PrintOut
Ar Aghaidh
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hola,Ní mór duit a chruthú macra is féidir liom a dhéanamh ar an gcolún. Is féidir leis an gcód seo a leanas a úsáid, ach ní fheiceann tú é:
Fo-OcultarColumnaSin1()
Application.ScreenUpdating = Bréagach
Do Gach Rango I gColúin
Má rango="" Ansin
rango.EntireColumn.Hidden = Fíor
Eile
rango.EntireColumn.Hidden = Bréagach
Deireadh Má
Rango seo chugainn
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo ag obair go hiontach domsa, seithí sé na sraitheanna agus osclaíonn sé iad nuair a athraíonn mo luachanna bunaithe ar fhoirmlí. Is í an cheist atá agam ná mo bhileog 104 sraitheanna ar fad. Maireann sé ar feadh beagán gach uair a chliceálann mé ar chill. Aon bhealach chun an t-aistriú a bhrostú nuair a chuirtear i ngníomh é? Nó an é mo ríomhaire é? Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom sraitheanna a chur i bhfolach go huathoibríoch má tá colún E bán nó 0
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má tá an luach i gcolún E bán nó 0 ba mhaith liom go gcuirfí an ró i bhfolach go huathoibríoch. Má athraíonn an luach in E go rud éigin eile seachas bán nó 0 ba mhaith liom go dtaispeánfadh sé. Tá an tuarascáil 1500 sraith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Cathy,
Chun na sraitheanna a cheilt go huathoibríoch bunaithe ar chealla bána nó ar luachanna 0, bain úsáid as an gcód vba thíos:
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


Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas ró a cheilt ina bhfuil ticbhosca?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Sweta

Chun sraitheanna a cheilt le ticbhosca, seans go mbeidh an t-alt thíos i bhfabhar duit:
Conas an ticbhosca a cheilt nuair a bhíonn an ró i bhfolach in Excel?

Déan iarracht le do thoil, má tá aon cheist eile fós agat, déan trácht anseo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Agus an cód á fhorghníomhú in oifig 2013/2019/2021 oibríonn sé ach tógann sé an iomarca ama lena chur i gcrích (ach 95 sraith le cur i bhfolach).
Conas is féidir leat é seo a bhrostú?
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Asaf,
Oibríonn an cód go maith i mo chomhad Excel, an bhféadfá do leabhar saothair ceangaltán a uaslódáil anseo mura miste leat? Ionas gur féidir linn cabhrú leis an bhfadhb a sheiceáil.

Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
apakah ada rumus lain ?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan and excelnya tetap
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Nurjanah
Chun d'fhadhb a réiteach, ar dtús, ba chóir duit na sraitheanna bána a cheilt, agus ansin na sonraí a phriontáil, tar éis na sonraí a phriontáil, ní mór duit na sraitheanna bán a cheilt arís. Déan mar seo le do thoil:
1. Cuir an fhoirmle seo i bhfeidhm: =COUNTA(A2:E2) in aice le do shonraí, féach an seat scáileáin:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Ansin, scag an colún nua Cúntóra Blank, folaigh na 0 sraitheanna luacha go léir, féach ar an scáileán:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. Agus ansin, ba chóir duit an colún Bán nua a cheilt, agus na sonraí a phriontáil, tar éis an bhileog oibre a phriontáil, cuir an scagaire ar ceal chun na sraitheanna bán a cheilt de réir mar is gá duit.
Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, tá fadhbanna agam le "uathoibriú" an mhacra. Táim ag cuardach bealach chun an cód a oibriú mar phróiseas uathoibrithe gan riachtanais "de láimh" an macra a rith. Tá mo leagan féin de do chód á úsáid agam mar gheall go bhfuil fadhbanna aimsithe agam maidir le do chód a úsáid. Seo é mo leagan:

Fo-Chroí Folaigh()
Dim xRg Mar Raon
Application.ScreenUpdating = Bréagach
Do Gach xRg I Raon ("A3: A800")
Más rud é (xRg.Value="") Ansin
xRg.EntireRow.Hidden = Fíor
Eile
xRg.EntireRow.Hidden = Bréagach
Deireadh Má
Ar Aghaidh xRg
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh

Táim ag iarraidh scarbhileog a chruthú a éilíonn luachanna síorathraitheacha, agus mar sin bheadh ​​fíorphróiseas “uathoibríoch” de dhíth. Tá mé sách nua do VBA agus má chomhlíonann do chód mo riachtanais cheana féin, an mbeadh fonn ort cabhrú/múineadh dom é a chur i bhfeidhm i VBA? Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Vian
Go deimhin, is féidir an cód inár n-alt a reáchtáil go huathoibríoch.
Caithfidh tú an cód a chóipeáil agus a ghreamú isteach sa mhodúl cód den bhileog oibre reatha, ansin filleadh ar an mbileog oibre, cliceáil faoi dhó ar aon chill, agus brúigh an Iontráil eochair, beidh an tsraith ina bhfuil an chill bán i bhfolach go díreach.

Lean an modh san Airteagal seo céim ar chéim le do thoil, tá súil agam gur féidir leis cabhrú leat!
Go raibh maith agat!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL