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
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 Nachrichtenfeld 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 Schnittzelle löschen : Um den Inhalt der Schnittzelle 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
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
- Um den Schnittwert des Bereichs zu erhalten, müssen wir in Excel ein Leerzeichen zwischen zwei Bereichen angeben.
- Mithilfe der VBA-Codierung können wir den Schnittwert hervorheben, formatieren, löschen oder ändern und viele andere Dinge tun.
- Wenn die mehreren Zeilen und Spalten an die Schnittfunktion übergeben werden, erhalten wir die beiden mittleren Werte.
