Sut i ddileu taflen os yw'r enw'n cynnwys testun penodol o'r llyfr gwaith?
Gan dybio, mae gennych lyfr gwaith sy'n cynnwys nifer o daflenni gwaith, ac yn awr, rydych chi am ddileu'r taflenni yn ôl enwau tabiau. Er enghraifft, os yw enw'r ddalen yn cynnwys testun penodol “KTE”, yna ei ddileu, ac yna cael y screenshot canlynol. Sut allech chi ddileu'r taflenni os yw'r enw'n cynnwys testun penodol ar unwaith heb eu dileu fesul un?
Dileu taflenni os yw'r enw'n cynnwys testun penodol gyda chod VBA
Dileu taflenni os yw'r enw'n cynnwys testun penodol gyda chod VBA
Yma, byddaf yn creu cod VBA i chi ddileu'r taflenni yn ôl enw, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Dileu taflenni os yw'r enw'n cynnwys testun penodol
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i nodi'r testun penodol rydych chi am ddileu tab dalen yn seiliedig arno, gweler y screenshot:
4. Ac yna cliciwch OK, mae'r holl daflenni sy'n enwi'r testun penodedig “KTE” wedi'u dileu ar unwaith. Gweler y screenshot:
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!