Sayfaları Excel'de bir hücre değerine göre nasıl sıralayabilirim?

Bir Excel dosyası kullandığımızda, çalışma sayfalarını her zaman alfabetik, sayılar veya sekme renklerine göre sıralarız, ancak sayfa sekmelerini belirli bir hücre değerine göre sıralamayı denediniz mi?

Düzinelerce çalışma sayfası içeren bir çalışma kitabınız olduğunu varsayarsak, her çalışma sayfasında, A1 hücresinin belirli bir değeri vardır ve şimdi bu çalışma kitabındaki tüm çalışma sayfalarını, her çalışma sayfasındaki A1 hücresinin değerine göre artan şekilde sıralamanız gerekir. Bu makale ile çözümü alacaksınız.

Tüm çalışma sayfalarını VBA kodu ile bir hücre değerine göre sıralayın

---

Tüm çalışma sayfalarını VBA kodu ile bir hücre değerine göre sıralayın

Tüm çalışma sayfalarını Excel'deki bir hücre değerine göre sıralamak için, bizim için doğrudan bir yol yoktur, ancak aşağıdaki VBA kodu size bir iyilik yapabilir.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Tüm sayfaları bir hücre değerine göre 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 yapıştırdıktan sonra F5 Bu kodu çalıştırmak için tuşuna basın ve sayfaları temel alarak sıralamak istediğiniz bir hücreyi seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

4. Ve şimdi, tüm çalışma sayfalarının her çalışma sayfasında artan şekilde A1 hücresinin metin değerine göre sıralandığını görebilirsiniz.

Notlar:

1. Seçtiğiniz hücrelerde hem sayılar hem de metin dizeleri varsa, sayfalarda sayılar metin dizeleri sayfalarından önce sıralanacaktır.

2. A1 hücresinden birinde boşluk varsa, ilgili çalışma sayfası tüm sayfaların önünde sıralanır.

---

İlgili yazılar:

Excel'de çalışma sayfalarını alfabetik / alfanümerik sırayla sıralama?

Excel'de çalışma sayfası sekmelerini renge göre nasıl sıralayabilirim?

Çalışma sayfası sekmelerinin sırası nasıl tersine çevrilir?