photosdematures.com

Intersecta Excel VBA

Intersecció VBA s’utilitza per obtenir un objecte d’interval que és una intersecció de dos o més intervals. S’ha de proporcionar el mínim de dos intervals per trobar el punt d’interval que s’intersecta. Tots els altres arguments són opcionals en funció del requisit.

A continuació es mostra la sintaxi de la fórmula VBA INTERSECT.

• Arg1 com a rang: Primer rang que es creua.
• Arg2 com a rang: Segon rang de tall.

En els exemples següents veurem algunes de les tècniques útils.

Exemples

Podeu descarregar aquesta plantilla VBA Intersect Excel aquí: plantilla VBA Intersect Excel

Exemple 1

Per exemple, utilitzeu les dades següents.

Pas 1: Declareu la variable com a variant.

Codi:

 Sub Intersecta_Exemple () Atenueu el meu valor com a variant final Sub 

Pas 2: Per a aquesta variable assigneu el valor mitjançant la fórmula Intersecta.

Codi:

 Sub Intersect__Example () Dim MyValue As Variant MyValue = Intersecta (End Sub 

Pas 3: Seleccioneu el primer interval com a B2 a B9.

Codi:

 Sub Intersecta_Exemple () Disminueix el meu valor com a variant MyValue = Intersecta (interval ("B2: B9"), finalitza sub 

Pas 4: Seleccioneu el segon interval des de A5 fins a D5.

Codi:

 Sub Intersecta_Exemple () Atenua el meu valor com a variant MyValue = Intersecta (interval ("B2: B9"), rang ("A5: D5") 

Pas 5: Aquí estem provant només amb dos gammes. Tanqueu la fórmula i seleccioneu el mètode com a adreça de cel·la VBA.

Codi:

 Sub Intersect_Example () Atenueu el meu valor com a variant MyValue = Intersecta (interval ("B2: B9"), rang ("A5: D5")). End End Sub 

Pas 6: Mostra el valor al quadre de missatges de VBA.

Codi:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersecta (Interval ("B2: B9"), Interval ("A5: D5")). Adreça MsgBox MyValue End Sub 

D’acord, ja hem acabat i veurem què rebrem al quadre de missatges.

Hem obtingut el resultat com a B5, és a dir, l'adreça de la cel·la del punt d'intersecció del rang subministrat.

Així, mitjançant el mètode VBA INTERSECT, podem fer moltes més coses.

Exemple 2

Seleccioneu la cel·la d'intersecció

Per seleccionar la cel·la d'intersecció de l'interval subministrat, utilitzeu el codi següent.

Codi:

 Sub Intersecta_Exemple2 () Intersecta (Interval ("B2: B9"), Interval ("A5: D5")). Seleccioneu Finalitza sub 

Això seleccionarà la cel·la d'intersecció del rang subministrat.

Exemple 3

Contingut clar de la cel·la d'intersecció: Per esborrar el contingut de la cel·la d'intersecció de l'interval subministrat, utilitzeu el codi següent.

Codi:

 Sub Intersecta_Exemple2 () Intersecta (rang ("B2: B9"), rang ("A5: D5")). ClearContents End Sub 

Exemple # 4

Canvieu el fons del color de la cel·la i el color del tipus de lletra de la cel·la d'intersecció: Per canviar el color de fons de la cel·la d'intersecció i el color de la lletra del valor de la cel·la d'intersecció mitjançant el codi següent.

Codi:

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

Canvieu el valor de la cel·la d'intersecció: Mitjançant la funció Intersecta també podem canviar el valor d’aquesta cel·la per una altra cosa.

A les dades anteriors, el valor de la intersecció de l'interval "B2: B9" i "A5: D5" és la cel·la B5, és a dir, està marcada amb color blau. Ara, subministrant aquest rang per tallar la funció, podem canviar el valor a una altra cosa.

El codi següent canviarà el valor de 29398 a "Nou valor".

Codi:

 Sub Intersecta_Exemple3 () Intersecta (Interval ("B2: B9"), Interval ("A5: D5")). Valor = "Valor nou" Final Sub 

Executeu el codi anterior, obtindrem la paraula "Nou valor" en lloc de 29398.

Així, mitjançant la funció Intersecta podem jugar amb el valor de posició mitjana del rang subministrat.

Coses que cal recordar

• En Excel per obtenir el valor de la intersecció de l’interval, hem de donar caràcter d’espai entre dos intervals.
• Mitjançant l'ús de codificació VBA podem ressaltar, formatar, suprimir o canviar i fer moltes altres coses fins al valor de la intersecció.
• Si hi ha diverses files i columnes subministrades a la funció d'intersecció, obtindrem els dos valors centrals.