İ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

Excel hesabatı sekme adlarını necə tapmaq və dəyişdirmək olar?

Excel-də hüceyrələrdə dəyərləri tapmaq və əvəz etmək asandır. Exceldə hesabat adlarını tapmaq və əvəz etmək üçün bir üsul varmı? Məsələn, ekran görüntüsünün aşağıda göstərildiyi kimi, hesabat adında "KTE (Sales) xxx" olan bir çox iş var və indi bütün "KTE (Sales)" ilə "KTE" nin bütün əlaqədar adları, edə bilərsiniz? Bu məqalədə onu əldə etmək üçün VBA metodu təqdim ediləcək.

VBA koduyla hesabatı sekme adlarını tapın və dəyişdirin


VBA koduyla hesabatı sekme adlarını tapın və dəyişdirin


Excel-də hesabatı sekme adlarını tapmaq və əvəz etmək üçün VBA kodunun altına müraciət edin. Xahiş edirik bunu edin.

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

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Və sonra, VBA kodu aşağıda kodu penceresine kopyalayın.

VBA kodu: Excel hesabatı sekme adlarını tapmaq və dəyişdirmək

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace:", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with:", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın.

4. Sonra a Excel üçün Kutools informasiya qutusu açılır, dəyişdirəcəyiniz hesabat adlarının sözlərini daxil edin və basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. İkincisi Excel üçün Kutools dialoq qutusuna dəyişdirəcəyiniz sözü daxil edin və sonra basın OK düyməsini basın.

Sonra hesabat sekmesindeki adlardaki bütün sözlər, göstərilən ekran görüntüsünün altındakı kimi müəyyən bir ilə əvəz olunur.

Qeyd: Yuxarıda göstərilən kodun vəziyyəti həssasdır.


Related articles:



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.