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.
- Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
- 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
- Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
- Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
- Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
- Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
- 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.
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: