Preskoči na glavno vsebino

Kako vstaviti prelome strani, ko se vrednost spremeni v Excelu?

Avtor: Xiaoyang Zadnja sprememba: 2020-06-03

Recimo, da imam vrsto celic, zdaj pa želim vstaviti prelome strani v delovni list, ko se vrednosti v stolpcu A spremenijo, kot je prikazano na levi sliki zaslona. Seveda jih lahko vstavite enega za drugim, vendar obstajajo hitri načini za vstavljanje prelomov strani naenkrat glede na spremenjene vrednosti enega stolpca?

Vstavite prelome strani, ko se vrednost spremeni s kodo VBA

Vstavite prelome strani, ko se vrednost spremeni z zmogljivo funkcijo


Vstavite prelome strani, ko se vrednost spremeni s kodo VBA

Naslednja koda VBA vam lahko pomaga, da spodaj vstavite prelome strani na podlagi sprememb podatkov v stolpcu, naredite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Vstavi prelome strani, ko se vrednost spremeni:

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. Nato pritisnite F5 za zagon te kode, so bili vsi prelomi strani vstavljeni v list, ko se podatki spremenijo v stolpec A. Oglejte si posnetek zaslona:

Opomba:V zgornji kodi je A je glava stolpca, na podlagi katere želite vstaviti prelom strani, jo lahko spremenite po svoji potrebi.

Vstavite prelome strani, ko se vrednost spremeni z zmogljivo funkcijo

Če imate Kutools za Excel, Z njegovim Razlikovati razlike Na podlagi sprememb vrednosti lahko hitro vstavite prelome strani, prazne vrstice, spodnje obrobe ali barvo ozadja. Kliknite za prenos Kutools za Excel!

Nasvet:Če želite uporabiti to Razlikovati razlike funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Kliknite Kutools > oblikovana > Razlikovati razlike, glej posnetek zaslona:

2. V izskočil Ločite razlike po ključnem stolpcu v pogovornem oknu izvedite naslednje postopke:

  • Izberite obseg podatkov in stolpec ključev, ki ga želite uporabiti;
  • Izberite Page Break Iz možnosti škatla.

3. Nato kliknite Ok gumb, so prelomi strani vstavljeni v obseg na podlagi sprememb vrednosti, glej posnetek zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Več relativnih člankov:

  • Označi vrstice, ko se v Excelu spremeni vrednost celice
  • Če je na vašem delovnem listu seznam ponavljajočih se vrednosti in morate označiti vrstice glede na stolpec A, katera vrednost celice se spremeni, kot je prikazano na sliki spodaj. Dejansko lahko to funkcijo hitro in enostavno dokončate s funkcijo pogojnega oblikovanja.
  • Številke prirastkov, ko se vrednost spremeni v drugem stolpcu
  • Recimo, da imate seznam vrednosti v stolpcu A, zdaj pa želite povečati število za 1 v stolpcu B, ko se vrednost v stolpcu A spremeni, kar pomeni, da se številke v stolpcu B povečujejo, dokler se vrednost v stolpcu A ne spremeni, prirast števila se začne znova znova, kot je prikazano na levi sliki zaslona. V Excelu lahko to nalogo rešite z naslednjo metodo.
  • Vsote celic, ko se vrednost spremeni v drugem stolpcu
  • Ko delate na Excelovem delovnem listu, boste morda morali v drugem stolpcu povzeti celice na podlagi skupine podatkov. Na primer tukaj želim strniti naročila v stolpcu B, ko se podatki spremenijo v stolpcu A, da dobim naslednji rezultat. Kako lahko to težavo rešite v Excelu?
  • Vstavite prazne vrstice, ko se vrednost v Excelu spremeni
  • Recimo, da imate obseg podatkov in zdaj želite med podatke vstaviti prazne vrstice, ko se vrednost spremeni, tako da lahko zaporedoma enake vrednosti ločite v enem stolpcu, kot kažejo naslednji prikazani posnetki zaslona. V tem članku bom spregovoril o nekaj trikih, s katerimi boste rešili to težavo.
  • Zaženite makro, ko se vrednost celice spremeni v Excelu
  • Običajno lahko v Excelu za izvedbo kode VBA pritisnemo tipko F5 ali gumb Zaženi. Ali ste že kdaj poskusili zagnati določeno kodo makra, ko se vrednost celice spremeni? V tem članku bom predstavil nekaj hitrih trikov za reševanje tega dela v Excelu.

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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