Hvordan kontrolleres om række er skjult i Excel?
Denne artikel taler om at kontrollere, om rækken er skjult i et bestemt interval eller et regneark i Excel.
Kontroller, om rækken er skjult i det valgte område med VBA-kode
Kontroller, om rækken er skjult i et regneark med VBA-kode
Kontroller, om rækken er skjult i det valgte område med VBA-kode
Gør som følger for at kontrollere, om rækker er skjult i et valgt område, og find det skjulte række nummer.
1. Vælg det område, du vil kontrollere for skjulte rækker. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i kodevinduet.
VBA-kode: Kontroller for skjulte rækker i det valgte område
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 Sub3. Tryk på F5 nøgle for at køre koden.
Så a Microsoft Excel dialogboksen dukker op for at vise dig de skjulte rækker som vist nedenstående skærmbillede.
Kontroller, om rækken er skjult i et regneark med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at kontrollere skjulte rækker i et regneark i Excel. Gør som følger.
1. Åbn det regneark, du skal kontrollere for skjulte rækker, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i kodevinduet.
VBA-kode: Kontroller, om rækken er skjult i regnearket
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 Sub3. Tryk på F5 nøgle for at køre koden.
Så a Microsoft Excel dialogboksen dukker op for at vise dig de skjulte rækker i det aktuelle regneark som vist nedenstående skærmbillede.
Bemærk: Hvis der nu findes skjulte rækker i det valgte område eller regneark, får du dialogboksen som vist nedenstående skærmbillede.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
