Ինչպե՞ս ստուգել, արդյոք շարքը թաքնված է 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-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: