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

Sut i ychwanegu dalen newydd gydag enw penodol yn Excel?

Weithiau, rydych chi am greu dalen newydd a'i henwi'n awtomatig gydag enw penodol yn Excel. Yn yr erthygl hon, byddwn yn dangos dau ddull i chi o ychwanegu dalen newydd gydag enw penodol yn y llyfr gwaith cyfredol, yn ogystal â chreu taflen waith gydag enw penodol mewn llyfr gwaith newydd yn Excel.

Auto ychwanegu taflen newydd gydag enw penodol yn y llyfr gwaith cyfredol gyda chod VBA
Auto ychwanegu taflen newydd gydag enw penodol mewn llyfr gwaith newydd gyda Kutools ar gyfer Excel


Auto ychwanegu taflen newydd gydag enw penodol yn y llyfr gwaith cyfredol gyda chod VBA


Gallwch ychwanegu dalen newydd gydag enw penodol ar ddiwedd y llyfr gwaith cyfredol gyda'r cod VBA canlynol.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau.

3. Copïwch a gludwch islaw cod VBA i'r Modiwlau ffenestr.

Cod VBA: ychwanegwch ddalen newydd gydag enw penodol ar ddiwedd y llyfr gwaith cyfredol

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Gwasgwch F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, nodwch enw ar gyfer y ddalen hon, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

Yna mae taflen waith newydd yn cael ei chreu gydag enw penodol ac wedi'i lleoli ar ddiwedd y llyfr gwaith cyfredol.


Auto ychwanegu taflen newydd gydag enw penodol mewn llyfr gwaith newydd gyda Kutools ar gyfer Excel

Yn yr adran hon, byddwn yn cyflwyno'r Creu Taflenni Gwaith Dilyniant cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi ychwanegu dalen newydd yn hawdd gydag enw penodol mewn llyfr gwaith newydd.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Ar gyfer ychwanegu dalen newydd gydag enw penodol, mae angen i chi deipio'r enw hwn i mewn i gell ymlaen llaw. Ac yna cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Taflenni Gwaith Dilyniant.

2. Yn y Creu Taflenni Gwaith Dilyniant blwch deialog, dewiswch Taflen waith wag yn y Taflen Waith Sylfaen rhestr ostwng, dewiswch Dyddiadmewn ystod opsiwn, a nodwch y gell sy'n cynnwys enw penodol y daflen waith, ac yn olaf cliciwch y OK botwm. Gweler y screenshot:

Yna mae taflen waith newydd gyda'r enw penodol hwn o gell yn cael ei chreu mewn llyfr gwaith newydd ar unwaith.

Nodiadau:

1. Os ydych chi am greu nifer o daflenni newydd gydag enwau penodol ar yr un pryd, rhowch yr enwau hyn mewn celloedd fesul un, ac yna dewiswch y celloedd hyn yn y Data mewn ystod blwch.
2. Gallwch hefyd greu taflenni gwaith dilyniant o rifau cyfres neu restr arfer gyda hyn Creu Taflenni Gwaith Dilyniant cyfleustodau. Gweler y screenshot:

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


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 Swyddfa / Excel 2007-2019 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 (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n eithaf newydd i VBA, mae'r cod uchod yn gweithio'n wych ar gyfer ychwanegu taenlen newydd a'i ailenwi, fodd bynnag, hoffwn wedyn iddo gopïo a gludo'r cynnwys yn awtomatig ar fy nhaflen 'templed' i'r daflen newydd? All unrhyw un helpu os gwelwch yn dda?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Rhowch gynnig ar y cod VBA isod. Gobeithio y gall helpu. Diolch am eich sylw.

Is-ddalen creu()
Dim xName Fel Llinyn
Dim xSht Fel Gwrthrych
Dim xNWS Fel Taflen Waith
Ar Ail-ddechrau Gwall Nesaf
xName = Application.InputBox ("Rhowch enw ar gyfer y ddalen newydd hon", "Kutools ar gyfer Excel")
If xName = " " Yna Ymadael Is
Gosod xSht = Taflenni(xName)
Os Na xSht Ydy Dim Yna
msgstr "Ni ellir creu dalen gan fod taflen waith gyda'r un enw yn y llyfr gwaith hwn yn barod"
Is Allanfa
Gorffennwch Os
ActiveSheet.Copy ar ôl:=Taflenni(Sheets.count)
Gosod xNWS = Sheets(Sheets.count)
xNWS.Name = xName
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi am eich grisial ateb! Dw i'n gweithio nawr :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, nid yw hyn yn cyfrif yn iawn am y defnyddiwr yn clicio canslo. Mae'n dal i greu taflen waith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi
Mae'r cod wedi'i ddiweddaru gyda'r datrys problemau. Rhowch gynnig arni a diolch am eich sylw.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir