Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas bileoga oibre a athainmniú bunaithe ar luachanna cille in Excel?

Is gnách go gcuirtear bileoga oibre athainmnithe i bhfeidhm inár gcuid oibre Excel, ach an ndearna tú iarracht riamh bileoga oibre a athainmniú bunaithe ar luachanna cille? Ar ndóigh, is féidir leat bileoga oibre a athainmniú de láimh, ach anseo tugann an rang teagaisc seo isteach gur féidir le roinnt cleasanna iliomad bileoga oibre a athainmniú go tapa bunaithe ar luachanna cille a d’fhéadfadh do chuid ama oibre a shábháil.

Athainmnigh bileoga oibre bunaithe ar chill ar leith le VBA

Athainmnigh bileoga oibre bunaithe ar chill ar leith le Bileoga Oibre Il-Athainmnigh smaoineamh maith3

Athainmnigh bileoga oibre bunaithe ar raon ábhar cille le Bileoga Oibre Athainmnigh smaoineamh maith3


Le thíos VBA, is féidir leat an bhileog oibre choibhneasta a athainmniú bunaithe ar chill ar leith.

1. Roghnaigh an chill ar mhaith leat bileog oibre a athainmniú bunaithe uirthi, sa chás seo roghnaigh Cill A1. Féach an pictiúr:

bileog oibre athainmniú doc 1

2. Brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. cliceáil Ionsáigh > Modúil, ansin greamaigh faoi bhun chód VBA leis an gceann nua Modúil fhuinneog.

VBA: Athainmnigh bileoga oibre bunaithe ar luachanna cille ar leith.

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. Brúigh F5 eochair chun cód VBA a rith. Ansin athainmníodh gach bileog oibre de réir luachanna cille A1 coibhneasta.

bileog oibre athainmniú doc 2


Má tá tú Kutools le haghaidh Excel, ní gá duit an cód VBA a shábháil, is féidir leat an Athainmnigh Bileoga Oibre Il gné chun gach bileog oibre a athainmniú go tapa bunaithe ar a gcealla coibhneasta.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Cumasaigh an leabhar oibre a theastaíonn uait ainmneacha a bhileoga oibre a athainmniú.

2. cliceáil Kutools Plus > Bileog Oibre > Athainmnigh Bileoga Oibre. Féach an pictiúr:

bileog oibre athainmniú doc 11

3. Ansin sa dialóg popped out, seiceáil na bileoga ar mhaith leat a athainmniú faoi Bileoga oibre pána, agus roghnaigh ceann de na Rogha Athainmnigh a theastaíonn uait, anseo cuirfidh mé ainm na bileoige in ionad, ansin seiceáil Athainmnigh bileoga oibre le cill ar leith, agus roghnaigh an chill is gá duit a athainmniú. Féach an pictiúr:

bileog oibre athainmniú doc 9

4. cliceáil Ok. Anois athainmnítear na bileoga le hábhar sonrach cille.

bileog oibre athainmniú doc 2

Ach uaireanta, is é a theastaíonn uait ilbhileoga oibre a athainmniú bunaithe ar raon luachanna cille mar atá faoi bhun an scáileáin a thaispeántar, sa chás seo, is féidir leat a roghnú faoi ​​bhun an mhodha.

bileog oibre athainmniú doc 3


Le Athainmnigh Bileoga Oibre Il of Kutools le haghaidh Excel, is féidir leat na bileoga a athainmniú bunaithe ar raon roghnaithe.

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. cliceáil Kutools Plus > Bileog Oibre > Athainmnigh Bileoga Oibre. Féach an pictiúr:

bileog oibre athainmniú doc 11

2. Sa Athainmnigh Bileoga Oibre Il dialóg, ní mór duit na socruithe a shonrú mar seo:

(1) Roghnaigh na bileoga oibre a gcaithfidh tú iad a athainmniú Liosta bileoga oibre;

(2) Seiceáil Ó raon sonrach rogha, agus roghnaigh na luachanna cille is gá duit a athainmniú bunaithe ar;

(3) Sonraigh an Athainmnigh Roghanna, is féidir leat a sheiceáil Cuir isteach roimh ainm bunaidh an bhileog, Cuir isteach i ndiaidh ainm an bhileog bhunaidh, Nó Cuir ainm an bhileog bhunaidh in ionad, agus is féidir leat an toradh comhfhreagrach sa dialóg a réamhamharc.

bileog oibre athainmniú doc 10

3. cliceáil Ok, agus ansin is féidir leat a fheiceáil gur athainmníodh na bileoga oibre go léir a roghnaigh tú bunaithe ar na luachanna sonraithe cille.

Cuir ainm an bhileog bhunaidh in ionad

bileog oibre athainmniú doc 6

Cuir isteach roimh ainm bunaidh an bhileog

bileog oibre athainmniú doc 7

Cuir isteach i ndiaidh ainm an bhileog bhunaidh

bileog oibre athainmniú doc 8

Le fóntais Athainmnigh Bileoga Oibre, is féidir leat bileoga oibre a athainmniú le réimír nó iarmhír ar leith. Cliceáil anseo chun níos mó eolais a fháil ar Athainmnigh Bileoga Oibre Il.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun 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.