Conas a sheiceáil an bhfuil ró i bhfolach in Excel?

Tá an t-alt seo ag caint ar sheiceáil an bhfuil ró i bhfolach i raon sonraithe nó i mbileog oibre in Excel.

Seiceáil an bhfuil an tsraith i bhfolach i raon roghnaithe le cód VBA
Seiceáil an bhfuil an tsraith i bhfolach i mbileog oibre le cód VBA

Seiceáil an bhfuil an tsraith i bhfolach i raon roghnaithe le cód VBA

Déan mar a leanas le do thoil chun a sheiceáil an bhfuil sraitheanna i bhfolach i raon roghnaithe agus faigh uimhir an tsraith i bhfolach.

1. Roghnaigh an raon a sheiceálfaidh tú le haghaidh sraitheanna i bhfolach. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.

Cód VBA: seiceáil le haghaidh sraitheanna i bhfolach sa raon roghnaithe

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. Brúigh an F5 eochair chun an cód a rith.

Ansin a Microsoft Excel tagann bosca dialóige suas chun na sraitheanna i bhfolach a thaispeáint duit mar atá thíos.

Seiceáil an bhfuil an tsraith i bhfolach i mbileog oibre le cód VBA

Is féidir leis an gcód VBA thíos cabhrú leat sraitheanna folaithe a sheiceáil i mbileog oibre in Excel. Déan mar a leanas le do thoil.

1. Oscail an bhileog oibre a theastaíonn uait a sheiceáil le haghaidh sraitheanna i bhfolach, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.

Cód VBA: seiceáil an bhfuil an tsraith i bhfolach sa bhileog oibre

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. Brúigh an F5 eochair chun an cód a rith.

Ansin a Microsoft Excel tagann bosca dialóige suas chun na sraitheanna i bhfolach sa bhileog oibre reatha a thaispeáint duit mar a thaispeántar thíos.

nótaí: Má tá sraitheanna i bhfolach anois i raon nó i mbileog oibre roghnaithe, gheobhaidh tú an bosca dialóige mar a thaispeántar thíos.

Earraí gaolmhara:

• Conas a sheiceáil an litir nó uimhir in Excel an chéad charachtar i gcill?