Skip i'r prif gynnwys

Sut i fewnosod seibiannau tudalen pan fydd gwerth yn newid yn Excel?

Gan dybio, mae gen i ystod o gelloedd, a nawr, rydw i eisiau mewnosod toriadau tudalen yn y daflen waith pan fydd gwerthoedd yng ngholofn A yn newid fel y dangosir y llun chwith. Wrth gwrs, gallwch eu mewnosod fesul un, ond a oes unrhyw ffyrdd cyflym o fewnosod y toriadau tudalen ar unwaith yn seiliedig ar werthoedd newidiol un golofn?

Mewnosod seibiannau tudalen pan fydd gwerth yn newid gyda chod VBA

Mewnosod seibiannau tudalen pan fydd gwerth yn newid gyda nodwedd bwerus

Mewnosod seibiannau tudalen pan fydd gwerth yn newid gyda chod VBA

Gall y cod VBA canlynol eich helpu i fewnosod toriadau tudalen isod yn seiliedig ar unwaith y bydd data colofn yn newid, gwnewch fel a ganlyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnosod seibiannau tudalen pan fydd y gwerth yn newid:

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r holl seibiannau tudalen wedi'u mewnosod yn y ddalen pan fydd data'n newid yng ngholofn A. Gweler y screenshot:

Nodyn:Yn y cod uchod, A yw'r pennawd colofn rydych chi am fewnosod toriad tudalen yn seiliedig arno, gallwch ei newid i'ch angen.

Mewnosod seibiannau tudalen pan fydd gwerth yn newid gyda nodwedd bwerus

Os oes gennych Kutools ar gyfer Excel, Gyda'i Gwahaniaethwch wahaniaethau nodwedd, gallwch fewnosod seibiannau tudalen, rhesi gwag, llinellau ffin waelod neu liw cefndir yn gyflym yn seiliedig ar y newidiadau gwerth. Cliciwch i lawrlwytho Kutools ar gyfer Excel!

Awgrym:I gymhwyso hyn Gwahaniaethwch wahaniaethau nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools > fformat > Gwahaniaethwch wahaniaethau, gweler y screenshot:

2. Yn y popped allan Gwahaniaethwch y gwahaniaethau yn ôl colofn allweddol blwch deialog, gwnewch y gweithrediadau canlynol:

  • Dewiswch yr ystod ddata a'r golofn allweddol rydych chi am eu defnyddio;
  • Dewiswch Toriad Tudalen oddi wrth y Dewisiadau blwch.

3. Yna cliciwch Ok botwm, mae'r toriadau tudalen wedi'u mewnosod yn yr ystod yn seiliedig ar y newidiadau gwerth gweler y screenshot:

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr!

Erthyglau mwy cymharol:

  • Tynnu sylw at resi pan fydd gwerth celloedd yn newid yn Excel
  • Os oes rhestr o werthoedd dro ar ôl tro yn eich taflen waith, ac mae angen i chi dynnu sylw at y rhesi yn seiliedig ar golofn A pa werth celloedd sy'n newid fel y dangosir y screenshot canlynol. Mewn gwirionedd, gallwch chi orffen y swydd hon yn gyflym ac yn hawdd trwy ddefnyddio'r nodwedd Fformatio Amodol.
  • Niferoedd Cynyddiad Pan fydd Gwerth yn Newid Mewn Colofn arall
  • Gan dybio, mae gennych chi restr o werthoedd yng ngholofn A, a nawr rydych chi am gynyddu rhif 1 yng ngholofn B pan fydd y gwerth yng ngholofn A yn newid, sy'n golygu'r rhifau yng ngholofn B cynyddran nes bod y gwerth yng ngholofn A yn newid, yna'r cynyddiad rhif yn dechrau o 1 eto fel y dangosir y llun chwith. Yn Excel, gallwch ddatrys y swydd hon gyda'r dull canlynol.
  • Celloedd Swm Pan fydd Gwerth yn Newid Mewn Colofn arall
  • Pan fyddwch chi'n gweithio ar daflen waith Excel, rywbryd, efallai y bydd angen i chi grynhoi celloedd yn seiliedig ar grŵp o ddata mewn colofn arall. Er enghraifft, yma, rwyf am grynhoi'r gorchmynion yng ngholofn B pan fydd y data'n newid yng ngholofn A i gael y canlyniad canlynol. Sut allech chi ddatrys y broblem hon yn Excel?
  • Mewnosod Rhesi Gwag Pan fydd Gwerth yn Newid Yn Excel
  • Gan dybio bod gennych chi ystod o ddata, ac nawr rydych chi am fewnosod rhesi gwag rhwng y data pan fydd gwerth yn newid, fel y gallwch chi wahanu'r un gwerthoedd dilyniannol mewn un golofn â'r sgrinluniau canlynol a ddangosir. Yn yr erthygl hon, byddaf yn siarad am rai triciau i chi ddatrys y broblem hon.
  • Rhedeg Macro Pan fydd Gwerth Cell yn Newid Yn Excel
  • Fel rheol, yn Excel, gallwn wasgu allwedd F5 neu botwm Run i weithredu'r cod VBA. Ond, a ydych erioed wedi ceisio rhedeg y cod macro penodol pan fydd gwerth cell yn newid? Yr erthygl hon, byddaf yn cyflwyno rhai triciau cyflym i ddelio â'r swydd hon yn Excel.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad

Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (8)
No ratings yet. Be the first to rate!
Hélène HERLY
Hélène HERLY
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 !
Reply
0
0
Lê Tuấn
Lê Tuấn
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?
Reply
0
0
skyyang
skyyang     Lê Tuấn
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!
Reply
Report
0
0
Wilco
Wilco
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.
Reply
0
0
skyyang
skyyang     Wilco
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!
Reply
Report
0
0
Mike MItsch
Mike MItsch
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
Reply
0
0
GUEST
GUEST
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
Reply
0
0
GUEST
GUEST
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.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations