Intersection VBA

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 as Range: 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

Vous pouvez télécharger ce modèle Excel VBA Intersect ici - Modèle Excel VBA Intersect

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 obtiendrons 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.

Exemple # 3

Effacer le contenu de la cellule d'intersection: Afin d'effacer le contenu de la cellule d'intersection de la plage fournie, utilisez le code ci-dessous.

Code:

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

Exemple # 4

Changer la couleur de fond de la cellule et la couleur de police de la cellule d'intersection: afin de changer la couleur d'arrière-plan de la cellule d'intersection et la couleur de police de la valeur de cellule d'intersection en utilisant le code ci-dessous.

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 

Changer la valeur de la cellule d'intersection: En utilisant la fonction Intersection, nous pouvons également changer la valeur de cette cellule en autre chose.

Dans les données ci-dessus, la valeur d'intersection de la plage «B2: B9» et «A5: D5» est la cellule B5, c'est-à-dire marquée en bleu. Maintenant, en fournissant cette plage à la fonction d'intersection, nous pouvons en fait changer la valeur en autre chose.

Le code ci-dessous changera la valeur de 29398 à «Nouvelle valeur».

Code:

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

Exécutez le code ci-dessus, nous obtiendrons le mot «Nouvelle valeur» à la place de 29398.

De cette manière, en utilisant la fonction Intersection, nous pouvons jouer avec la valeur de position médiane de la plage fournie.

Choses à retenir

• 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.