Intersect gebruiken in vba (met voorbeelden)

U kunt de Intersect- methode in VBA gebruiken om een bereik te retourneren dat het snijpunt van twee specifieke bereiken vertegenwoordigt.

Hier is een gebruikelijke manier om deze methode in de praktijk te gebruiken:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

U kunt deze functie vervolgens rechtstreeks in een Excel-spreadsheet invoeren, waarbij u twee bereiken specificeert, en de functie retourneert elk van de waarden in het bereik dat het snijpunt van deze twee bereiken vertegenwoordigt.

De volgende voorbeelden laten zien hoe u deze functie in de praktijk kunt gebruiken met de volgende gegevensset in Excel:

Voorbeeld 1: Zoek het snijpunt van twee bereiken (met één cel als resultaat)

Stel dat we de celwaarde willen retourneren die het snijpunt tussen het bereik A2:C2 en A1:A11 vertegenwoordigt.

We kunnen de volgende functie in VBA definiëren:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

We kunnen deze functie vervolgens rechtstreeks in een cel in onze spreadsheet typen:

De formule retourneert de waarde Mavs , die het snijpunt vertegenwoordigt van het bereik A2:C2 en A1:A11 :

Voorbeeld 2: Zoek het snijpunt van twee bereiken (met meerdere cellen als resultaat)

Stel dat we het volledige celbereik willen retourneren dat het snijpunt tussen het bereik A1:C3 en A1:B10 vertegenwoordigt.

We kunnen de volgende functie in VBA definiëren:

 Function FindIntersect(range1, range2)
    FindIntersect = Application.Intersect(range1, range2)
End Function

We kunnen deze functie vervolgens rechtstreeks in een cel in onze spreadsheet typen:

De formule retourneert het volledige rechthoekige waardenbereik dat het snijpunt van het bereik A1:C3 en A1:B10 vertegenwoordigt:

Opmerking : u kunt hier de volledige documentatie voor de VBA Intersect -methode vinden.

Aanvullende bronnen

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

VBA: het aantal gebruikte kolommen tellen
VBA: rijen in een tabel tellen
VBA: het aantal vellen in een werkmap tellen