Vba: rijen verbergen op basis van criteria

U kunt de volgende syntaxis in VBA gebruiken om rijen te verbergen op basis van een celwaarde:

 SubHideRows ()

    Dim i As Integer
    
    For i = 2 To 10
    
        If Cells(i, 1).Value = " Mavs " Then
            Cells(i, 1).EntireRow.Hidden = True
        Else
            Cells(i, 1).EntireRow.Hidden = False
        End If
        
    Next i

End Sub

Deze specifieke macro verbergt alle rijen in het bereik 2 tot 10 die een celwaarde hebben die gelijk is aan „Mavs“ in de eerste kolom.

U kunt ook de volgende macro gebruiken om alle rijen weer te geven:

 SubUnhideRows ()
    Rows.EntireRow.Hidden = False
End Sub

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: gebruik VBA om rijen te verbergen op basis van criteria

Stel dat we de volgende dataset hebben met informatie over verschillende basketbalspelers:

Laten we zeggen dat we elke rij die ‚Mavs‘ bevat in de teamkolom willen verbergen.

We kunnen hiervoor de volgende macro maken:

 SubHideRows ()

    Dim i As Integer
    
    For i = 2 To 10
    
        If Cells(i, 1).Value = " Mavs " Then
            Cells(i, 1).EntireRow.Hidden = True
        Else
            Cells(i, 1).EntireRow.Hidden = False
        End If
        
    Next i

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat elke rij met „Mavs“ in de teamkolom nu verborgen is.

Als we willen, kunnen we de volgende macro maken om alle rijen weer te geven:

 SubUnhideRows ()
    Rows.EntireRow.Hidden = False
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat alle regels opnieuw worden weergegeven.

Merk op dat we in onze macro For i = 2 To 10 hebben gespecificeerd om rijen tussen 2 en 10 te verbergen op basis van criteria.

U kunt deze begin- en eindwaarden gerust wijzigen om rijen in een ander rijbereik te verbergen.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: voorwaardelijke opmaak op cellen toepassen
VBA: het aantal rijen binnen bereik tellen
VBA: cellen tellen met specifieke tekst