Sut i ddileu taflen waith yn seiliedig ar werth celloedd yn Excel?
Gan dybio, mae gen i sawl taflen waith o fewn llyfr gwaith, nawr, rydw i eisiau dileu'r taflenni yn seiliedig ar werth celloedd. Er enghraifft, os yw'r gell A1 benodol yn cynnwys y testun “KTE”, mae angen dileu'r holl daflenni y mae gan destun A1 y testun hwn ar unwaith. Efallai y bydd yr erthygl hon yn eich helpu i ddelio â'r dasg hon yn Excel.
Dileu taflen waith yn seiliedig ar werth celloedd gyda chod VBA
Dileu taflen waith yn seiliedig ar werth celloedd gyda chod VBA
Yma, byddaf yn cyflwyno cod i chi ddileu'r holl daflenni y mae gan y gell benodol werth penodol, gwnewch fel a ganlyn:
1. Dal 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 taflen waith yn seiliedig ar werth celloedd:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
Nodyn: Yn y cod uchod, A1 yw'r gell benodol sy'n cynnwys testun penodol rydych chi am ddileu'r taflenni yn seiliedig arno.
3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i fewnbynnu'r gwerth penodol rydych chi am ddileu'r taflenni yn seiliedig arno, gweler y screenshot:
4. Ac yna cliciwch OK botwm, mae'r holl daflenni y mae gan destun A1 y testun 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!