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

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 threialwch am ddim Kutools ar gyfer Excel Now!


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.

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch! Mae meddwl am VBA yn gwneud i mi chwysu. Fodd bynnag, mae gennyf un broblem gyda chanlyniadau'r cod hwn. Pennawd colofn yw'r golofn gyntaf. Mae'r cod yn trin hyn fel newid. Dim ond pennawd y golofn mae fy nhudalen gyntaf yn ei ddangos, ond mae'r tudalennau dilynol yn iawn. FYI: Mae hwn ar gyfer adroddiad misol ac mae nifer y rhesi ar gyfer pob maen prawf yn newid yn fisol. Unrhyw Syniadau? Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf. Golygu: Pennawd colofn yw'r RHES gyntaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hynny'n wirioneddol wych! Dilynais eich enghraifft VB ac fe weithiodd! Rwyf hefyd yn berchennog KUTools felly byddaf yn chwarae gyda hynny hefyd.

argraff fawr iawn a diolch!

Mike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl hepgor 20 rhes gyntaf y ddalen? Os bûm yn rhoi cynnig ar bob math o bethau ond mae fy ngwybodaeth o VBA yn gyfyngedig i addasu'r cod fy hun.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Wilco,
I fewnosod toriad y dudalen ond hepgor yr 20 rhes gyntaf, does ond angen i chi newid un paramedr fel y cod isod:

Toriadau tudalen is-mewnosod()

'diweddaru erbyn Extendoffice

Dim I Cyhyd, J Cyhyd

J = ActiveSheet.Cells(Rows.Count, "A").Diwedd(xlUp).Rhes

I I = J I 21 Cam -1

Os Ystod ("A" ac I). Gwerth <> Ystod ("A" ac I - 1). Gwerth Yna

ActiveSheet.HPageBreaks.Add Before:=Ystod ("A" ac I)

Gorffennwch Os

Nesaf i

Is-End

Ceisiwch, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tôi không muốn ngắt trang tại những hang bịẩn. Thì phải làm sao?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Lê Tuấn
I ddatrys eich problem, cymhwyswch y cod VBA isod:
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


Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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 ?

Diolch yn fawr iawn i chi!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL