Ինչպե՞ս ստուգել, ​​արդյոք շարքը թաքնված է Excel- ում:

Այս հոդվածը խոսում է այն մասին, թե արդյոք տողը թաքնված է նշված տիրույթում կամ Excel- ում աշխատաթերթ:

Ստուգեք, արդյոք տողը թաքնված է VBA կոդով ընտրված տիրույթում
Ստուգեք, արդյոք տողը թաքնված է VBA կոդով աշխատաթերթում

---

Ստուգեք, արդյոք տողը թաքնված է VBA կոդով ընտրված տիրույթում

Խնդրում ենք արեք հետևյալը ՝ ստուգելու համար արդյոք տողերը թաքնված են ընտրված տիրույթում և գտնելու թաքնված շարքի համարը:

1. Ընտրեք ընդգրկույթը, որը դուք կստուգեք թաքնված տողերի համար: Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:

VBA կոդ. Ստուգեք ընտրված տիրույթում թաքնված տողերի առկայությունը

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. Սեղմեք F5 ծածկագիրը գործելու համար:

Այնուհետեւ ա Microsoft Excel- ը երկխոսության պատուհանը բացվում է ՝ ձեզ թաքնված շարքերը ցույց տալու համար, ինչպես ցույց է տրված ստորև նշված նկարը

---

Ստուգեք, արդյոք տողը թաքնված է VBA կոդով աշխատաթերթում

Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ ստուգել թաքնված տողերը Excel- ում աշխատաթերթում: Խնդրում եմ արեք հետևյալ կերպ.

1. Բացեք աշխատաթերթը, որը դուք պետք է ստուգեք թաքնված տողերի առկայության համար, սեղմեք այն ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը ծածկագրի պատուհանում:

VBA կոդ. Ստուգեք, արդյոք տողը թաքնված է աշխատանքային թերթում

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. Սեղմեք F5 ծածկագիրը գործելու համար:

Այնուհետեւ ա Microsoft Excel- ը երկխոսության տուփը բացվում է ՝ ներկայիս աշխատանքային թերթում թաքնված տողերը ձեզ ցույց տալու համար, ինչպես ցույց է տրված նկարում:

ՆշումԵթե ​​այժմ թաքնված տողերը գոյություն ունեն ընտրված տիրույթում կամ աշխատաթերթում, ապա դուք կստանաք երկխոսության տուփ, ինչպես ցույց է տրված նկարում:

---

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ստուգել, ​​արդյոք բջջի առաջին նիշը Excel- ում տառ կամ թիվ է: