Conas bileog ar leith a scriosadh má tá sé sa leabhar oibre?

Conas a d’fhéadfá bileog oibre ar leith a scriosadh má tá sí ann i leabhar oibre? De ghnáth, ní mór duit é a aimsiú agus a sheiceáil má tá sé ann, agus ansin é a scriosadh de láimh. Anseo, labhróidh mé faoi bhealach éasca chun an bhileog oibre shonraithe a scriosadh go díreach má tá sé sa chomhad Excel.

Scrios bileog oibre ar leith má tá sí ann i leabhar oibre le cód VBA

---

Scrios bileog oibre ar leith má tá sí ann i leabhar oibre le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat an bhileog oibre shonraithe a scriosadh má tá sé sa leabhar oibre, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Scrios bileog oibre ar leith má tá sé sa leabhar oibre

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. Ansin brúigh F5 eochair chun an cód seo a rith, taispeántar bosca pras le cur i gcuimhne duit clóscríobh ainm na bileoige a theastaíonn uait a sheiceáil má tá sé ann, féach an scáileán:

4. Agus ansin cliceáil OK cnaipe:

(1.) Má tá an bhileog ann, scriosfar í ag an am céanna, féach an pictiúr:

(2.) Mura bhfuil an bhileog ann, popfaidh bosca pras amach le cur i gcuimhne duit mar a thaispeántar an scáileán a leanas: