Jak zkontrolovat, zda je řádek skrytý v aplikaci Excel?

Tento článek hovoří o kontrole, zda je řádek skrytý v zadaném rozsahu nebo listu v aplikaci Excel.

Zkontrolujte, zda je řádek skrytý ve vybraném rozsahu pomocí kódu VBA
Zkontrolujte, zda je řádek skrytý v listu s kódem VBA

Zkontrolujte, zda je řádek skrytý ve vybraném rozsahu pomocí kódu VBA

Chcete-li zkontrolovat, zda jsou řádky skryté ve vybraném rozsahu, vyhledejte následující číslo a vyhledejte číslo skrytého řádku.

1. Vyberte rozsah, ve kterém zkontrolujete skryté řádky. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna kódu.

Kód VBA: zkontrolujte skryté řádky ve vybraném rozsahu

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. zmáčkni F5 klíč ke spuštění kódu.

Pak Microsoft Excel Zobrazí se dialogové okno, které vám ukáže skryté řádky, jak je uvedeno níže.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Zkontrolujte, zda je řádek skrytý v listu s kódem VBA

Níže uvedený kód VBA vám pomůže zkontrolovat skryté řádky v listu v aplikaci Excel. Postupujte prosím následovně.

1. Otevřete list, který potřebujete zkontrolovat, zda nejsou skryté řádky, a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna kódu.

Kód VBA: zkontrolujte, zda je řádek skrytý v listu

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. zmáčkni F5 klíč ke spuštění kódu.

Pak Microsoft Excel Zobrazí se dialogové okno, které vám ukáže skryté řádky v aktuálním listu, jak je uvedeno níže.

Pozor: Pokud nyní ve vybrané oblasti nebo listu existují skryté řádky, zobrazí se dialogové okno, jak je uvedeno níže.

Související články:

• Jak zkontrolovat, zda je prvním znakem v buňce písmeno nebo číslo v aplikaci Excel?