Trabajar con funciones de VBA que devuelven una matriz en Excel 2016

Para usar la función MonthNames en una hoja de trabajo, debe ingresarla como una fórmula de matriz de 12 celdas. Por ejemplo, seleccione el rango A2: L2 e ingrese = MonthNames () . Luego presione Ctrl + Shift + Enter para ingresar la fórmula de matriz en las 12 celdas seleccionadas. Mira el resultado.

Usando la función MonthNames para devolver una matriz de 12 elementos.

Si desea que los nombres de los meses se muestren en una columna, seleccione 12 celdas en una columna y use esta fórmula de matriz. (No olvide ingresarlo presionando Ctrl + Shift + Enter).

= TRANSPONER (MonthNames ())

También puede elegir un solo mes de la matriz. Aquí hay una fórmula (no una fórmula de matriz) que muestra el cuarto elemento de la matriz: abril.

= INDICE (MonthNames (), 4)

Devolver una lista ordenada

Suponga que tiene una lista de nombres que desea mostrar ordenados en otro rango de celdas. ¿No sería bueno que una función de hoja de trabajo hiciera eso por usted?

Esta función personalizada hace exactamente eso: toma un rango de celdas de una sola columna como argumento y luego devuelve una matriz de esas celdas ordenadas. Rango A2: A13 contiene algunos nombres. Rango C2: C13 contiene esta fórmula de matriz multicelda. (Recuerde que debe ingresar la fórmula presionando Ctrl + Shift + Enter).

Usar una función personalizada para devolver un rango ordenado.

= Ordenado (A2: A13)

Aquí está el código para la función Ordenados:

Función ordenada (rango como rango)
  Dim SortedData () como variante
  Atenuar celda como rango
  Dim Temp como variante, i tan largo, j tan largo
  Dim No vacío siempre que
'Transferir datos a SortedData
  Para cada celda en Rng
    Si no está vacío (celda), entonces
      No vacío = No vacío + 1
      ReDim Preserve SortedData (1 a NonEmpty)
      SortedData (NonEmpty) = Cell.Value
    Terminara si
  Siguiente celda
'Ordenar la matriz
  Para i = 1 a No vacío
    Para j = i + 1 a no vacío
      Si SortedData (i)> SortedData (j) Entonces
        Temp = SortedData (j)
        SortedData (j) = SortedData (i)
        SortedData (i) = Temp
      Terminara si
    Siguiente j
  Siguiente yo
'Transponer la matriz y devolverla
  Sorted = Aplicación.Transponer (SortedData)
Función final

= TRANSPONER (Ordenado (A16: L16))