Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 y nodir isod:

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

2. Cliciwch Kutools Plus > 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 y nodir isod:

1. Cliciwch Kutools Plus > 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.


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 2 months ago
    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.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 1 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      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.