VBA Intersect

Excel VBA Intersect

VBA Intersect  wird verwendet, um ein Bereichsobjekt abzurufen, das einen Schnittpunkt von zwei oder mehr Bereichen darstellt. Es sollten mindestens zwei Bereiche angegeben werden, um den Schnittpunkt zu finden. Alle anderen Argumente sind je nach Anforderung optional.

Unten finden Sie die Syntax der VBA INTERSECT-Formel.

• Arg1 als Bereich: Erster Schnittbereich.
• Arg2 als Bereich: Zweiter Schnittbereich.

In den folgenden Beispielen sehen wir einige nützliche Techniken.

Beispiele

Sie können diese VBA Intersect Excel-Vorlage hier herunterladen - VBA Intersect Excel-Vorlage

Beispiel 1

Verwenden Sie beispielsweise die folgenden Daten.

Schritt 1: Deklarieren Sie die Variable als Variante.

Code:

 Sub Intersect_Example () Dim MyValue As Variant End Sub 

Schritt 2: Weisen Sie für diese Variable den Wert über die Intersect-Formel zu.

Code:

 Sub Intersect_Example () MyValue als Variante dimmen MyValue = Intersect (End Sub 

Schritt 3: Wählen Sie den ersten Bereich als B2 bis B9.

Code:

 Sub Intersect_Example () MyValue als Variante dimmen MyValue = Intersect (Bereich ("B2: B9"), End Sub 

Schritt 4: Wählen Sie den zweiten Bereich von A5 bis D5.

Code:

 Sub Intersect_Example () MyValue als Variante dimmen MyValue = Intersect (Bereich ("B2: B9"), Bereich ("A5: D5") End Sub 

Schritt 5: Wir testen hier nur mit zwei Bereichen. Schließen Sie die Formel und wählen Sie die Methode als VBA-Zellenadresse aus.

Code:

 Sub Intersect_Example () MyValue als Variante dimmen MyValue = Intersect (Bereich ("B2: B9"), Bereich ("A5: D5")). Adresse End Sub 

Schritt 6: Zeigen Sie den Wert im Meldungsfeld in VBA an.

Code:

 Sub Intersect_Example () MyValue als Variante dimmen MyValue = Intersect (Bereich ("B2: B9"), Bereich ("A5: D5")). Adresse MsgBox MyValue End Sub 

Ok, wir sind fertig und sehen, was wir im Meldungsfeld bekommen.

Wir haben das Ergebnis als B5 erhalten, dh die Zellenadresse des Schnittpunkts des gelieferten Bereichs.

So können wir mit der VBA INTERSECT-Methode noch viel mehr tun.

Beispiel 2

Wählen Sie die Schnittzelle aus

Verwenden Sie den folgenden Code, um die Schnittzelle des angegebenen Bereichs auszuwählen.

Code:

 Sub Intersect_Example2 () Intersect (Bereich ("B2: B9"), Bereich ("A5: D5")). Wählen Sie End Sub 

Dadurch wird die Schnittzelle des angegebenen Bereichs ausgewählt.

Beispiel 3

Inhalt der Schnittpunktzelle löschen : Um den Inhalt der Schnittpunktzelle des angegebenen Bereichs zu löschen, verwenden Sie den folgenden Code.

Code:

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

Beispiel 4

Ändern der Zellenfarbe Hintergrund und Schriftfarbe der Schnittpunktzelle: Um die Hintergrundfarbe der Schnittpunktzelle und die Schriftfarbe des Schnittpunktzellenwerts mithilfe des folgenden Codes zu ändern.

Code:

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

Ändern des Werts der Schnittzelle: Mit der Funktion "Überschneiden" können Sie auch den Wert dieser Zelle in etwas anderes ändern.

In den obigen Daten ist der Schnittwert des Bereichs "B2: B9" und "A5: D5" Zelle B5, dh mit blauer Farbe markiert. Indem wir diesen Bereich für die Schnittfunktion angeben, können wir den Wert tatsächlich in etwas anderes ändern.

Der folgende Code ändert den Wert von 29398 in "Neuer Wert".

Code:

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

Wenn Sie den obigen Code ausführen, wird anstelle von 29398 das Wort "Neuer Wert" angezeigt.

Auf diese Weise können wir mit der Intersect-Funktion mit dem mittleren Positionswert des angegebenen Bereichs herumspielen.

Dinge, an die man sich erinnern sollte

• In excel to get the intersect value of the range, we need to give space character in between two ranges.
• By using VBA coding we can highlight, format, delete or change, and do many other things to the intersection value.
• If the multiple rows and columns supplied to the intersect function then we will get the middle two values.