Note: The other languages of the website are Google-translated. Back to English

Conas an bhileog a scriosadh mura bhfuil ainm na bileoige ar liosta?

Ligean le rá, tá bileog oibre agam ina bhfuil liosta d’ainmneacha bileoga laistigh den leabhar oibre i gcolún A mar atá thíos an pictiúr a thaispeántar, agus níl roinnt ainmneacha áirithe bileog sa leabhar oibre ar an liosta, anois, ba mhaith liom na bileoga nach bhfuil i liosta cholún A. Conas a d’fhéadfainn an tasc seo in Excel a réiteach go tapa agus go héasca?

scrios bileog nach bhfuil ar liosta 1

Scrios bileoga nach bhfuil ar liosta sonrach le cód VBA


mboilgeog cheart gorm saighead Scrios bileoga nach bhfuil ar liosta sonrach le cód VBA

De ghnáth, is féidir leat ainmneacha na mbileog a sheiceáil ceann ar cheann, agus iad siúd nach bhfuil ar liosta ainmneacha na mbileog a scriosadh. Ach, anseo, is féidir liom labhairt faoi chód VBA chun déileáil leis. Déan mar a leanas le do thoil:

1. Téigh go dtí an bhileog oibre ina bhfuil liosta ainmneacha na mbileog, agus ansin coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

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

Cód VBA: Scrios bileoga nach bhfuil ar liosta

Sub Deletenotinlist()
'Updateby Extendoffice
    Dim i As Long
    Dim cnt As Long
    Dim xWb, actWs As Worksheet
    Set actWs = ThisWorkbook.ActiveSheet
    cnt = 0
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Not ThisWorkbook.Sheets(i) Is actWs Then
            xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
            If IsError(xWb) Then
                ThisWorkbook.Sheets(i).Delete
                cnt = cnt + 1
            End If
        End If
    Next
    Application.DisplayAlerts = True
    If cnt = 0 Then
        MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted" & cnt & "worksheets"
    End If
End Sub

nótaí: Sa chód thuas, A2: A6 an tagairt cille ina bhfuil ainmneacha na mbileog, is féidir leat é a athrú de réir do riachtanas.

3. Agus ansin brúigh F5 eochair chun an cód seo a rith, scriosadh na bileoga nach bhfuil ar an liosta ag an am céanna, féach an scáileán:

scrios bileog nach bhfuil ar liosta 2


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (4)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,


Uimhreacha amháin atá i mo liosta ainmneacha bileog agus scriosann an cód seo fós na hainmneacha bileoga go léir nach bhfuil iontu ach uimhir .i. tá bileoga agam darb ainm "1", "2" agus "3" agus is é 1 agus 3 amháin mo liosta, in ionad bileoige a scriosadh "2" scriosann sé gach bileog uimhrithe. Má tá aon litreacha ar ainm na leatháin oibríonn an cód go breá. An féidir le duine cabhrú?!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir é seo a athrú mar sin má tá an téacs ar an liosta in ainm na bileoige ní scriosann sé iad seachas má mheaitseálann sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Scrios an cód na bileoga go léir fiú iad siúd atá ar an liosta.

An bhféadfá réiteach a mholadh le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, neilvai
Oibríonn an cód go maith i mo leabhar oibre, an bhféadfá screenshot de d’fhadhb nó ceangaltán de do leabhar oibre a uaslódáil anseo? Mar sin, is féidir linn cabhrú leis an bhfadhb a sheiceáil.
Go raibh maith agat!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL