Sut i greu rhestr o'r un celloedd ar draws sawl dalen yn Excel?
Gan dybio ein bod yn defnyddio pob bwrdd gwerthu misol mewn taflen waith ar wahân fel y dangosir isod y sgrin, ac mae gan bob tabl gwerthu yr un cynllun. Nawr rydyn ni am greu rhestr o'r holl werthoedd swm (Cell E6) ar draws sawl taflen waith. Sut i wneud hynny? A beth os creu rhestr ddeinamig o werthoedd swm pob taflen waith? Mae dwy ffordd i chi:
Creu rhestr o'r un celloedd ar draws sawl dalen gyda VBA
Creu rhestr ddeinamig o'r un celloedd ar draws taflenni lluosog gyda Kutools for Excel
Cyfuno nifer o daflenni gwaith / llyfrau gwaith yn hawdd mewn taflen waith / llyfr gwaith sengl
Gall fod yn ddiflas cyfuno dwsinau o daflenni o wahanol lyfrau gwaith yn un ddalen. Ond gyda Kutools for Excel'S Cyfuno (taflenni gwaith a llyfrau gwaith) cyfleustodau, gallwch chi wneud hynny gyda dim ond sawl clic!
Creu rhestr o'r un celloedd ar draws sawl dalen gyda VBA
Gyda'r cod VBA canlynol, gallwch greu rhestr o'r celloedd penodedig ar draws sawl taflen waith yn hawdd. Gallwch wneud fel a ganlyn:
Cam 1: Dewiswch y gell benodol y byddwch chi'n creu eich rhestr ohoni. Yn ein hachos ni, rydyn ni'n dewis y Cell E6.
Cam 2: Gwasgwch Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau, ac yna gludwch y cod canlynol i mewn i ffenestr y modiwl.
VBA: Creu rhestr o'r un celloedd ar draws sawl dalen
Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub
Cam 3: Gwasgwch F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.
Yna copïir yr holl werthoedd o'r gell benodol ar bob taflen waith i daflen waith newydd o'r enw KutoolsforExcel. Gweler y sgrinlun :
Bydd y VBA hwn yn llenwi'r rhestr i mewn i daflen waith newydd, ac mae'r gwerthoedd yn y rhestr yn statig na fydd yn newid gyda'r gwerthoedd gwreiddiol.
Fodd bynnag, weithiau efallai y byddwch am lenwi'r rhestr i ystod benodol, a mynnu bod gwerthoedd y rhestr bob amser yn ohebiaeth â'r gwerthoedd gwreiddiol mewn celloedd penodol trwy'r amser. Er mwyn diwallu'r anghenion hyn, dylech roi cynnig ar y dull canlynol.
Creu rhestr ddeinamig o'r un celloedd ar draws taflenni lluosog gyda Kutools for Excel
Bydd y dull hwn yn cyflwyno Kutools for Excel'S Cyfeiriwch yn Dynamically at Daflenni Gwaith cyfleustodau i greu rhestr ddeinamig o'r un celloedd ar draws sawl taflen waith.
Kutools for Excel - Yn llawn dros 300 o offer hanfodol ar gyfer Excel. Mwynhewch sioe llawn sylw 30- treial AM DDIM diwrnod heb angen cerdyn credyd! Lawrlwytho nawr!
Cam 1: Dewiswch yr Ystod lle byddwch chi'n llenwi'r rhestr ddeinamig, a chliciwch ar y Kutools > Mwy > Cyfeiriwch yn Dynamically at Daflenni Gwaith.
Cam 2: Yn y blwch deialog Cyfeirio Taflenni Gwaith agoriadol,
(1) Cliciwch y Gorchymyn Llenwi blwch, a dewis math o lenwi o'r gwymplen. Yn ein hachos ni, rydyn ni'n dewis Llenwch gell yn fertigol ar ôl y gell;
(2) Yn y Llenwch fformiwla blwch, nodwch y cyfeiriad cell y byddwch chi'n creu rhestr ddeinamig ohono, ac yna cliciwch ar y Cloi botwm i gloi'r fformiwla.
(3) Cliciwch y Llenwch Ystod botwm.
Nawr fe welwch werthoedd yn y celloedd penodedig ar draws yr holl daflenni gwaith yn cael eu llenwi i'r ystod benodol fel y dangosir isod y sgrinlun:
Pan newidiodd y gwerthoedd gwreiddiol, bydd y gwerthoedd cyfatebol yn y rhestr benodol hon yn cael eu newid yn awtomatig.
Kutools for Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch sioe llawn sylw 30- treial AM DDIM diwrnod heb angen cerdyn credyd! Get It Now
Demo
Erthyglau cysylltiedig:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
