İ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

Vərəqləri Excel-də bir hüceyrə dəyəri ilə necə düzəltmək olar?

Bir Excel faylını istifadə edərkən, həmişə iş dəftərlərini əlifba, nömrələr və ya sekme rəngləri ilə sıralayırıq, ancaq hesabatı sekmeleri müəyyən bir hüceyrə dəyəri ilə düzəltməyə çalışmısınız?

Hər bir iş kitabında onlarla iş kitabınız olduğunu düşünsəniz, A1 hüceyrəsi xüsusi bir dəyərə malikdir və indi hər bir iş səhifəsindəki A1 hücumunun dəyərinə görə bu iş kitabçasındakı bütün işləri düzəldmək lazımdır. Bu yazı ilə həllini əldə edəcəksiniz.

VBA kodu ilə bir hüceyrə dəyərinə əsaslanan bütün iş səhifələri düzəldin


arrow mavi sağ bubble VBA kodu ilə bir hüceyrə dəyərinə əsaslanan bütün iş səhifələri düzəldin


Excel-də bir hüceyrə dəyərinə əsaslanan bütün işləri düzmək üçün bizim üçün birbaşa yol yoxdur, lakin aşağıdakı VBA kodu sizə bir xeyir verə bilər.

1. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: Bütün təbəqələri bir hüceyrə dəyərinə görə sıralayın

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Kodu bağladıktan sonra basın F5 bu kodu çalıştırmak üçün açar düyməsini basın və ekrana baxın, əsasən cədvəlləri sıralamaq istədiyiniz bir hüceyrəni seçməyi xatırlatmaq üçün bir əmr qutusu açılır:

doc-sort-təbəqələr-1-by-cell

4. İndi, hər bir iş səhifəsindəki A1 hücresinin mətn dəyərinə görə artan şəkildə bütün iş yerləri sıralandı.

Qeydlər:

1. Seçdiyiniz hüceyrələrinizdə hər iki ədəd və mətn dizisi varsa, çarxlar mətn strings vərəqləri qarşısında nömrələr sıralanacaq.

2. A1 hüceyrəsinin birində boşluq varsa, nisbi iş səhifəsi bütün təbəqələrin ön hissəsində sıralanacaq.


Related articles:

Excel-də iş səhifələri alfabetik / alfasayısal qaydada sıralamaq necədir?

Excel-də iş hesabı sekmelerini rəngə görə necə düzəltmək olar?

Çalışma səhifəsi sekmelerinin sırasını necə dəyişə bilərəm?



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.