Sut i wirio a yw rhes wedi'i chuddio yn Excel?

Mae'r erthygl hon yn sôn am wirio a yw rhes wedi'i chuddio mewn ystod benodol neu daflen waith yn Excel.

Gwiriwch a yw'r rhes wedi'i chuddio mewn ystod ddethol gyda chod VBA
Gwiriwch a yw'r rhes wedi'i chuddio mewn taflen waith gyda chod VBA

Gwiriwch a yw'r rhes wedi'i chuddio mewn ystod ddethol gyda chod VBA

Gwnewch fel a ganlyn i wirio a yw rhesi wedi'u cuddio mewn ystod ddethol a dod o hyd i'r rhif rhes cudd.

1. Dewiswch yr ystod y byddwch chi'n ei gwirio am resi cudd. Pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr cod.

Cod VBA: gwiriwch am resi cudd mewn ystod ddethol

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. Gwasgwch y F5 allwedd i redeg y cod.

Yna a Microsoft Excel blwch deialog yn ymddangos i ddangos y rhesi cudd i chi fel y dangosir isod.

Gwiriwch a yw'r rhes wedi'i chuddio mewn taflen waith gyda chod VBA

Gall y cod VBA isod eich helpu i wirio am resi cudd mewn taflen waith yn Excel. Gwnewch fel a ganlyn.

1. Agorwch y daflen waith y mae angen i chi ei gwirio am resi cudd, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr cod.

Cod VBA: gwiriwch a yw'r rhes wedi'i chuddio yn y daflen waith

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. Gwasgwch y F5 allwedd i redeg y cod.

Yna a Microsoft Excel blwch deialog yn ymddangos i ddangos y rhesi cudd i chi yn y daflen waith gyfredol fel y dangosir isod y screenshot.

Nodyn: Os oes rhesi cudd bellach yn bodoli mewn ystod neu daflen waith benodol, fe welwch y blwch deialog fel y dangosir isod.

Erthyglau cysylltiedig:

• Sut i wirio a yw'r cymeriad cyntaf mewn cell yn llythyren neu'n rhif yn Excel?