Sut i greu taflenni gwaith dilyniant o ystod o gelloedd yn Excel?
Os oes gennych ystod o ddata yn eich taflen waith, ac yn awr, rydych chi am greu cyfres o daflenni gwaith yn seiliedig ar y data celloedd, gweler y screenshot canlynol. Wrth gwrs, gallwch olygu enw'r daflen waith fesul un â llaw, ond os oes sawl enw taflen waith mae angen eu golygu, bydd y ffordd hon yn drafferthus ac yn cymryd llawer o amser. Yma, byddaf yn siarad am rai triciau cyflym i'ch helpu chi.
Creu taflenni gwaith dilyniant o'r rhestr o gelloedd gyda chod VBA
Creu dilyniant taflenni gwaith o restr o gelloedd gyda Kutools ar gyfer Excel
Creu taflenni gwaith dilyniant o'r rhestr o gelloedd gyda chod VBA
Gall y cod VBA canlynol eich helpu i ychwanegu rhai taflenni gwaith a enwir yn seiliedig ar gynnwys y gell ar ôl taflenni gwaith sy'n bodoli eisoes. Gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: ychwanegu taflenni gwaith dilyniant yn seiliedig ar restr y celloedd
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac yna bydd blwch prydlon yn cael ei ddewis i chi ddewis yr ystod rydych chi am ei defnyddio. Gweler y screenshot:
4. Ac yna cliciwch OK, ychwanegwyd y taflenni gwaith a enwir gan y gwerthoedd celloedd ar ôl y daflen waith bresennol. Gweler y screenshot:
Nodiadau:
1. Bydd y taflenni gwaith newydd yn cael eu mewnosod ar ôl y daflen waith gyfredol.
2. Os oedd yr ystod a ddewiswyd yn cynnwys celloedd gwag, enwir y taflenni gwaith yn seiliedig ar ragosodiad. Gweler sgrinluniau:
Creu dilyniant taflenni gwaith o restr o gelloedd gyda Kutools ar gyfer Excel
Yma, rwy'n cyflwyno teclyn defnyddiol-Kutools ar gyfer Excel, Gyda'i Creu Taflenni Gwaith Dilyniant, gallwch chi greu taflenni gwaith yn gyflym gydag enw'r mis, enw'r dydd, y rhestr arfer ac ati.
Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch y camau canlynol:
1. Dewiswch yr ystod rydych chi am greu taflenni gwaith yn seiliedig arni.
2. Cliciwch Menter > Offer Taflen Waith > Creu Taflenni Gwaith Dilyniant, gweler y screenshot:
3. Yn y Creu Taflenni Gwaith Dilyniant blwch deialog, dewiswch y math o daflen waith rydych chi am greu'r taflenni gwaith dilyniant newydd, ac yna gwiriwch Data mewn ystod opsiwn, gweler y screenshot:
4. Yna cliciwch OK i gau'r blwch deialog, ac mae llyfr gwaith newydd sy'n cynnwys y taflenni gwaith wedi'u henwi gan y data amrediad a ddewiswyd. Gweler y screenshot:
Nodiadau:
1. Os dewiswch Daflen 1 neu Daflen 2, bydd y taflenni gwaith newydd yn cael eu creu yr un fformat â Thaflen 1 neu Daflen 2.
2. Mae'r taflenni gwaith newydd yn cael eu creu mewn llyfr gwaith newydd.
3. Os oedd yr ystod a ddewiswyd yn cynnwys celloedd gwag, enwir y taflenni gwaith yn seiliedig ar ragosodiad. Gweler sgrinluniau:
Cliciwch i wybod mwy am y nodwedd Creu Taflenni Gwaith Dilyniant hwn.
Erthygl gysylltiedig:
Sut i Ychwanegu Taflenni Gwaith Newydd gydag Enwau wedi'u Customized yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!