İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Metni tapmaq və əvəz etmək Excel-də formatlaşdırmağı necə qoruyur?

doc find 1 formatını saxlayır
doc find 2 formatını saxlayır
Tapmaq və dəyişdirmək funksiyasını müəyyən bir dəyər tapmaq və başqa bir yerə dəyişdirmək üçün lazım olduğunda güclü və faydalıdır. Ancaq bir sıra hüceyrələr varsa və bəzi hüceyrələr fərqli biçimlendirme dəyərlərini ehtiva edir. Bu halda Find and Replace funksiyasının dəyərini tapmaq və dəyişdirmək hüceyrələrdə göstərilən dəyərlərin formatlanmasını aşağıda göstərilən ekran görüntüsünü pozacaq, Excel-də taparkən və əvəz edərkən hər bir hüceyrədə dəyərlərin formatlanmasını necə saxlaya bilərik?

Macro koduyla qorunma biçimlendirmesini tapın və dəyişdirin

yaxşıNaviqasiya bölməsi - tapın və dəyişdirin

Excel üçün Kutoolsinkişaf etmiş Tapın və dəyişdirin funksiyası tapmaq və kömək edə bilər
Çox hesabatı və iş dəftərlərindən bir dəyəri əvəz etməli.
doc tapmaq və əvəz

arrow mavi sağ bubble Macro koduyla qorunma biçimlendirmesini tapın və dəyişdirin


Mətn kodu mətn tapmaq və əvəz etmək və formatlaşmayı qorumaq üçün başqa bir üsul yoxdur.

1. Basın Alt + F11 düymələri açmaq üçün Proqram üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Moduleskodunu skriptə aşağıda qoyun.

VBA: Qoruma formatlamasını tapın və dəyişdirin

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

doc find 5 formatını saxlayır

3. Basın F5 düyməsini tapmaq və əvəz etmək üçün bir sıra seçmək üçün bir dialoq açılır, ekran görüntüsünü görə bilərsiniz:
doc find 6 formatını saxlayır

4. Tamam'ı basın və seçilmiş hüceyrədə xüsusi simli digərləri ilə əvəzlənir və formatı saxlayır.
doc find 4 formatını saxlayır

Uc: Kodda, KK tapmaq istədiyiniz simli və Kutools əvəz etmək istədiyiniz düstur, sizə lazım olanı dəyişə bilərsiniz.

doc download 1



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.