Cum să verificați dacă rândul este ascuns în Excel?

Acest articol vorbește despre verificarea dacă rândul este ascuns într-un interval specificat sau o foaie de lucru în Excel.

Verificați dacă rândul este ascuns în intervalul selectat cu codul VBA
Verificați dacă rândul este ascuns într-o foaie de lucru cu cod VBA

---

Verificați dacă rândul este ascuns în intervalul selectat cu codul VBA

Procedați după cum urmează pentru a verifica dacă rândurile sunt ascunse într-un interval selectat și pentru a găsi numărul rândului ascuns.

1. Selectați intervalul pe care îl veți verifica pentru rândurile ascunse. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.

Cod VBA: verificați dacă există rânduri ascunse în intervalul selectat

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. apasă pe F5 tasta pentru a rula codul.

Apoi o Microsoft Excel se afișează caseta de dialog pentru a vă afișa rândurile ascunse așa cum este prezentată mai jos.

---

Verificați dacă rândul este ascuns într-o foaie de lucru cu cod VBA

Codul VBA de mai jos vă poate ajuta să verificați dacă există rânduri ascunse într-o foaie de lucru în Excel. Vă rugăm să faceți următoarele.

1. Deschideți foaia de lucru pe care trebuie să o verificați pentru rânduri ascunse, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.

Cod VBA: verificați dacă rândul este ascuns în foaia de lucru

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. apasă pe F5 tasta pentru a rula codul.

Apoi o Microsoft Excel se afișează caseta de dialog pentru a vă afișa rândurile ascunse în foaia de lucru curentă așa cum este prezentată mai jos.

notițe: Dacă acum există rânduri ascunse în intervalul selectat sau foaia de lucru, veți obține caseta de dialog așa cum este prezentată mai jos.

---

Legate de articole:

• Cum să verificați dacă primul caracter dintr-o celulă este o literă sau un număr în Excel?