Metni bulup değiştirdikten sonra Excel'de biçimlendirmeyi nasıl koruyabilirim?
Koruma biçimlendirmesini bul ve makro kodla değiştir
Koruma biçimlendirmesini bul ve makro kodla değiştir
Başka yöntem yoktur, ancak makro kodu metni bulup değiştirmenize ve biçimlendirmeyi korumanıza yardımcı olabilir.
1. Basın Alt + F11 tuşlarını açmak için Uygulama için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu komut dosyasına yapıştırın.
VBA: Korunan biçimlendirmeyi bulun ve değiştirin
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. Basın F5 tuşu, bulmak ve değiştirmek için bir aralık seçmeniz için bir iletişim kutusu açılır, ekran görüntüsüne bakın:
4. Tamam'a tıklayın ve seçili hücredeki belirli dize diğeriyle değiştirilir ve biçimlendirmeyi korur.
Bahşiş: Kodda, KK bulmak istediğiniz dize ve Kutools değiştirmek istediğiniz dizedir, ihtiyaç duyduğunuzda değiştirebilirsiniz.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!