Excel'de Satırları Gizlemek için VBA (14 Yöntem)

Hugh West

02-06-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

Bazen büyük veri kümemizi Excel'de kullanırken daha iyi okunabilirlik için bazı belirli satırları gizlememiz gerekir. VBA makrosu Excel'de herhangi bir işlemi çalıştırmak için en etkili, en hızlı ve en güvenli yöntemdir. Bu makalede, size nasıl yapılacağını göstereceğiz VBA makrosunu kullanarak Excel'deki satırları farklı ölçütlere göre gizleyin.

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

VBA.xlsm ile Satırları Gizle

14 Excel'de Satırları Gizlemek için VBA ile Yöntemler

Bu bölümde, 12 farklı yöntemi şu şekilde tartışacağız VBA için satırları gizle Tüm makale boyunca kullanacağımız örnek aşağıda gösterilmiştir.

1. Excel'de Tek Satırı Gizlemek için VBA'yı Gömün

Eğer istiyorsan tek bir satırı gizleme ile VBA kodunu yazdıktan sonra aşağıda açıklanan adımları izleyin. Bizim durumumuzda 5 numaralı satırı gizle ( Soyadı ) veri kümemizden alınmıştır.

Adımlar:

  • Basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

  • Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

  • Aşağıdaki kodu kopyalayın ve kod penceresine yapıştırın. 
 Sub HideSingleRow() Worksheets("Single").Range("5:5").EntireRow.Hidden = True End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • Çalışma Sayfaları("Tek") = Ayarla çalışma sayfası adı.
  • Aralık("5:5") = Geçer sıra numarası 5 içinde Menzil yöntem.

  • Basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Aşağıdaki resme dikkat edin, sıra numarası 5 yürütüldükten sonra gizlenir VBA Kod.

Daha fazlasını okuyun: Excel'de Satırları Gizleme Formülü (7 Yöntem)

2. Excel'de Bitişik Satırları Gizlemek için Makro Ekleme

ile tek bir satırın nasıl gizleneceğini öğrendiniz. VBA . Ama varsayalım ki bir satır aralığını gizleme bunlar bitişik . Bunu da şu şekilde yapabilirsiniz VBA Excel'de. Gizle 5 ila 7 numaralı sıralar yukarıda gösterilen veri setimizden.

Adımlar:

  • Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideContiguousRows() Worksheets("Contiguous").Range("5:7").EntireRow.Hidden = True End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • Çalışma Sayfaları("Bitişik") = Ayarla çalışma sayfası adı.
  • Aralık("5:7") = Geçer sıra numarası 5 ila 7 içinde Menzil yöntem.

  • Koşmak bu kodu ve aşağıdaki resimde gördüğünüz gibi 5 ila 7. sıralar artık saklı.

Daha fazlasını okuyun: Excel'de Satırlar Nasıl Gizlenir ve Gösterilir (En Kolay 6 Yol)

3. Bitişik Olmayan Satırları Ayrıştırmak için Makro Yerleştirin

Bu sefer şunları nasıl yapacağınızı öğreneceksiniz satırları gizle olan Excel'de bitişik olmayan ile VBA . Veri setimizle, kod Gizle 5, 6, 8 ve 9. sıralar aşağıda verilmiştir.

Adımlar:

  • Daha önce gösterildiği gibi, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideNonContiguousRows() Worksheets("Non-Contiguous").Range("5:6, 8:9").EntireRow.Hidden = True End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • Çalışma Sayfaları("Bitişik Olmayan") = Ayarla çalışma sayfası adı.
  • Range("5:6, 8:9") = Geçer sıra numarası 5 ila 6 ve 8-9 içinde Menzil yöntem.

  • Koşmak bu kod parçası ve şunu görün 5 ila 6. sıralar ve 8-9 aşağıdaki resimde gizlidir.

Daha fazlasını okuyun: Excel'de Satırlar Nasıl Gizlenir (6 Etkili Yöntem)

4. Excel'de Metin İçeren Tüm Satırları Gizleme Makrosu

Eğer istiyorsan metin içeren tüm satırları gizle değerlerini girdikten sonra aşağıda verilen adımları izleyin.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideAllRowsContainsText() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 1 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'Metin verisi içeren tüm satırları gizlemek için If IsNumeric(Range("C" & i)) = False Then Rows(i).EntireRow.Hidden = True Next End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • IsNumeric(Range("C" & i)) = Veri setimizdeki veriler şu tarihten başlar C sütunu, bu yüzden geçtik C içinde Menzil yöntem.

  • Koşmak bu kod ve fark edeceksiniz tüm satırlar olan metin içeren değerleri artık gizlidir.

Daha fazlasını okuyun: Excel'de Birden Çok Satırı Gösterme (9 Yöntem)

5. Excel'de Sayı İçeren Tüm Satırları Gizlemek için Makro

Ve eğer saklanmak istiyorsan sayısal değerler içeren tüm satırlar ile VBA kodunu girin ve ardından aşağıda verilen adımları izleyin.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideAllRowsContainsNumbers() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'Sayısal verilerin bulunduğu tüm satırları gizlemek için If IsNumeric(Range("C" & i)) = True Then Rows(i).EntireRow.Hidden = True Next End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • IsNumeric(Range("C" & i)) = Veri setimizdeki veriler şu tarihten başlar C sütunu, bu yüzden geçtik C içinde Menzil yöntem.

  • Koşmak bu kod ve dikkat edin tüm satırlar olan sayısal değerler içeren artık gizli.

Daha fazlasını okuyun: Excel'de Bir Sütuna Dayalı Yinelenen Satırları Gizleme (4 Yöntem)

6. Excel'de Sıfır (0) İçeren Satırları Gizleme Makrosu

Yalnızca belirli bir sütundaki satırları gizlemek istediğinizi varsayalım 0 (sıfır) tutma 'nin bulunduğu aşağıdaki veri kümesine bakın. E sütunu tutar 0 içeride 7. sıra ve 10. sırada 82 . Nasıl yapacağımızı öğreneceğiz yalnızca 0'ı tutan satırı gizle ( 7. sıra ) ile VBA Excel'de.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsZero() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda 0 içeren satırı gizlemek için If Range("E" & i) = 0 Then Rows(i).EntireRow.Hidden = True Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve satırın ( 7. sıra ) içeren 0 içinde E sütunu artık gizlidir, oysa 10. sıra taşıyan 82 gizli değildir.

Daha fazlasını okuyun: Excel VBA'da Boş Satırlar Nasıl Gizlenir (4 Yararlı Yöntem)

7. Excel'de Negatif Değerleri Tutan Satırları Gizlemek için Makro Uygulayın

Aynı sütundan sıfır içeren satırları gizleyebildiğiniz gibi negatif değerler içeren satırları gizleme Aşağıda gösterilen veri kümesi ile E sütunu hem negatif hem de pozitif değerler içeriyorsa, yalnızca negatif olanı gizleyen kodu göreceğiz.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsNegative() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda negatif değerler içeren satırı gizlemek için If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve dikkat edin 7. sıra içeren bir negatif değer (-10) içinde E sütunu artık gizlidir, oysa 10. sıra taşıyan 82 gizli değildir.

8. Excel'de Pozitif Değerler İçeren Satırları Gizlemek için VBA'yı Gömün

Bu kez aşağıda verilen veri kümesi ile E sütunu her ikisi de sıfır pozitif değerler içeriyorsa VBA kod sadece olumlu olanı gizler .

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsPositive() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda pozitif değerler içeren satırı gizlemek için If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve dikkat edin 7. sıra içeren bir pozitif değer (55) içinde E sütunu artık gizlidir, oysa 10. sıra taşıyan 0 gizli değildir.

Daha fazlasını okuyun: Excel'de Hücre Değerine Göre Satırları Gizlemek için VBA (14 Örnek)

9. Excel'de Tek Sayılar İçeren Satırları Gizleme Makrosu

Yapabilirsin tek sayılara sahip satırları gizleyin Bu makalenin başında gösterdiğimiz örnekte, E sütunu 'de hem tek hem de çift sayıları tutuyor. 7. ve 10. sıralar kodunu öğreneceğiz. satırı gizleme tutan tek sayılar Sadece.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsOdd() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda pozitif değerler içeren satırı gizlemek için If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) Mod 2 = 1 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod parçası ve sadece 7. sıra içeren bir tek sayı (55) içinde E sütunu artık gizlidir, oysa 10. sıra taşıyan bir çift sayı (82) gizli değildir.

10. Excel'de Çift Sayı İçeren Satırları Gizlemek için VBA

Benzer şekilde, şunları yapabilirsiniz çift sayıya sahip satırları gizle Bu makalenin başında gösterdiğimiz örnekte, F sütunu 'de hem tek hem de çift sayıları tutuyor. 7. ve 10. sıralar kodunu öğreneceğiz. satırı gizleme tutan çift sayılar Sadece.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsEven() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'F sütununda pozitif değerler içeren satırı gizlemek için If IsNumeric(Range("F" & i)) = True Then If Range("F" & i) Mod 2 = 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve sadece 7. sıra içeren bir çift sayı (100) içinde F sütunu artık gizlidir, oysa 10. sıra taşıyan bir tek sayı (75) gizli değildir.

Daha fazlasını okuyun: Excel VBA: Excel'de Tüm Satırları Göster (5 Pratik Örnek)

11. Belirli Bir Koşuldan Büyük Olan Satırları Gizlemek için Makro Ekleme

Yapabilirsin 'den büyük olan satırları gizle ile belirli bir değer VBA Excel'den satırları gizlemek istediğinizi varsayalım. E sütunu değerin olduğu yer 80'den büyük İşte bunu nasıl yapacağınız:

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsGreater() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda pozitif değerler içeren satırı gizlemek için If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve sadece 10. sıra içeren 82 (80'den büyük olan) E sütunu artık gizlidir, oysa 7. sıra taşıyan 55 gizli değildir.

Daha fazlasını okuyun: Excel'de Koşullu Biçimlendirme ile Hücre Değerine Dayalı Satırları Gizleme

12. Excel'de Belirli Bir Koşuldan Küçük Olan Satırları Kapsamak için Makro Gömme

Ayrıca şunları da yapabilirsiniz 'den küçük olan satırları gizle ile belirli bir değer VBA Excel'den satırları gizlemek istediğinizi varsayalım. E sütunu değerin olduğu yer 80'den az İşte bunu nasıl yapacağınız:

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowContainsLess() LastRow = 1000 'Veri kümesinde 1000 satır olduğunu varsayalım For i = 4 To LastRow 'Her satırda döngü yapın ve gerekli koşulu kontrol edin 'i = 4 olarak ayarladık çünkü verilerimiz 4. satırdan başlıyor 'E sütununda pozitif değerler içeren satırı gizlemek için If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kodunuz artık çalışmaya hazır.

  • Koşmak bu kod ve sadece 7. sıra içeren 55 (80'den az olan) E sütunu artık gizlidir, oysa 10. sıra yani 82 taşıyor gizli değildir.

13. Makro ile Hücre Metin Değerine Dayalı Satırları Gizleme

Şunları yapmak istediğinizi varsayalım belirli bir metni tutan bir satırı gizleme Bizim durumumuzda, size "" kelimesini içeren satırla bir örnek vereceğiz. Kimya ", 6. sıra ve size bu satırı nasıl gizleyeceğinize ilişkin kodu sağlayacaktır.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowCellTextValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "Chemistry" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • StartRow = 4 -> Birinci sıra veri kümesinin.
  • LastRow = 10 -> Son sıra veri kümesinin.
  • iCol = 4 -> The sütun adresi o metni tutar değer.

  • Koşmak bu kod ve dikkat edin sıra numarası 6 kelimesinden oluşan " Kimya " gizlenmiştir.

14. Excel'de Hücre Sayısal Değerine Göre Satırları Gizleme Makrosu

Daha önce hücre metin değerine göre bir satırı nasıl gizleyeceğinizi görmüştünüz, bu sefer bunu nasıl yapacağınızı öğreneceksiniz. değer sayısaldır Bizim durumumuzda, size sayısal değer içeren satır ile bir örnek vereceğiz " 87 ", 7. sıra ve size bu satırı nasıl gizleyeceğinize ilişkin kodu sağlayacaktır.

Adımlar:

  • Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
  • Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın. 
 Sub HideRowCellNumValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "87" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Kodunuz artık çalışmaya hazır.

İşte,

  • StartRow = 4 -> Birinci sıra veri kümesinin.
  • LastRow = 10 -> Son sıra veri kümesinin.
  • iCol = 4 -> The sütun adresi o metni tutar değer.

  • Koşmak bu kod ve dikkat edin sıra numarası 7 sayısal değerinden oluşan " 87 " gizlenmiştir.

Daha fazlasını okuyun: Excel'de Hücre Değerine Göre Satırlar Nasıl Gizlenir (5 Yöntem)

Sonuç

Bu makale size aşağıdakileri nasıl yapacağınızı gösterdi satırları gizle ile Excel'de VBA Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili herhangi bir sorunuz olursa sormaktan çekinmeyin.

Önceki yazı Excel'de Aynı Değere Sahip Hücreler Nasıl Birleştirilir (3 Kolay Yol)
Sonraki Gönderi Excel VBA'da Adı Olan Sayfa Nasıl Eklenir (6 Kolay Yol)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.