VBA - Función dividida

Una función de división devuelve una matriz que contiene un número específico de valores divididos según un delimitador.

Sintaxis

Split(expression[,delimiter[,count[,compare]]])

Descripción de parámetros

  • Expression- Un parámetro obligatorio. La expresión de cadena que puede contener cadenas con delimitadores.

  • Delimiter- Un parámetro opcional. El parámetro, que se utiliza para convertir en matrices basadas en un delimitador.

  • Count- Un parámetro opcional. El número de subcadenas que se devolverán y, si se especifica como -1, se devuelven todas las subcadenas.

  • Compare- Un parámetro opcional. Este parámetro especifica qué método de comparación se utilizará.

    • 0 = vbBinaryCompare: realiza una comparación binaria

    • 1 = vbTextCompare: realiza una comparación textual

Ejemplo

Agregue un botón y agregue la siguiente función.

Private Sub Constant_demo_Click()
   ' Splitting based on delimiter comma '$'
   Dim a as Variant
   Dim b as Variant
   
   a = Split("Red $ Blue $ Yellow","$")
   b = ubound(a)
   
   For i = 0 to b
      msgbox("The value of array in " & i & " is :"  & a(i))
   Next
End Sub

Cuando ejecuta la función anterior, produce la siguiente salida.

The value of array in 0 is :Red 
The value of array in 1 is : Blue 
The value of array in 2 is : Yellow