Skip to main content

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.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
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


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

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

For I = J To 21 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

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations