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

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

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.

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

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

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á!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Comments (32)

Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!

Seangán

thart ar 5 bliain ó shin

#21776

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ú?

Freagra

spéireang Seangán

thart ar 5 bliain ó shin

#21777

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?

Freagra

Tuarascáil

Lars

thart ar 5 bliain ó shin

#21785

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ú???

Freagra

alex

thart ar 5 bliain ó shin

#22014

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é?

Freagra

devin alex

thart ar 4 bliain ó shin

#22015

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.

Freagra

Ceannaigh é devin

thart ar 4 bliain ó shin

#22016

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

aon duine teacht suas leis an freagra fós?

Freagra

Andrea Ceannaigh é

thart ar 4 bliain ó shin

#22017

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

cheist chéanna anseo

Freagra

spéireang Andrea

thart ar 4 bliain ó shin

#22018

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!

Féach ar na Ceangaltáin (1 / 5)

Freagra

Tuarascáil

salpe smig

thart ar 4 bliain ó shin

#25197

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

Freagra

spéireang salpe smig

thart ar 4 bliain ó shin

#25198

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!

Freagra

Tuarascáil

íoslódáil

thart ar 4 bliain ó shin

#26276

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Freagra

ACHINTA PANDE

thart ar 3 bliain ó shin

#28283

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 ?

Freagra

spéireang ACHINTA PANDE

thart ar 3 bliain ó shin

#28284

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!

Freagra

Tuarascáil

Josh

thart ar 3 bliain ó shin

#28692

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?

Freagra

TEmpo Josh

thart ar 5 mhí ó shin

#39851

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.

Freagra

Kacha

thart ar 2 bliain ó shin

#34313

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?

Freagra

spéireang Kacha

thart ar 2 bliain ó shin

#34314

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.

Freagra

Tuarascáil

Ken

thart ar 1 bhliain ó shin

#35676

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ú?

Freagra

Binh

thart ar 1 bhliain ó shin

#36469

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

Freagra

Mónica Rodríguez Pérez

thart ar 1 bhliain ó shin

#36800

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

Freagra

Jolsen 2011

thart ar 1 bhliain ó shin

#37029

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!

Freagra

Tuarascáil

Cathy

thart ar 6 mhí ó shin

#39166

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

Freagra

Cathy

thart ar 6 mhí ó shin

#39168

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

Freagra

spéireang Cathy

thart ar 6 mhí ó shin

#39194

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!

Freagra

Tuarascáil

I Nyoman Sweta

thart ar 6 mhí ó shin

#39465

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú

Conas ró a cheilt ina bhfuil ticbhosca?

Freagra

spéireang I Nyoman Sweta

thart ar 5 mhí ó shin

#39550

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.

Freagra

Tuarascáil

Asaph

thart ar 5 mhí ó shin

#39749

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!

Freagra

spéireang Asaph

thart ar 5 mhí ó shin

#39781

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!

Freagra

Tuarascáil

Sífitri Nurjanah

thart ar 5 mhí ó shin

#39837

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

Freagra

spéireang Sífitri Nurjanah

thart ar 5 mhí ó shin

#39861

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!

Freagra

Tuarascáil

Vian Mac Namara

thart ar 1 mhí ó shin

#42074

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.

Freagra

Tuarascáil

spéireang Vian Mac Namara

thart ar 1 mhí ó shin

#42240

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!

Freagra

Tuarascáil

Níl aon tráchtanna curtha suas anseo go fóill

Fág do chuid tuairimí

Ag postáil mar Aoi

Ainm (Riachtanach)

Ríomhphost (riachtanach)

Ráta an post seo:

athshocrú

0 Carachtair

Aontaím leis an téarmaí agus riocht