Conas ainmneacha cluaisíní bileog a aimsiú agus a athsholáthar in Excel?
Is furasta luachanna i gcealla in Excel a aimsiú agus a athsholáthar. Ach an bhfuil aon bhealach ann ainmneacha bileoga a aimsiú agus a athsholáthar in Excel? Mar shampla, mar a thaispeántar thíos an scáileán, tá iliomad bileoga oibre agat ina bhfuil “KTE (Díolacháin) xxx” in ainm na bileoige, agus anois ní mór duit “KTE” a chur in ionad gach “KTE (Díolachán)” i ngach ainm bileog gaolmhar, cad é an féidir leat a dhéanamh? Tabharfaidh an t-alt seo modh VBA isteach chun é a bhaint amach.
Faigh agus cuir ainmneacha cluaisíní bileog le cód VBA
Faigh agus cuir ainmneacha cluaisíní bileog le cód VBA
Cuir iarratas faoi bhun chód VBA le do thoil chun ainmneacha cluaisíní bileog a fháil agus a athsholáthar in Excel. Déan mar a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin, cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.
Cód VBA: aimsigh agus cuir ainmneacha cluaisíní bileog in Excel
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace:", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with:", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub
3. Brúigh an F5 eochair chun an cód a rith.
4. Ansin a Kutools le haghaidh Excel tagann bosca dialóige aníos, cuir isteach focail na n-ainmneacha bileoige a chuirfidh tú in áit, agus cliceáil ar an OK cnaipe. Féach an pictiúr:
5. Sa dara ceann Kutools le haghaidh Excel bosca dialóige, iontráil an focal a chuirfidh tú ina ionad, agus ansin cliceáil ar an OK cnaipe.
Ansin cuirtear ceann sonraithe in ionad na bhfocal gaolmhar go léir in ainmneacha cluaisíní bileog mar a thaispeántar thíos.
nótaí: Tá an cód thuas cás-íogair.
Earraí gaolmhara:
- Conas uimhir nó téacs áirithe in Excel a aimsiú agus a athsholáthar?
- Conas camóga a chur in ionad línte nua (Alt + Iontráil) i gcealla in Excel?
- Conas macra-chód a chruthú chun téacs in Excel a aimsiú agus a athsholáthar?
- Conas luach a fháil i gcill le liosta scartha le camóga in Excel?
- Conas crosbhealach dhá liosta colún a fháil in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!