Kako preveriti, ali je vrstica skrita v Excelu?
Ta članek govori o preverjanju, ali je vrstica skrita v določenem obsegu ali na delovnem listu v Excelu.
Preverite, ali je vrstica v izbranem obsegu skrita s kodo VBA
Preverite, ali je vrstica skrita na delovnem listu s kodo VBA
Preverite, ali je vrstica v izbranem obsegu skrita s kodo VBA
Naredite naslednje, da preverite, ali so vrstice skrite v izbranem obsegu, in poiščite skrito številko vrstice.
1. Izberite obseg, ki ga boste preverili za skrite vrstice. Pritisnite tipko druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno s kodo.
Koda VBA: preverite, ali so v izbranem obsegu skrite vrstice
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. Pritisnite F5 tipko za zagon kode.
Potem a Microsoft Excel Pojavi se pogovorno okno, ki vam prikaže skrite vrstice, kot je prikazano spodaj.
Preverite, ali je vrstica skrita na delovnem listu s kodo VBA
Spodnja koda VBA vam lahko pomaga pri iskanju skritih vrstic na delovnem listu v Excelu. Naredite naslednje.
1. Odprite delovni list, ki ga želite preveriti, ali so skrite vrstice, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno s kodo.
Koda VBA: preverite, ali je vrstica skrita na delovnem listu
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. Pritisnite F5 tipko za zagon kode.
Potem a Microsoft Excel Pojavi se pogovorno okno, ki vam prikaže skrite vrstice na trenutnem delovnem listu, kot je prikazano spodaj.
Opombe: Če v izbranem obsegu ali na delovnem listu zdaj obstajajo skrite vrstice, se prikaže pogovorno okno, kot je prikazano spodaj.
Sorodni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!