Skip i'r prif gynnwys

Sut i ailenwi taflenni gwaith yn seiliedig ar werthoedd celloedd yn Excel?

Mae ail-enwi taflenni gwaith fel arfer yn cael eu defnyddio yn ein gwaith Excel, ond a ydych erioed wedi ceisio ailenwi taflenni gwaith yn seiliedig ar werthoedd celloedd? Wrth gwrs, gallwch ailenwi taflenni gwaith â llaw, ond yma mae'r tiwtorial hwn yn cyflwyno gall rhai triciau ailenwi nifer o daflenni gwaith yn gyflym yn seiliedig ar werthoedd celloedd a all arbed eich amser gweithio.

Ail-enwi taflenni gwaith yn seiliedig ar gell benodol gyda VBA

Ail-enwi taflenni gwaith yn seiliedig ar gell benodol gyda Ail-enwi Taflenni Gwaith Lluosog syniad da3

Ail-enwi taflenni gwaith yn seiliedig ar ystod o gynnwys celloedd gyda Ail-enwi Taflenni Gwaith Lluosog syniad da3


Gyda islaw VBA, gallwch ailenwi'r daflen waith gymharol yn seiliedig ar gell benodol.

1. Dewiswch y gell rydych chi am ailenwi taflen waith yn seiliedig arni, yn yr achos hwn dewiswch Cell A1. Gweler y screenshot:

taflen waith ail-enwi doc 1

2. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, yna pastiwch islaw cod VBA i'r newydd Modiwlau ffenestr.

VBA: Ail-enwi taflenni gwaith yn seiliedig ar werthoedd celloedd penodol.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Gwasgwch F5 allwedd i redeg cod VBA. Yna mae'r holl daflenni gwaith wedi'u hailenwi gan werthoedd celloedd A1 cymharol.

taflen waith ail-enwi doc 2


Os oes gennych Kutools ar gyfer Excel, nid oes angen i chi arbed y cod VBA, gallwch ddefnyddio'r Ail-enwi Taflenni Gwaith Lluosog nodwedd i ailenwi'r holl daflen waith yn gyflym yn seiliedig ar eu celloedd cymharol.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Galluogi'r llyfr gwaith rydych chi am ailenwi enwau ei daflenni gwaith.

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

taflen waith ail-enwi doc 11

3. Yna yn y dialog popped out, gwiriwch y taflenni rydych chi am ailenwi oddi tanynt Taflenni gwaith cwarel, a dewis un o'r Ail-enwi Opsiwn mae angen i chi, yma byddaf yn disodli enw'r ddalen, yna gwirio Ail-enwi taflenni gwaith gyda chell benodol, a dewiswch y gell y mae angen i chi ei hail-enwi. Gweler y screenshot:

taflen waith ail-enwi doc 9

4. Cliciwch Ok. Nawr mae'r taflenni wedi'u hailenwi â chynnwys celloedd penodol.

taflen waith ail-enwi doc 2

Ond weithiau, yr hyn sydd ei angen arnoch yw ailenwi nifer o daflenni gwaith yn seiliedig ar ystod o werthoedd celloedd fel islaw'r screenshot a ddangosir, yn yr achos hwn, gallwch ddewis isod dull.

taflen waith ail-enwi doc 3


Gyda Ail-enwi Taflenni Gwaith Lluosog of Kutools ar gyfer Excel, gallwch hefyd ailenwi'r taflenni yn seiliedig ar ystod ddethol.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

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

taflen waith ail-enwi doc 11

2. Yn y Ail-enwi Taflenni Gwaith Lluosog deialog, mae angen i chi nodi'r gosodiadau fel y rhain:

(1) Dewiswch y taflenni gwaith y mae angen i chi ailenwi ohonynt Rhestr taflenni gwaith;

(2) Gwiriwch O ystod benodol opsiwn, a dewiswch y gwerthoedd celloedd y mae angen i chi eu hailenwi yn seiliedig ar;

(3) Nodwch y Ail-enwi Dewisiadau, gallwch wirio Mewnosodwch cyn enw'r daflen wreiddiol, Mewnosod ar ôl enw'r daflen wreiddiol, neu Amnewid enw'r daflen wreiddiol, a gallwch chi gael rhagolwg o'r canlyniad cyfatebol yn y dialog.

taflen waith ail-enwi doc 10

3. Cliciwch Ok, ac yna gallwch weld bod yr holl daflenni gwaith a ddewisoch wedi'u hailenwi ar sail y gwerthoedd celloedd penodedig.

Amnewid enw'r daflen wreiddiol

taflen waith ail-enwi doc 6

Mewnosodwch cyn enw'r daflen wreiddiol

taflen waith ail-enwi doc 7

Mewnosod ar ôl enw'r daflen wreiddiol

taflen waith ail-enwi doc 8

Gyda cyfleustodau Ail-enwi Taflenni Gwaith, gallwch hefyd ailenwi taflenni gwaith gyda rhagddodiad neu ôl-ddodiad penodol. Cliciwch yma i wybod mwy am Ail-enwi Taflenni Gwaith Lluosog.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
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...

Disgrifiad


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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works. It always goes into Debug on the first try. I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.
This comment was minimized by the moderator on the site
Hi, Don, the VBA has updated twice, it may be works for most of conditions, but not for the all. 
This comment was minimized by the moderator on the site
In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
This comment was minimized by the moderator on the site
Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
This comment was minimized by the moderator on the site
'Updateby20150602
This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
This comment was minimized by the moderator on the site
Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations