Conas ceanntásc nó buntásc a aimsiú agus a athsholáthar in Excel?
Tá sé coitianta inár gcuid oibre laethúil luach sonrach a aimsiú agus ansin luach eile a athsholáthar in Excel, ach in Excel, oibríonn an fheidhm Find and Replace go maith i roghnú, bileoga agus leabhar oibre, ach ní féidir é a aimsiú agus a athsholáthar i gceanntásc agus buntásc. San Airteagal seo, tugaim isteach cód macra chun luachanna sa cheanntásc agus sa bhuntásc a aimsiú agus a athsholáthar.
Aimsigh agus ionadaigh i gceanntásc nó buntásc le VBA
Aimsigh agus ionadaigh i gceanntásc nó buntásc le VBA
1. Cumasaigh an leathán is mian leat a aimsiú agus a athsholáthar i gceanntásc agus buntásc, brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos cód VBA chuig an Modúl. Féach ar an scáileán:
VBA: Faigh agus ionadaigh i gceanntásc agus buntásc
Sub FnR_HF()
'UpdateByExtendoffice20160623
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
With ActiveSheet.PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
End Sub
3. Ansin brúigh F5 eochair chun an cód a rith, ansin tagann dialóg amach chun an téacs a theastaíonn uait a fháil a chur isteach. Féach ar an scáileán:
4. cliceáil OK, agus pop dialóg eile chun dul isteach ar an téacs is mian leat a chur ina ionad. Féach ar an scáileán:
5. cliceáil OK. Anois na luachanna “KTE” curtha ina ionad le “Kutools le haghaidh Excel” sa cheanntásc agus sa bhuntásc.
Leid: Más mian leat oibriú don leabhar oibre iomlán, is féidir leat cód macra a úsáid thíos.
Sub FnR_HF()
'UpdateByExtendoffice20171122
Dim I As Long
Dim xStr As String, xRep As String
'Const csTITLE As String = "Find and Replace"
On Error Resume Next
xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
If xStr = "" Then Exit Sub
xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
For I = 1 To ActiveWorkbook.Sheets.Count
With Sheets(I).PageSetup
' Substitute Header/Footer values
.LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
.CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
.RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
.LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
.CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
.RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
End With
Next
End Sub
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á!