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

Conas sosanna leathanaigh a chur isteach nuair a athraíonn luach in Excel?

Ag ceapadh, tá raon cealla agam, agus anois, ba mhaith liom sosanna leathanaigh a chur isteach sa bhileog oibre nuair a athraíonn luachanna i gcolún A mar a thaispeántar an scáileán ar chlé. Ar ndóigh, is féidir leat iad a chur isteach ceann ar cheann, ach an bhfuil aon bhealaí gasta ann chun na sosanna leathanaigh a chur isteach ag an am céanna bunaithe ar luachanna athraithe colún amháin?

Cuir isteach sosanna leathanaigh nuair a athraíonn luach le cód VBA

Cuir isteach sosanna leathanaigh nuair a athraíonn luach le gné chumhachtach


Cuir isteach sosanna leathanaigh nuair a athraíonn luach le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat sosanna leathanaigh thíos a chur isteach bunaithe ar athruithe sonraí na gcolún a luaithe, déan mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cuir isteach sosanna leathanaigh nuair a athraíonn an luach:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, tá gach briseadh leathanaigh curtha isteach sa bhileog nuair a athraíonn sonraí i gcolún A. Féach an pictiúr:

Nóta:Sa chód thuas, A is é ceanntásc an cholúin ar mhaith leat briseadh leathanaigh a chur isteach bunaithe air, is féidir leat é a athrú go do riachtanas.

Cuir isteach sosanna leathanaigh nuair a athraíonn luach le gné chumhachtach

Má tá tú Kutools le haghaidh Excel, Lena Déan idirdhealú idir difríochtaí gné, is féidir leat sosanna leathanaigh, sraitheanna bána, línte teorann bun nó dath cúlra a chur isteach go tapa bunaithe ar na hathruithe luacha. Cliceáil chun Kutools a íoslódáil le haghaidh Excel!

Leid:Chun é seo a chur i bhfeidhm Déan idirdhealú idir difríochtaí gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools > déanta > Déan idirdhealú idir difríochtaí, féach ar an scáileán:

2. Sa popped amach Déan idirdhealú de réir eochaircholún bosca dialóige, déan na hoibríochtaí seo a leanas:

  • Roghnaigh an raon sonraí agus an príomhcholún a theastaíonn uait a úsáid;
  • Roghnaigh Sos Leathanach ó na Roghanna bosca.

3. Ansin cliceáil Ok cnaipe, tá na sosanna leathanaigh curtha isteach sa raon bunaithe ar na hathruithe luacha féach an scáileán:

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Earraí níos coibhneasta:

  • Aibhsigh Sraitheanna nuair a Athraíonn Luach Cill in Excel
  • Má tá liosta de luachanna arís agus arís eile i do bhileog oibre, agus ní mór duit aird a tharraingt ar na sraitheanna bunaithe ar cholún A a athraíonn luach cille mar a thaispeántar an pictiúr seo a leanas. Déanta na fírinne, is féidir leat an post seo a chríochnú go tapa agus go héasca tríd an ngné Formáidithe Coinníollach a úsáid.
  • Uimhreacha Méadaithe Nuair a Athraíonn Luach i gColún Eile
  • Ag ceapadh, tá liosta luachanna agat i gcolún A, agus anois ba mhaith leat uimhir a mhéadú faoi 1 i gcolún B nuair a athraíonn an luach i gcolún A, rud a chiallaíonn na huimhreacha i incrimint cholún B go dtí go n-athraíonn an luach i gcolún A, ansin an tosaíonn incrimint uimhreacha ó 1 arís mar a thaispeántar an scáileán ar chlé. In Excel, is féidir leat an post seo a réiteach leis an modh seo a leanas.
  • Cealla Suim Nuair a Athraíonn Luach I gColún Eile
  • Nuair a bhíonn tú ag obair ar bhileog oibre Excel, am éigin, b’fhéidir go mbeidh ort cealla a shuimiú bunaithe ar ghrúpa sonraí i gcolún eile. Mar shampla, anseo, ba mhaith liom na horduithe i gcolún B a achoimriú nuair a athraíonn na sonraí i gcolún A chun an toradh seo a leanas a fháil. Conas a d’fhéadfá an fhadhb seo a réiteach in Excel?
  • Cuir Sraitheanna Bána isteach nuair a athraíonn luach in Excel
  • Má cheaptar go bhfuil raon sonraí agat, agus anois ba mhaith leat sraitheanna bána a chur isteach idir na sonraí nuair a athraíonn luach, ionas gur féidir leat na luachanna seicheamhacha céanna a scaradh i gcolún amháin agus na scáileáin scáileáin a leanas a thaispeántar. San Airteagal seo, labhróidh mé faoi roinnt cleasanna chun an fhadhb seo a réiteach.
  • Rith Macra nuair a athraíonn Luach Cill In Excel
  • De ghnáth, in Excel, is féidir linn eochair F5 nó cnaipe Rith a bhrú chun an cód VBA a fhorghníomhú. Ach, an ndearna tú iarracht riamh an macra-chód sonrach a rith nuair a athraíonn luach cille? An t-alt seo, tabharfaidh mé isteach roinnt cleasanna gasta chun déileáil leis an bpost seo in Excel.

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 (8)
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, go raibh maith agat! Cuireann smaoineamh VBA allais orm. Tá fadhb amháin agam le torthaí an chóid seo áfach. Is ceanntásc colún é an chéad cholún. Pléann an cód leis seo mar athrú. Ní thaispeánann mo chéad leathanach ach ceanntásc an cholúin, ach tá na leathanaigh seo a leanas ceart go leor. FYI: Baineann sé seo le tuarascáil mhíosúil agus athraíonn líon na sraitheanna do gach critéar go míosúil. Aon Smaointe? Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm. EAGAIR: Ceanntásc colúin is ea an chéad ROW.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé sin iontach iontach! Lean mé chomh maith ar do shampla VB agus d'oibrigh sé! Is úinéir mé ar KUTools freisin agus imreoidh mé leis sin freisin.

An-tógtha agus go raibh maith agat!

Mike
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir an chéad 20 sraith den leathán a scipeáil? Más rud é go raibh mé ag iarraidh gach cineál rudaí ach tá mo chuid eolais ar VBA teoranta chun an cód a choigeartú mé féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Wilco,
Chun briseadh an leathanaigh a chur isteach ach an chéad 20 sraith a scipeáil, ní gá duit ach paraiméadar amháin a athrú mar an cód thíos:

Briseadh leathanach fo-ionchuir()

'nuashonrúby Extendoffice

Dim I Chomh Fada, J Chomh Fada

J = ActiveSheet.Cells(Rows.Count, "A").Deireadh(xlUp).Row

Do I = J Go 21 Céim -1

Má Raon ("A" & I).Luach <> Raon ("A" & I - 1).Luach Ansin

ActiveSheet.HPageBreaks.Add Before:=Raon("A" & I)

Deireadh Má

Ar Aghaidh I.

Fo Deireadh

Déan iarracht, le do thoil, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tôi không muốn ngắt trang tại những hang bị ẩn. Thì phải làm sao?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Lê Tuấn
Chun d’fhadhb a réiteach, cuir an cód VBA thíos i bhfeidhm le do thoil:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
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ú
Dia duit,

An bhfuil tú sásta leis an gcód qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement of valeur... cad é faut-il changer dans le code ?

Go raibh míle maith agat go mór!
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