Skip to main content

Conas an bhileog a scriosadh má tá téacs sonrach san leabhar oibre san ainm?

Ag ceapadh, tá leabhar oibre agat ina bhfuil iliomad bileoga oibre, agus anois, ba mhaith leat na bileoga a scriosadh le hainmneacha cluaisíní. Mar shampla, má tá téacs sonrach “KTE” in ainm na bileoige, ansin é a scriosadh, agus ansin an pictiúr a leanas a fháil. Conas a d’fhéadfá na bileoga a scriosadh má tá téacs sonrach san ainm láithreach gan iad a scriosadh ceann ar cheann?

scrios bileog de réir ainm 1

Scrios bileoga má tá téacs sonrach le cód VBA san ainm


mboilgeog cheart gorm saighead Scrios bileoga má tá téacs sonrach le cód VBA san ainm

Anseo, cruthóidh mé cód VBA duit chun na bileoga a scriosadh de réir ainm, déan mar 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 bileoga má tá téacs sonrach san ainm

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an téacs sonrach ar mhaith leat cluaisín bileog a scriosadh bunaithe air, féach ar an scáileán:

scrios bileog de réir ainm 2

4. Agus ansin cliceáil OK, scriosadh na bileoga uile a bhfuil an téacs sonraithe “KTE” orthu ag an am céanna. Féach an pictiúr:

scrios bileog de réir ainm 3

Uirlisí Táirgiúlachta Oifige is Fearr

Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

cluaisín kte 201905


Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre 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á!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Macro runs for me but no matter what text I type into the box it don't delete anything do you have to have a plugin installed for this to function?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations