Sut i greu nifer o daflenni gwaith o restr o werthoedd celloedd?
A oes unrhyw ddulliau cyflym neu hawdd inni greu nifer o daflenni gwaith yn seiliedig ar restr o werthoedd celloedd yn Excel? Yn yr erthygl hon, byddaf yn siarad am rai triciau da i ddatrys y swydd hon.
Creu taflenni gwaith lluosog o restr o werthoedd celloedd gyda chod VBA
Creu taflenni gwaith lluosog o restr o werthoedd celloedd gyda Kutools ar gyfer Excel
Creu taflenni gwaith lluosog o restr o werthoedd celloedd gyda chod VBA
I greu nifer o daflenni gwaith newydd yn gyflym a enwodd gyda rhestr o werthoedd celloedd, gall y cod VBA canlynol eich helpu.
1. Daliwch 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: Creu nifer o daflenni gwaith o restr o gelloedd:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Nodyn: Yn y cod uchod, A1: A7 yw'r ystod gell rydych chi am greu taflenni yn seiliedig arni, newidiwch hi i'ch angen.
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r taflenni newydd wedi'u creu ar ôl yr holl daflenni yn y llyfr gwaith cyfredol, gweler y screenshot:
Creu taflenni gwaith lluosog o restr o werthoedd celloedd gyda Kutools ar gyfer Excel
Os nad ydych chi'n fedrus gyda'r cod uchod, dyma offeryn defnyddiol-Kutools ar gyfer Excel, Gyda'i Creu Taflenni Gwaith Dilyniant swyddogaeth, bydd y taflenni gwaith yn cael eu creu yn seiliedig ar werthoedd y celloedd mewn llyfr gwaith newydd.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:
1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Taflenni Gwaith Dilyniant, gweler y screenshot:
2. Yn y Creu Taflenni Gwaith Dilyniant blwch deialog:
(1.) Dewiswch un daflen waith rydych chi am greu taflenni gwaith dilyniant yn seiliedig arni;
(2.) Yna dewiswch Dyddiad mewn opsiwn ystod o'r Enwau dalen yn seiliedig ar blwch rhestr, a chlicio botwm i ddewis y gwerthoedd celloedd rydych chi am eu defnyddio.
3. Ac yna cliciwch Ok botwm, mae'r taflenni gwaith wedi'u creu gydag enwau'r gwerthoedd celloedd mewn llyfr gwaith newydd, gweler y screenshot:
Cliciwch Lawrlwythwch a threial am ddim Kutools ar gyfer Excel Nawr!
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!