Hoe controleer ik of de rij verborgen is in Excel?
Dit artikel gaat over het controleren of een rij is verborgen in een opgegeven bereik of een werkblad in Excel.
Controleer of de rij is verborgen in het geselecteerde bereik met VBA-code
Controleer of rij is verborgen in een werkblad met VBA-code
Controleer of de rij is verborgen in het geselecteerde bereik met VBA-code
Ga als volgt te werk om te controleren of rijen verborgen zijn in een geselecteerd bereik en zoek het verborgen rijnummer.
1. Selecteer het bereik dat u wilt controleren op verborgen rijen. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: controleer op verborgen rijen in het geselecteerde bereik
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. druk de F5 sleutel om de code uit te voeren.
Dan een Microsoft Excel dialoogvenster verschijnt om u de verborgen rijen te tonen zoals hieronder getoond screenshot.
Controleer of rij is verborgen in een werkblad met VBA-code
De onderstaande VBA-code kan u helpen om te controleren op verborgen rijen in een werkblad in Excel. Ga als volgt te werk.
1. Open het werkblad dat u op verborgen rijen wilt controleren, druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: controleer of de rij is verborgen in het werkblad
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. druk de F5 sleutel om de code uit te voeren.
Dan een Microsoft Excel dialoogvenster verschijnt om u de verborgen rijen in het huidige werkblad te tonen, zoals hieronder wordt getoond.
Note: Als er nu verborgen rijen bestaan in het geselecteerde bereik of werkblad, krijgt u het dialoogvenster zoals hieronder afgebeeld.
Gerelateerde artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!