Excel'de gruplanmış tüm satır ve sütunları nasıl genişletir veya daraltırsınız?
Excel'de verileri ihtiyacınıza göre gruplamak için Gruplama özelliğini kullanabilirsiniz. Ancak sayfada çok sayıda grup varsa, hepsini tek tek tıklayarak değil de hızlıca nasıl genişletebilir veya daraltabilirsiniz? İşte bu görevi Excel’de kolayca halledebileceğiniz VBA kodlarını sizinle paylaşacağım.
Excel'de gruplanmış tüm satır ve sütunları genişletme veya daraltma
Excel'de gruplanmış tüm satır ve sütunları genişletme veya daraltma
Aşağıdaki VBA kodları, tüm grupları tek seferde genişletmenize veya daraltmanıza yardımcı olabilir.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu yeni modüle kopyalayıp yapıştırın.
VBA: Tüm grupları genişletme
Sub ExpandAll()
'UpdatebyExtendoffice20181031
Dim I As Integer
Dim J As Integer
On Error Resume Next
For I = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next I
For J = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next J
End Sub
3. F5 tuşuna basın; böylece Sayfa1'deki gruplar genişletilecektir.
Tüm grupları daraltmak istiyorsanız aşağıdaki kodu kullanabilirsiniz:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Not: Yukarıdaki kodlarda Sheet1, genişletmek veya daraltmak istediğiniz grupları içeren sayfadır. Gerekirse kendi sayfa adınızla değiştirin.
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve hiç olmadığı kadar verimli çalışmanın keyfini çıkarın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— dakikalar içinde hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın almak yerine tasarruf edin