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

Sut i wneud enw tab dalen yn hafal i werth celloedd yn Excel?

Mewn rhai achosion, efallai y bydd angen i chi ailenwi taflen waith yn seiliedig ar werth cell penodedig. Yn yr erthygl hon, byddwn yn dangos i chi ddulliau o wneud enw tab dalen yn hafal i werth celloedd yn Excel.

Gwneud enw tab dalen yn hafal i werth y gell gyda chod VBA
Gwneud enw tab dalen yn hafal i werth y gell gyda Kutools ar gyfer Excel


Gwneud enw tab dalen yn hafal i werth y gell gyda chod VBA

Gyda'r cod VBA canlynol, gallwch wneud enw tab dalen yn hafal i werth celloedd yn awtomatig.

1. De-gliciwch y tab dalen yr ydych am wneud enw'r ddalen yn hafal i werth y gell, yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Copïwch a gludwch y cod isod i mewn i'r ffenestr Cod, ac yna pwyswch Alt + Q allweddi ar yr un pryd i gau ffenestr Microsoft Visual Basic for Applications.

Cod VBA: Gwneud tab dalen yn hafal i werth y gell

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

Nodyn: Yn y cod, A1 yw'r gell sy'n cynnwys y gwerth y mae angen i chi ei ddefnyddio fel enw'r ddalen. Gallwch ei newid yn ôl yr angen.

O hyn ymlaen, pan newidiodd y gwerth yng nghell A1, bydd enw'r tab dalen yn cael ei newid yn gyfartal hefyd.


Gwneud enw tab dalen yn hafal i werth y gell gyda Kutools ar gyfer Excel

Yn yr adran hon, rydym yn cyflwyno'r Ail-enwi Taflenni Gwaith Lluosog cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi ailenwi taflenni gwaith â gwerth celloedd penodol yn Excel yn hawdd.

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

1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Ail-enwi Taflenni Gwaith Lluosog. Gweler y screenshot:

2. Yn y Ail-enwi Taflenni Gwaith Lluosog blwch deialog, mae angen i chi wneud fel a ganlyn.

1). Gwiriwch enwau'r daflen waith rydych chi am ei hailenwi yn y Taflenni gwaith blwch (gallwch ddewis un ddalen neu ddalennau lluosog).
2). Dewiswch Amnewid enw'r daflen wreiddiol blwch yn y Ail-enwi Dewisiadau adran hon.
3). Os ydych chi am ailenwi taflen waith neu daflenni gwaith lluosog sydd â gwerth penodol i'r gell, dewiswch y O ystod benodol opsiwn, a dewiswch yr ystod o gelloedd rydych chi am ailenwi'r taflenni yn seiliedig arnyn nhw.
4). Cliciwch y OK botwm. Gweler y screenshot:

Gallwch weld bod y taflenni gwaith a ddewiswyd yn cael eu hailenwi gan y gwerth amrediad penodedig ar unwaith fel y dangosir isod y llun.

Nodiadau:

1. Gallwch ddefnyddio'r Hidlo swyddogaeth i hidlo'r daflen waith sydd ei hangen yn hawdd os oes llawer o daflenni gwaith yn bodoli.
2. Os ydych chi am ailenwi nifer o daflenni gwaith sydd â gwerth celloedd penodol ym mhob dalen. Er enghraifft, bydd taflen1 yn hafal i werth ei chell A1, a bydd taflen2 hefyd yn hafal i werth ei chell A1. Dewiswch daflenni gwaith yn y Taflenni gwaith blwch, yna dewiswch y Ail-enwi taflenni gwaith gyda chell benodol opsiwn, a nodwch gell A1 yn y blwch.

3. Ni fydd enw'r ddalen yn cael ei newid yn awtomatig gyda'r newidiadau yng ngwerth y gell.

  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.


Gwneud enw tab dalen yn hafal i werth y gell gyda Kutools ar gyfer Excel


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 (24)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gludo hwn i mewn yn ôl y cyfarwyddiadau ond nid oedd yn ymddangos yn fy rhestr o Macros sydd ar gael. Ceisiais ei redeg â llaw trwy roi'r enw Macro i mewn. Pan geisiodd redeg y Macro, daeth neges gwall i fyny "Argument no optional".

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("A1")) Yn Dim Yna
ActiveSheet.Name = ActiveSheet.Range("A1")
Gorffennwch Os
Is-End

A oes unrhyw un arall yn rhedeg y cod hwn ac wedi cael yr un mater?

Fel prawf rhedais god mwy sylfaenol ac fe weithiodd yn iawn felly nid yw'r gwerth yn "A1" yn achosi'r broblem. Pan fyddaf yn rhedeg y cod isod gallaf weld yr enw Macro "myTabName" yn y rhestr Macro. Nid yw'r cod uchod yn ymddangos a dwi'n cymryd mai'r rheswm dros hyn yw'r ddadl nam/ar goll.

Is-fyEnwTab()
ActiveSheet.Name = ActiveSheet.Range("A1")
Is-End

Diolch am eich cymorth gan yr hoffwn yn fawr ddefnyddio'r cod fel y bwriadwyd ar gyfer awtomeiddio newidiadau enw tab yn seiliedig ar werth cell.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Jason,
Mae'r cod yn gweithio'n dda yn fy achos i. A fyddech cystal â darparu eich fersiwn Office? Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael y cod hwn i weithio, ond nid yw'n diweddaru enw'r tab yn awtomatig pan fydd y gell y mae'n tynnu'r enw ohoni os yw'n cyfeirio at gell arall (a bod y gell honno'n newid).


Hy dwi'n newid cell mewn prif restr, sy'n newid y testun cell mewn cell benodol ar bob tab, y mae'r cod yn cyfeirio ato fel enw'r tab, OND nid yw'r tab yn diweddaru ei enw yn gyfatebol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Gall y cod VBA canlynol ddatrys eich problem. Diolch am eich sylw1

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod, xCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Ddim yn Croestorri (Targed, Ystod ("A1")) Yn Dim Yna
ActiveSheet.Name = ActiveSheet.Range("A1")
Gorffennwch Os
Application.EnableEvents = Gau
Gosod xRg = ActiveSheet.Range ("A1"). Cynsail
Os Nad Ydy xRg Yn Dim Yna
Am Bob xCell Mewn xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dal ddim yn gweithio. Rwy'n cael yr un mater â jJJ. grisial: A yw'r cod cyfan a ddangosir yn eich ateb?
Y llinell olaf a ddangosir yn eich sylw yw "Set xRg = ActiveSheet.Range("A1").Precedents"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl JAS,
Cliciwch ar y botwm Darllen Mwy ar ochr dde'r sylw i ddangos y sylw cyfan.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un mater o hyd.

Mae gen i A1 o'r ddalen newydd yn pwyntio i gell arall mewn tab gwahanol. Mae'n diweddaru'r tro cyntaf (pan fyddwch chi'n gweithredu) ond yna dim newid wrth olygu'r brif gell
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-daflen Waith Breifat_SelectionChange(ByVal Target As Excel.Range)
Gosod Targed = Ystod ("A1")
If Target = "" Yna Ymadael Is
Ar Gwall Ewch i Enw Bad
ActiveSheet.Name = Chwith(Targed, 31)
Is Allanfa
Enw drwg:
msgstr "Diwygiwch y cofnod yn A1." & Chr(13)_
& " Mae'n ymddangos ei fod yn cynnwys un neu fwy " & Chr(13) _
& "cymeriadau anghyfreithlon." & Chr(13)
Ystod ("A1"). Ysgogi
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r mater yr un fath o hyd, mae'n newid y tro cyntaf. pan fyddaf yn cysylltu'r gell honno â dalen arall ac yn ei newid nid yw'n ei newid yn awtomatig
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi ddefnyddio'r cod hwn ond nid wyf erioed wedi nodi cod vba o'r blaen. Byddai unrhyw arweiniad yn cael ei werthfawrogi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n newid cell mewn prif restr, sy'n newid testun y gell mewn cell benodol ar bob tab, y mae'r cod yn cyfeirio ato fel enw'r tab, OND nid yw'r tab yn diweddaru ei enw yn gyfatebol.

---- nid yw'n waith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais y cod cyfan, ac fe weithiodd. Diolch yn fawr iawn am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl JAS,
Rwy'n falch y gallwn helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn hytrach, gallwch chi ddefnyddio macro syml



Is-facro3()
Mynegai dim Fel Cyfanrif
Ar gyfer mynegai = 1 I 18

Sheets(index).Name = Taflenni(mynegai).Ystod("A2").Gwerth

Mynegai nesaf



Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'n union beth sydd ei angen arnaf, ond mae angen y tab arnaf i ail-greu dyddiad ac nid yw'n gweithio... Rwy'n cymryd bod hyn yn rhywbeth i'w wneud â'r ffordd y mae excel yn gweithio allan dyddiad ac amser, all unrhyw un awgrymu ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nick,
Nid yw Excel yn cefnogi teipio enw'r ddalen sy'n cynnwys nodau arbennig. Os yw'r dyddiad rydych chi'n ei deipio yn cynnwys y nod /, ni fydd yn caniatáu ichi greu enw'r ddalen gyda'r dyddiad hwnnw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut gallaf gyfeirio at ddwy gell. er enghraifft enw a rhif adnabod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'ch union god o'r uchod ar gyfer cod VBA sy'n gweithio'n berffaith ar gyfer yr hyn sydd ei angen arnaf. Fodd bynnag, mae gen i griw o macros ar ddalen o'r enw Templed Swydd sy'n cael ei chopïo a'i hailddefnyddio ar gyfer pob swydd newydd. Dyluniais fy macros i gyd yn seiliedig ar fersiwn wedi'i chopïo newydd o'r enw Templed Swydd (2). Unwaith y bydd enw'r ddalen wedi'i newid i enw'r swydd newydd, nid yw'r macros yn gweithio mwyach ac mae'n rhaid iddynt ei wneud â llaw. Hoffwn allu defnyddio unrhyw un o'm botymau Macro ar unrhyw adeg yn lle eu defnyddio yn unig cyn i mi newid enw'r ddalen.

A oes ffordd i'r cod VBA gyfeirio at enw'r ddalen bob amser cyn rhedeg gweddill swyddogaethau'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw'r nifer uchaf o daflenni gwaith, y gellir eu newid enwau trwy Kutools Plus? gan fod y excel yn gadael i mi ond 17 o enwau i'w newid, a dyna ni
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn berffaith ar gyfer fy nhaflen waith gyntaf, ond nid ar gyfer yr ail neu'r trydydd ac ati (mae gen i hyd at tua 20 o daflenni gwaith sydd angen y swyddogaeth hon i gyd). Ydw i'n colli rhywbeth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Owen,
Dim ond ar gyfer un daflen waith y tro y mae'r cod hwn yn gweithio. Ymddiheuriadau am yr anghyfleustra.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,

Pan fyddaf yn pastio eich cod yn dod yn ôl gyda gwall "defnyddiwr-diffiniedig math heb ei ddiffinio"?

Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tom J,
Sicrhewch fod y tri opsiwn hyn yn cael eu gwirio yn y Cyfeiriadau - blwch deialog VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir