Conas téacs a aimsiú agus a athsholáthar agus an fhormáidiú in Excel a chaomhnú?
Faigh agus cuir in ionad an fhormáidiú leasaithe le cód Macra
Faigh agus cuir in ionad an fhormáidiú leasaithe le cód Macra
Níl aon mhodhanna eile ann ach is féidir le macra-chód cabhrú leat téacs a aimsiú agus a athsholáthar agus formáidiú a chaomhnú.
1. Brúigh Alt + F11 eochracha a oscailt Microsoft Visual Basic le haghaidh Feidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script.
VBA: Faigh agus cuir in ionad formáidiú caomhnaithe
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. Brúigh F5 eochair, tagann dialóg amach duit chun raon a roghnú le fáil agus le hathsholáthar, féach an scáileán:
4. Cliceáil OK, agus cuirtear ceann eile in ionad na sreinge ar leith sa chill roghnaithe agus coinnigh an fhormáidiú.
Leid: Sa chód, KK an téad atá tú ag iarraidh a fháil, agus Kutools an téad is mian leat a athsholáthar, is féidir leat iad a athrú de réir mar is gá duit.
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á!