Trabalhando com funções VBA que retornam uma matriz no Excel 2016

Para usar a função MonthNames em uma planilha, você deve inseri-la como uma fórmula de matriz de 12 células. Por exemplo, selecione o intervalo A2: L2 e digite = MonthNames () . Em seguida, pressione Ctrl + Shift + Enter para inserir a fórmula de matriz em todas as 12 células selecionadas. Confira o resultado.

Usando a função MonthNames para retornar uma matriz de 12 elementos.

Se você deseja que os nomes dos meses sejam exibidos em uma coluna, selecione 12 células em uma coluna e use esta fórmula de matriz. (Não se esqueça de digitá-lo pressionando Ctrl + Shift + Enter.)

= TRANSPOSE (MonthNames ())

Você também pode escolher um único mês da matriz. Aqui está uma fórmula (não uma fórmula de matriz) que exibe o quarto elemento da matriz: abril.

= INDEX (MêsNomes (), 4)

Retornando uma lista classificada

Suponha que você tenha uma lista de nomes que deseja mostrar em ordem de classificação em outro intervalo de células. Não seria bom ter uma função de planilha fazendo isso por você?

Essa função personalizada faz exatamente isso: pega um intervalo de células de uma única coluna como argumento e retorna uma matriz dessas células classificadas. Intervalo A2: A13 contém alguns nomes. Intervalo C2: C13 contém esta fórmula de matriz multicelular. (Lembre-se de que você deve inserir a fórmula pressionando Ctrl + Shift + Enter.)

Usando uma função personalizada para retornar um intervalo classificado.

= Ordenado (A2: A13)

Este é o código para a função Sorted:

Função classificada (Rng como intervalo)
  Dim SortedData () como variante
  Dim Cell As Range
  Dim Temp As Variant, i As Long, j As Long
  Dim NonEmpty As Long
'Transferir dados para SortedData
  Para cada célula em Rng
    Se não estiver vazio (célula), então
      NonEmpty = NonEmpty + 1
      ReDim Preserve SortedData (1 para NonEmpty)
      SortedData (NonEmpty) = Cell.Value
    Fim se
  Próxima Célula
'Classificar a matriz
  Para i = 1 para não vazio
    Para j = i + 1 para não vazio
      If SortedData (i)> SortedData (j) Then
        Temp = SortedData (j)
        SortedData (j) = SortedData (i)
        SortedData (i) = Temp
      Fim se
    Próximo j
  Proximo eu
'Transpor a matriz e retorná-la
  Sorted = Application.Transpose (SortedData)
Função Final

= TRANSPOSE (classificado (A16: L16))