Excel'de satırın gizli olup olmadığını nasıl kontrol edebilirim?
Bu makale, satırın Excel'de belirli bir aralıkta veya çalışma sayfasında gizli olup olmadığını kontrol etmekten bahsediyor.
VBA kodu ile seçilen aralıkta satırın gizli olup olmadığını kontrol edin
VBA kodu içeren bir çalışma sayfasında satırın gizli olup olmadığını kontrol edin
VBA kodu ile seçilen aralıkta satırın gizli olup olmadığını kontrol edin
Satırların seçilen bir aralıkta gizli olup olmadığını kontrol etmek ve gizli satır numarasını bulmak için lütfen aşağıdaki işlemleri yapın.
1. Gizli satırları kontrol edeceğiniz aralığı seçin. Basın Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu kod penceresine kopyalayın.
VBA kodu: seçili aralıktaki gizli satırları kontrol edin
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
Sonra bir Microsoft Excel Aşağıda gösterilen ekran görüntüsü gibi gizli satırları göstermek için iletişim kutusu açılır.
VBA kodu içeren bir çalışma sayfasında satırın gizli olup olmadığını kontrol edin
Aşağıdaki VBA kodu, Excel'deki bir çalışma sayfasındaki gizli satırları kontrol etmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Gizli satırları kontrol etmeniz gereken çalışma sayfasını açın, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu kod penceresine kopyalayın.
VBA kodu: satırın çalışma sayfasında gizli olup olmadığını kontrol edin
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar.
Sonra bir Microsoft Excel aşağıda gösterilen ekran görüntüsü gibi mevcut çalışma sayfasındaki gizli satırları göstermek için iletişim kutusu açılır.
not: Seçilen aralıkta veya çalışma sayfasında şimdi gizli satırlar varsa, aşağıda gösterilen ekran görüntüsü gibi iletişim kutusunu alacaksınız.
İlgili yazılar:
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!