Skip i'r prif gynnwys

 Sut i gopïo taflen ac ailenwi yn seiliedig ar werth celloedd yn Excel?

Fel rheol, gallwch chi gymhwyso'r Symud neu Gopïo nodwedd i gopïo taflen waith, ac yna teipiwch enw newydd ar gyfer y copi â llaw yn ôl yr angen. Ond, a ydych erioed wedi ceisio ailenwi'r ddalen yn seiliedig ar werth cell ar ôl copïo'r daflen waith? Yr erthygl hon, byddaf yn siarad am sut i ailenwi'r daflen waith yn seiliedig ar werth celloedd yn awtomatig pan fyddwch chi'n gwneud copi.

Copïwch daflen waith ac ailenwi yn seiliedig ar werth celloedd gyda chod VBA

Copïwch daflen waith sawl gwaith ac ail-enwi yn seiliedig ar werthoedd celloedd gyda Kutools ar gyfer Excel


Copïwch daflen waith ac ailenwi yn seiliedig ar werth celloedd gyda chod VBA

Gall y cod VBA canlynol eich helpu i gopïo taflen waith a'i hailenwi â gwerth celloedd penodol yn awtomatig, gwnewch fel hyn:

1. Gweithredwch y daflen waith rydych chi am ei chopïo, ac yna daliwch 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: Copïwch daflen waith ac ailenwi â gwerth cell:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae eich taflen waith gyfredol wedi'i chopïo i'r llyfr gwaith cyfredol ar ôl yr holl daflenni gwaith, ac fe'i hailenwyd â'r gwerth celloedd a nodwyd gennych, gweler y screenshot:

copi doc raname yn ôl gwerth 1

Nodyn: Yn y cod uchod, cyfeirnod y gell A1 yw'r gwerth cell rydych chi am ei ailenwi ar gyfer y ddalen newydd a gopïwyd, gallwch ei newid i'ch angen.


Copïwch daflen waith sawl gwaith ac ail-enwi yn seiliedig ar werthoedd celloedd gyda Kutools ar gyfer Excel

Dim ond gydag un gwerth cell y gall y cod uchod ail-enwi, os bydd angen i chi gopïo'r ddalen sawl gwaith a'u hail-enwi yn seiliedig ar restr o werthoedd celloedd, Kutools ar gyfer Excel'S Creu Taflen Waith Dilyniant gall eich helpu i orffen y dasg hon mor gyflym ag y gallwch.

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 a ganlyn:

1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Taflenni Gwaith Dilyniant, gweler y screenshot:

copi doc raname yn ôl gwerth 3

2. Yn y Creu Taflen Waith Dilyniant blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Dewiswch enw'r daflen waith rydych chi am ei chopïo o'r Taflen Waith Sylfaen rhestr ostwng;

(2.) Dewiswch Ddata mewn opsiwn amrediad o dan y Enwau dalen yn seiliedig ar adran, a chlicio copi doc raname yn ôl gwerth 5 botwm i ddewis y gwerthoedd celloedd rydych chi am ailenwi'r taflenni gwaith a gopïwyd yn seiliedig arnynt.

Dadlwythwch Kutools ar gyfer Excel Nawr !

3. Yna cliciwch Ok Mae'r botwm, a'r daflen waith benodol wedi cael eu copïo sawl gwaith a'u hailenwi â'r gwerthoedd celloedd a ddewisoch mewn llyfr gwaith newydd, gweler y screenshot:

copi doc raname yn ôl gwerth 4

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Demo: Copïwch daflen waith sawl gwaith ac ail-enwi yn seiliedig ar werthoedd celloedd gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

tab kte 201905


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations