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 bileoga má tá téacs sonrach le cód VBA san ainm
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:
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:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!