Jak sprawdzić, czy wiersz jest ukryty w programie Excel?
W tym artykule mowa o sprawdzaniu, czy wiersz jest ukryty w określonym zakresie lub arkuszu kalkulacyjnym w programie Excel.
Sprawdź, czy wiersz jest ukryty w wybranym zakresie za pomocą kodu VBA
Sprawdź, czy wiersz jest ukryty w arkuszu z kodem VBA
Sprawdź, czy wiersz jest ukryty w wybranym zakresie za pomocą kodu VBA
Wykonaj następujące czynności, aby sprawdzić, czy wiersze są ukryte w wybranym zakresie i znaleźć ukryty numer wiersza.
1. Wybierz zakres, w którym chcesz sprawdzić ukryte wiersze. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna kodu.
Kod VBA: sprawdź ukryte wiersze w wybranym zakresie
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. wciśnij F5 klucz do uruchomienia kodu.
Następnie Microsoft Excel pojawi się okno dialogowe, aby pokazać ukryte wiersze, jak pokazano poniżej.
Sprawdź, czy wiersz jest ukryty w arkuszu z kodem VBA
Poniższy kod VBA może pomóc w sprawdzeniu ukrytych wierszy w arkuszu kalkulacyjnym w programie Excel. Wykonaj następujące czynności.
1. Otwórz arkusz roboczy, w którym chcesz sprawdzić ukryte wiersze, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna kodu.
Kod VBA: sprawdź, czy wiersz jest ukryty w arkuszu
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. wciśnij F5 klucz do uruchomienia kodu.
Następnie Microsoft Excel pojawi się okno dialogowe, aby pokazać ukryte wiersze w bieżącym arkuszu, jak pokazano poniżej.
Note: Jeśli teraz ukryte wiersze istnieją w wybranym zakresie lub arkuszu roboczym, pojawi się okno dialogowe, jak pokazano poniżej.
Podobne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!