Conas bileog oibre a scriosadh bunaithe ar luach cille in Excel?
Ag ceapadh, tá iliomad bileoga oibre agam laistigh de leabhar oibre, anois, ba mhaith liom na bileoga a scriosadh bunaithe ar luach cille. Mar shampla, má tá an téacs “KTE” i gcill shonrach A1, is gá na bileoga uile a bhfuil an téacs seo ag cill A1 iontu a scriosadh ag an am céanna. D’fhéadfadh an t-alt seo cabhrú leat déileáil leis an tasc seo in Excel.
Scrios bileog oibre bunaithe ar luach cille le cód VBA
Scrios bileog oibre bunaithe ar luach cille le cód VBA
Anseo, tabharfaidh mé cód isteach chun gach bileog a bhfuil luach áirithe ag an gcill shonrach léi a scriosadh, déan mar a leanas 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 bunaithe ar luach cille:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
nótaí: Sa chód thuas, A1 an chill shonrach ina bhfuil téacs áirithe ar mhaith leat na bileoga a scriosadh bunaithe air.
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an luach sonrach ar mhaith leat na bileoga a scriosadh bunaithe air, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, scriosadh na bileoga uile a bhfuil an téacs KTE ag cill A1 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á!