İ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-də xüsusi adı olan iş dəftərlərini necə saymaq olar?

Heç bir adı ilə başlayan və ya xüsusi sözü ehtiva edən iş sayını saymağa çalışmısınız? Məsələn, adı "KTE" ilə başlayan və ya ehtiva edən iş səhifələrinin sayını hesablamaq. Bu maddə, problemi göstərməyə kömək etmək üçün metodu təqdim edəcəkdir.

VBA kodu ilə xüsusi adı olan iş sayını qeyd edin

Tez-tez bütün iş yerlərini xüsusi adı ilə tapın


Asanlıqla Excel-də cari iş kitabının bütün hesabatı adlarını qeyd edin:

İş kitabınızdakı hesabat indeksini istifadə edərək, iş sənədlərini asanlıqla idarə etməyə kömək edir. İlə Sehife adlarının siyahısı yaradın faydası Excel üçün Kutoolsdaxilində mövcud iş kitabçası siyahısının bütün hesabatı adları ilə asanlıqla bir hesabat indeksi yarada bilərsiniz. İndi Index iş səhifəsində hesabat adını tıklayaraq tez bir şəkildə müəyyən bir işə keçə bilərsiniz. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA kodu ilə xüsusi adı olan iş sayını qeyd edin

Aşağıdakı VBA kodları bir iş kitabında xüsusi adı olan işlərin sayını saymağa kömək edir. 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, sonra VBA kodu aşağıda Kod penceresine kopyalayın.

VBA kodu 1: Adı "KTE" ilə başlayan iş sayını hesablayın

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

Əgər "KTE" sözcüklərinin sayını hesablamaq istəyirsinizsə 2 VBA kodunu aşağıda tətbiq edin.

VBA kodu 2: adı "KTE"

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

Qeyd: Xahiş edirik, "KTE" sözünü, sizə lazım olan iş sayını hesablamaq lazımdır.

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Daha sonra bir iş qutusunda "KTE" ilə başlayan və ya "KTE" daxil olan neçə iş kitabını işıqlandırmaq üçün bir informasiya qutusu açılır. Ekranlara baxın:

Adı "KTE" ilə başlayan işlərin sayı:

Adı "KTE" olan işlərin sayı:


Tez-tez bütün iş yerlərini xüsusi adı ilə tapın.

Bu bölmə, Excel üçün Kutools ilə mövcud iş kitabında xüsusi işlə bağlı bütün işlərin tez bir şəkildə necə tapmaq ediləcəyini göstərəcəkdir.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. Kutools'u Excel üçün quraşdırdıqdan sonra, Kutools 'Naviqasiya bölməsi iş kitabının sol tərəfində avtomatik olaraq açılacaqdır. Əks halda, tıklayarak paneli etkinleştirebilirsiniz Kutools > naviqasiya Aşağıdakı kimi ekran görüntüsü göstərilir.

2. Naviqasiya bölməsinin İş Kitabı və Hesabatı bölməsində, yoxlayın Süzgəc qutusuna və xüsusi iş səhifəsinə əsaslanan iş səhifələrinə əsasən daxil edin. Sonra sözü xüsusi sözü olan bütün iş səhifələri filtrelenir ve çalışma kitabçası siyahısında göstərilir. Ekran görüntüsünə baxın:

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.


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.