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 Sub3. 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.
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 Sub3. 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.
Poznámka: Pokud nyní ve vybrané oblasti nebo listu existují skryté řádky, zobrazí se dialogové okno, jak je uvedeno níže.
Související články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
