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

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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (8)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, hvala! Pomislim na VBA. Imam pa eno težavo z rezultati te kode. Prvi stolpec je glava stolpca. Koda to obravnava kot spremembo. Moja prva stran prikazuje samo glavo stolpca, vendar so naslednje strani v redu. FYI: To je za mesečno poročilo in število vrstic za vsako merilo se spreminja mesečno. Kaj idej? Hvala v naprej.
Ta komentar je moderator na spletnem mestu minimiziral
Oprosti. EDIT: Prva VRSTA je glava stolpca.
Ta komentar je moderator na spletnem mestu minimiziral
To je res briljantno! Sledil sem vašemu primeru VB in je delovalo! Sem tudi lastnik KUTools, zato se bom tudi s tem igral.

Zelo navdušen in hvala!

Mike
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče preskočiti prvih 20 vrstic lista? Če sem poskušal vse vrste stvari, vendar je moje znanje o VBA omejeno na to, da sam prilagodim kodo.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Wilco,
Če želite vstaviti prelom strani, vendar preskočiti prvih 20 vrstic, morate samo spremeniti en parameter, kot je spodnja koda:

Subinsertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

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

Za I = J Do 21 Korak -1

Če Range("A" & I).Value <> Range("A" & I - 1).Value Then

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

Konec Če

Naslednji jaz

End Sub

Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljen, Lê Tuấn
Za rešitev težave uporabite spodnjo kodo VBA:
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


Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

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 ?

Najlepša hvala!
Tu še ni objavljenih komentarjev
Prosimo, pustite komentarje v angleščini
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL