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

Hogyan lehet beszúrni az oldaltöréseket, ha az Excelben megváltozik az érték?

Tegyük fel, hogy van egy cellatartományom, és most be akarok illeszteni oldaltöréseket a munkalapba, amikor az A oszlop értékei megváltoznak, ahogy a bal oldali képernyőkép látható. Természetesen egyenként is beillesztheti őket, de vannak-e gyors módszerek az oldalszakadások egyidejű beszúrására az egyik oszlop megváltozott értéke alapján?

Oldaltörések beszúrása, ha az érték a VBA kóddal változik

Oldaltörések beszúrása, ha az érték egy erőteljes funkcióval változik


Oldaltörések beszúrása, ha az érték a VBA kóddal változik

A következő VBA-kód segíthet az alábbi oldaltöredékek beszúrásában az oszlopadat-módosítások alapján: kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Oldaltörések beszúrása, ha az érték megváltozik:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, az összes oldaltörést beszúrtuk a munkalapba, amikor az adatok megváltoznak az A oszlopban. Lásd a képernyőképet:

Jegyzet:A fenti kódban A az oszlopfejléc, amely alapján be akarja illeszteni az oldaltörést, megváltoztathatja az Ön igényeinek megfelelően.

Oldaltörések beszúrása, ha az érték egy erőteljes funkcióval változik

Ha van Kutools az Excel számára, Annak Megkülönböztetni a különbségeket funkcióval gyorsan beszúrhat oldaltöréseket, üres sorokat, alsó szegélyvonalakat vagy háttérszínt az értékváltozások alapján. Kattintson a Kutools for Excel letöltéséhez!

Tipp:Ennek alkalmazásához Megkülönböztetni a különbségeket funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > kialakított > Megkülönböztetni a különbségeket, lásd a képernyőképet:

2. A kiugrott Megkülönböztetni a különbségeket kulcsoszlopok szerint párbeszédpanelen hajtsa végre a következő műveleteket:

  • Válassza ki a használni kívánt adattartományt és kulcsoszlopot;
  • A pop-art design, négy időzóna kijelzése egyszerre és méretének arányai azok az érvek, amelyek a NeXtime Time Zones-t kiváló választássá teszik. Válassza a Oldaltörés tól Opciók doboz.

3. Ezután kattintson Ok gombra, az oldaltöréseket beillesztették a tartományba az értékváltozások alapján, lásd a képernyőképet:

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Relatívabb cikkek:

  • Növekményszámok, ha az érték egy másik oszlopban változik
  • Tételezzük fel, hogy van egy értéklistád az A oszlopban, és most 1-gyel akarod növelni a B oszlop számát, ha az A oszlop értéke megváltozik, ami azt jelenti, hogy a B oszlopban lévő számok növekszenek, amíg az A oszlop értéke megváltozik, majd a a szám növekménye ismét 1-től kezdődik, ahogy a bal oldali képernyőkép látható. Az Excelben ezt a feladatot a következő módszerrel oldhatja meg.
  • Összegző cellák, ha az érték egy másik oszlopban változik
  • Ha valamikor Excel munkalapon dolgozik, akkor előfordulhat, hogy egy másik oszlop adatcsoportja alapján kell összegeznie a cellákat. Például itt szeretném összegezni a B oszlop rendeléseit, amikor az adatok megváltoznak az A oszlopban, hogy a következő eredményt kapjam. Hogyan oldhatná meg ezt a problémát az Excel programban?
  • Üres sorok beszúrása, ha az érték megváltozik az Excelben
  • Tegyük fel, hogy van egy adattartománya, és most üres sorokat szeretne beilleszteni az adatok közé, amikor az érték megváltozik, hogy a szekvenciális ugyanazokat az értékeket egy oszlopban különíthesse el, a következő képernyőképek szerint. Ebben a cikkben néhány trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a problémát.

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (8)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello Köszönöm! A VBA gondolata megizzaszt. Van azonban egy problémám ennek a kódnak az eredményeivel. Az első oszlop egy oszlopfejléc. A kód ezt változásként kezeli. Az első oldalamon csak az oszlopfejléc látható, de a következő oldalakon rendben van. Tájékoztatás: Ez egy havi jelentésre vonatkozik, és az egyes feltételekhez tartozó sorok száma havonta változik. Bármilyen ötletet? Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnálom. SZERKESZTÉS: Az első SOR egy oszlopfejléc.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez valóban zseniális! Követtem a VB példáját, és működött! Én is a KUTools tulajdonosa vagyok, így azzal is fogok játszani.

Nagyon lenyűgözött és köszönöm!

Mikrofon
A weboldal moderátora ezt a megjegyzést minimalizálta
Ki lehet hagyni a lap első 20 sorát? Ha már mindenféle dolgot kipróbáltam, de a VBA-val kapcsolatos ismereteim csak arra korlátozódnak, hogy magam állítsam be a kódot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Wilco!
Az oldaltörés beszúrásához, de az első 20 sor kihagyásához csak egy paramétert kell módosítania az alábbi kód szerint:

Oldalbeszúrás()

'frissítés Extendoffice

Dim I As Long, J As Long

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

Ha I = J - 21 -1. lépés

If Range("A" & I).Érték <> Tartomány("A" & I - 1).Érték akkor

ActiveSheet.HPageBreaks.Add Before:=Tartomány("A" & I)

Ha véget

Következő I

End Sub

Próbáld ki, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Lê Tuấn!
A probléma megoldásához használja az alábbi VBA kódot:
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


Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,

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?

Köszönöm szépen!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi