Intersección de Excel VBA
VBA Intersect se usa para obtener un objeto de rango que es una intersección de dos o más rangos. Se debe proporcionar el mínimo de dos rangos para encontrar el punto de rango de intersección. Todos los demás argumentos son opcionales según el requisito.
A continuación se muestra la sintaxis de la fórmula VBA INTERSECT.
- Arg1 como rango: primer rango de intersección.
- Arg2 como rango: segundo rango de intersección.
En los ejemplos siguientes veremos algunas de las técnicas útiles.
Ejemplos
Ejemplo 1
Por ejemplo, utilice los datos siguientes.
Paso 1: Declare la variable como Variante.
Código:
Sub Intersect_Example () Atenuar MyValue como variante End Sub
Paso 2: Para esta variable, asigne el valor a través de la fórmula Intersect.
Código:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub
Paso 3: seleccione el primer rango como B2 a B9.
Código:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub
Paso 4: seleccione el segundo rango de A5 a D5.
Código:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
Paso 5: Estamos probando con solo dos rangos aquí. Cierre la fórmula y seleccione el método como Dirección de celda de VBA.
Código:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Dirección Fin Sub
Paso 6: muestra el valor en el cuadro de mensaje en VBA.
Código:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Dirección MsgBox MyValue End Sub
Ok, hemos terminado y veremos qué obtendremos en el cuadro de mensaje.
Obtuvimos el resultado como B5, es decir, la dirección de celda del punto de intersección del rango proporcionado.
De esta manera, usando el método VBA INTERSECT, podemos hacer muchas más cosas.
Ejemplo # 2
Seleccione la celda de intersección
Para seleccionar la celda de intersección del rango proporcionado, use el siguiente código.
Código:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Seleccione End Sub
Esto seleccionará la celda de intersección del rango proporcionado.
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
- En Excel, para obtener el valor de intersección del rango, necesitamos dar un carácter de espacio entre dos rangos.
- Al usar la codificación VBA, podemos resaltar, formatear, eliminar o cambiar y hacer muchas otras cosas con el valor de intersección.
- Si las múltiples filas y columnas se suministran a la función de intersección, obtendremos los dos valores del medio.
