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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!