Skip to main content

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.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
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