Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 20: Como Criar Funções de Planilha — e Viver para Contar 345
‘ Organiza o array
For i = 1 To NonEmpty
For j = i + 1 To NonEmpty
If SortedData(i) > SortedData(j) Then
Temp = SortedData(j)
SortedData(i) = Temp
End If
Next j
Next i
‘ Transporta o array e
Sorted = Application.Transpose(SortedData)
End Function
Figura 20-4:
Usando uma
função
personalizada
para retornar
uma faixa
classificada.
A função Sorted começa criando um array chamado SortedData. Esse
array contém todos os valores que não estão em branco na faixa de
argumento. Em seguida, o array SortedData é classificado, usando um
algoritmo do tipo bolha. Porque o array é um array horizontal, ele deve
ser invertido antes de ser retornado pela função.
A função Sorted trabalha com uma faixa de qualquer tamanho, desde
que ela esteja em uma coluna ou linha única. Se os dados não classificados
estiverem em uma linha, a sua fórmula precisa usar a função
TRANSPOR do Excel para exibir horizontalmente os dados classificados.
Por exemplo:
=TRANSPOR(Sorted(A16:L:16))
Como Usar a Caixa de Diálogo
Inserir Função
A caixa de diálogo Inserir Função do Excel é uma ferramenta útil que permite
escolher uma função de planilha a partir de uma lista e solicita que você
entre com os argumentos da função. E, como observei anteriormente neste
capítulo, as suas funções personalizadas de planilha também aparecem