Sut i ddileu dalen benodol os yw'n bodoli yn y llyfr gwaith?
Sut allech chi ddileu taflen waith benodol os yw'n bodoli mewn llyfr gwaith? Fel rheol, mae angen ichi ddod o hyd iddo a'i wirio os yw'n bodoli, ac yna ei ddileu â llaw. Yma, byddaf yn siarad am ffordd hawdd o ddileu'r daflen waith benodol yn uniongyrchol os yw'n bodoli yn y ffeil Excel.
Dileu taflen waith benodol os yw'n bodoli mewn llyfr gwaith gyda chod VBA
Dileu taflen waith benodol os yw'n bodoli mewn llyfr gwaith gyda chod VBA
Gall y cod VBA canlynol eich helpu i ddileu'r daflen waith benodol os yw'n bodoli yn y llyfr gwaith, gwnewch fel hyn:
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 benodol os yw'n bodoli yn y llyfr gwaith
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae blwch prydlon yn cael ei arddangos i'ch atgoffa i deipio'r enw dalen rydych chi am ei wirio os yw'n bodoli, gweler y screenshot:
4. Ac yna cliciwch OK botwm:
(1.) Os yw'r ddalen yn bodoli, bydd yn cael ei dileu ar unwaith, gweler y screenshot:
(2.) Os nad yw'r ddalen yn bodoli, bydd blwch prydlon yn galw allan i'ch atgoffa fel y llun isod a ddangosir:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
