Intersection VBA - Exemples d'intersection dans Excel VBA - Méthodes

Table des matières

Intersection Excel VBA

L'intersection VBA est utilisée pour obtenir un objet de plage qui est une intersection de deux plages ou plus. Le minimum de deux plages doit être fourni pour trouver le point de plage d'intersection. Tous les autres arguments sont facultatifs en fonction de l'exigence.

Voici la syntaxe de la formule VBA INTERSECT.

  • Arg1 comme plage: première plage d'intersection.
  • Arg2 as Range: Deuxième plage d'intersection.

Dans les exemples ci-dessous, nous verrons quelques-unes des techniques utiles.

Exemples

Exemple 1

Par exemple, utilisez les données ci-dessous.

Étape 1: Déclarez la variable comme Variant.

Code:

Sub Intersect_Example () Dim MyValue As Variant End Sub

Étape 2: Pour cette variable, attribuez la valeur via la formule Intersection.

Code:

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

Étape 3: Sélectionnez la première plage de B2 à B9.

Code:

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

Étape 4: Sélectionnez la deuxième plage de A5 à D5.

Code:

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

Étape 5: Nous testons ici seulement deux gammes. Fermez la formule et sélectionnez la méthode en tant qu'adresse de cellule VBA.

Code:

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

Étape 6: affichez la valeur dans la boîte de message dans VBA.

Code:

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

Ok, nous avons terminé et voyons ce que nous allons obtenir dans la boîte de message.

Nous avons obtenu le résultat comme B5, c'est-à-dire l'adresse de cellule du point d'intersection de la plage fournie.

Comme ceci en utilisant la méthode VBA INTERSECT, nous pouvons faire beaucoup plus de choses.

Exemple # 2

Sélectionnez la cellule d'intersection

Afin de sélectionner la cellule d'intersection de la plage fournie, utilisez le code ci-dessous.

Code:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Sélectionnez End Sub

Cela sélectionnera la cellule d'intersection de la plage fournie.

Example #3

Clear Content of the Intersection Cell: In order to clear the content of the intersection cell of the supplied range uses the below code.

Code:

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

Example #4

Change the Cell Color Background and Font Color of Intersection Cell: In order to change the background color of the intersection cell and the font color of the intersection cell value using the below 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

  • Dans Excel, pour obtenir la valeur d'intersection de la plage, nous devons donner un caractère d'espace entre deux plages.
  • En utilisant le codage VBA, nous pouvons mettre en évidence, formater, supprimer ou modifier et faire beaucoup d'autres choses à la valeur d'intersection.
  • Si les multiples lignes et colonnes sont fournies à la fonction d'intersection, nous obtiendrons les deux valeurs du milieu.

Articles intéressants...