Lavorare con le funzioni VBA che restituiscono una matrice in Excel 2016

Per utilizzare la funzione MonthNames in un foglio di lavoro, è necessario inserirla come formula di matrice di 12 celle. Ad esempio, seleziona l'intervallo A2:L2 e inserisci =MonthNames() . Quindi premere Ctrl + Maiusc + Invio per inserire la formula dell'array in tutte le 12 celle selezionate. Controlla il risultato.

Utilizzo della funzione MonthNames per restituire un array di 12 elementi.

Se vuoi che i nomi dei mesi vengano visualizzati in una colonna, seleziona 12 celle in una colonna e usa questa formula di matrice. (Non dimenticare di inserirlo premendo Ctrl+Shift+Invio.)

=TRASPOSIZIONE(Nomi dei mesi())

Puoi anche scegliere un solo mese dall'array. Ecco una formula (non una formula di matrice) che visualizza il quarto elemento della matrice: aprile.

=INDICE(Nomi dei mesi(),4)

Restituzione di un elenco ordinato

Supponiamo di avere un elenco di nomi che desideri mostrare in ordine ordinato in un altro intervallo di celle. Non sarebbe bello avere una funzione del foglio di lavoro che lo faccia per te?

Questa funzione personalizzata fa proprio questo: prende un intervallo di celle a colonna singola come argomento e quindi restituisce un array di quelle celle ordinate. L'intervallo A2:A13 contiene alcuni nomi. L'intervallo C2: C13 contiene questa formula di matrice multicella. (Ricorda che devi inserire la formula premendo Ctrl+Maiusc+Invio.)

Utilizzo di una funzione personalizzata per restituire un intervallo ordinato.

=Ordinato(A2:A13)

Ecco il codice per la funzione Ordinata:

Funzione ordinata (Rng come intervallo)
  Dim SortedData() come variante
  Cella fioca come intervallo
  Dim Temp As Variant, i As Long, j As Long
  Dim NonVuoto fino a quando
'Trasferisci dati a SortedData
  Per ogni cella in Rng
    Se non è vuoto (cella) allora
      Non vuoto = Non vuoto + 1
      ReDim Conserva i dati ordinati (da 1 a non vuoto)
      SortedData(NonEmpty) = Cell.Value
    Finisci se
  Cella successiva
' Ordina l'array
  Per i = 1 a Non vuoto
    Per j = i + 1 a NonVuoto
      Se SortedData(i) > SortedData(j) Then
        Temp = SortedData(j)
        SortedData(j) = SortedData(i)
        SortedData(i) = Temp
      Finisci se
    Avanti j
  Avanti io
' Traspone l'array e lo restituisce
  Ordinato = Application.Transpose(SortedData)
Fine funzione

=TRASPOSTA(Ordinato(A16:L16))