VBA-kruising - Voorbeelden van Intersect in Excel VBA - Methoden

Inhoudsopgave

Excel VBA Intersect

VBA Intersect wordt gebruikt om een bereikobject te krijgen dat een kruising is van twee of meer bereik. Er moeten minimaal twee bereiken worden opgegeven om het kruisende bereikpunt te vinden. Alle andere argumenten zijn optioneel op basis van de vereiste.

Hieronder vindt u de syntaxis van de VBA INTERSECT-formule.

  • Arg1 als bereik: eerste kruisende bereik.
  • Arg2 als bereik: tweede kruisend bereik.

In de onderstaande voorbeelden zullen we enkele van de nuttige technieken zien.

Voorbeelden

Voorbeeld 1

Gebruik bijvoorbeeld de onderstaande gegevens.

Stap 1: Declareer de variabele als Variant.

Code:

Sub Intersect_Example () Dim MyValue As Variant End Sub

Stap 2: Wijs voor deze variabele de waarde toe via de Intersect-formule.

Code:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub

Stap 3: Selecteer het eerste bereik als B2 tot B9.

Code:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub

Stap 4: Selecteer het tweede bereik van A5 tot D5.

Code:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub

Stap 5: We testen hier met slechts twee bereiken. Sluit de formule en selecteer de methode als een VBA-celadres.

Code:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address End Sub

Stap 6: toon de waarde in het berichtvenster in VBA.

Code:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address MsgBox MyValue End Sub

Oké, we zijn klaar en kijken wat we in het berichtvenster zullen krijgen.

We kregen het resultaat als B5, dwz het celadres van het snijpunt van het geleverde bereik.

Zoals dit met behulp van de VBA INTERSECT-methode, kunnen we veel meer dingen doen.

Voorbeeld 2

Selecteer de kruispuntcel

Gebruik de onderstaande code om de snijpuntcel van het geleverde bereik te selecteren.

Code:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Selecteer End Sub

Hiermee wordt de kruispuntcel van het geleverde bereik geselecteerd.

Voorbeeld # 3

Duidelijke inhoud van de intersectiecel: Om de inhoud van de intersectiecel van het geleverde bereik te wissen, gebruikt u de onderstaande code.

Code:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub

Voorbeeld # 4

Wijzig de celkleurachtergrond en de letterkleur van de intersectiecel : om de achtergrondkleur van de intersectiecel en de lettertypekleur van de intersectiecel te wijzigen met behulp van de onderstaande code.

Code:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5" )). Cells.Font.Color = rgbAliceBlue End Sub

Change the Value of the Intersection Cell: Using the Intersect function, we can also change the value of that cell into something else.

In the above data, the intersect value of the range “B2:B9” & “A5:D5” is cell B5 i.e., marked with blue color. Now by supplying this range to intersect function, we can actually change the value to something else.

The below code will change the value from 29398 to “New Value.”

Code:

Sub Intersect_Example3() Intersect(Range("B2:B9"), Range("A5:D5")).Value = "New Value" End Sub

Run the code above. We will get the word “New Value” in place of 29398.

Like this, by using the Intersect function, we can play around with the middle position value of the supplied range.

Things to Remember

  • Om de snijpuntwaarde van het bereik te krijgen, moeten we in Excel een spatie tussen twee bereiken geven.
  • Door VBA-codering te gebruiken, kunnen we de kruispuntwaarde markeren, opmaken, verwijderen of wijzigen en nog veel meer doen.
  • Als de meerdere rijen en kolommen aan de intersect-functie worden geleverd, krijgen we de middelste twee waarden.

Interessante artikelen...