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

 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 a'i hail-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 a'i hail-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 Now!


Demo: Copïwch daflen waith sawl gwaith a'i hail-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!

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 (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod isod yn gweithio'n wych. Fy nghwestiwn yw, a yw'n bosibl agor y daflen waith newydd yn awtomatig (yn seiliedig ar A1) a dileu'r cynnwys o'r daflen flaenorol gan ei fod yn cael ei ddefnyddio fel y templed. Is-Ddalen waith Ailenwi Copi() 'Diweddaru erbyn Extendoffice 20160704 Dim ws Fel Set Taflen Waith wh = Taflenni Gwaith(Active Sheet.Name) ActiveSheet.Copy After:=Taflenni Gwaith(Talenni.Cyfrif) If wh.Range("A1").Value"" Yna ActiveSheet.Name = wh.Range("A1 "). Diwedd Gwerth Os wh.Activate End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Eich cod yw'r hyn yr wyf wedi bod yn chwilio amdano, fodd bynnag dyddiad yw cynnwys y gell yr hoffwn ei ddefnyddio i ailenwi'r ddalen. Er enghraifft, ar y ddalen gyntaf, mae cell A2 yn dangos dyddiad fel dydd Llun 3 Ebrill 2017. Yr hyn yr hoffwn i ddigwydd yw pan fydd y daflen nesaf yn cael ei chreu gan y macro fyddai cymryd y dyddiad o A2, ychwanegu 7 i'w harddangos, ar gyfer enghraifft, "Dydd Llun 10 Gorffennaf, 2017" ond ailenwi'r ddalen newydd yn y fformat dd-mm-bb, felly "10-07-17". Ydy hyn yn bosib? Gyda llaw, mae gen i Kutools ar gyfer Excel , ond bydd y taenlen hon yn gofnod pwysedd gwaed ar gyfer fy nhad nad oes ganddo Kutools. Diolch ymlaen llaw!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir