Sut i ddod o hyd i destun a'i ddisodli ac yna cadw fformatio yn Excel?
 |
 |
Canfod a disodli cadw fformatio gyda chod Macro
Canfod a disodli cadw fformatio gyda chod Macro
Nid oes unrhyw ddulliau eraill ond gall macro god eich helpu i ddod o hyd i destun a'i ddisodli a chadw fformatio.
1. Gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r sgript.
VBA: Dod o hyd i fformatio cadw a'i ddisodli
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. Gwasgwch F5 allwedd, mae deialog yn galw allan i chi ddewis ystod i'w darganfod a'i disodli, gweler y screenshot:
4. Cliciwch ar OK, ac mae'r llinyn penodol yn y gell a ddewiswyd yn cael ei ddisodli gan un arall ac yn cadw'r fformatio.
Tip: Yn y cod, KK yw'r llinyn rydych chi am ddod o hyd iddo, a Kutools yw'r llinyn rydych chi am ei ddisodli, gallwch eu newid yn ôl yr angen.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
