Sut i ddod o hyd i enwau tabiau dalen yn Excel a'u disodli?
Mae'n hawdd dod o hyd i werthoedd mewn celloedd yn Excel a'u disodli. Ond a oes unrhyw ffordd i ddod o hyd i enwau dalennau yn Excel a'u disodli? Er enghraifft, fel y dangosir isod y llun, mae gennych lawer o daflenni gwaith sy'n cynnwys “KTE (Gwerthiannau) xxx” yn enw'r ddalen, ac yn awr mae angen i chi ddisodli pob “KTE (Gwerthiant)” gyda “KTE” ym mhob enw dalen gysylltiedig, beth allwch chi wneud? Bydd yr erthygl hon yn cyflwyno dull VBA i'w gyflawni.
Dewch o hyd i enwau tab taflen gyda chod VBA
Dewch o hyd i enwau tab taflen gyda chod VBA
Gwnewch gais o dan god VBA i ddod o hyd i enwau tabiau dalen yn Excel a'u disodli. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Ac yna, copïwch isod god VBA i mewn i'r ffenestr cod.
Cod VBA: darganfyddwch a disodli enwau tabiau dalen yn 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 Sub3. Gwasgwch y F5 allwedd i redeg y cod.
4. Yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, nodwch eiriau'r enwau dalen y byddwch chi'n eu disodli, a chliciwch ar y OK botwm. Gweler y screenshot:
5. Yn yr ail Kutools ar gyfer Excel blwch deialog, nodwch y gair y byddwch chi'n ei ddisodli, ac yna cliciwch ar y OK botwm.
Yna mae'r holl eiriau cysylltiedig yn enwau tabiau dalen yn cael eu disodli gan un penodedig fel y dangosir isod.
Nodyn: Mae'r cod uchod yn sensitif i achosion.
Erthyglau cysylltiedig:
- Sut i ddarganfod a disodli pob cell wag gyda rhif neu destun penodol yn Excel?
- Sut i ddisodli atalnodau â llinellau newydd (Alt + Enter) mewn celloedd yn Excel?
- Sut i greu cod macro i gyflawni darganfod a disodli testun yn Excel?
- Sut i ddod o hyd i werth mewn cell gyda rhestr wedi'i gwahanu gan goma yn Excel?
- Sut i ddod o hyd i groesffordd dwy restr golofn yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
