VALOR QUE MAIS SE APROXIMA DE ZERO

SOBERASSL 18/05/2013 13:40:53
#423703
Galera estou usando o VBA do excel.

Preciso selecionar o valor que mais se aproxima de 0 [Ô]Zero[Ô].

Estou adicionando os valores em uma listbox mas fora da ordem conforme ordem de execução da minhas contas.



Preciso dentre de 7 valores ver qual se aproxima mais de 0 ou por a listbox em ordem crescente, dai assim eu seleciono o menor.
GANDA.NICK 18/05/2013 17:40:52
#423707 Resposta escolhida
Olá,

Veja a propriedade SORTED da listbox
SOBERASSL 18/05/2013 18:07:47
#423710
Galera valeu mas eu consegui aqui.


Sub Retornar_Valor_Mais_Proximo_De_Zero()
Dim indice_inferior, indice_superior, retorno As Integer
indice_inferior = 3
indice_superior = 10
Dim valores() As Long
ReDim valores(indice_inferior To indice_superior)
valores(3) = 5 [ô]trocar pelo valor que a formula retornou
valores(4) = 6 [ô]trocar pelo valor que a formula retornou
valores(5) = 7 [ô]trocar pelo valor que a formula retornou
valores(6) = 8 [ô]trocar pelo valor que a formula retornou
valores(7) = 9 [ô]trocar pelo valor que a formula retornou
valores(8) = 10 [ô]trocar pelo valor que a formula retornou
valores(9) = 4 [ô]trocar pelo valor que a formula retornou
valores(10) = 11 [ô]trocar pelo valor que a formula retornou
retorno = valores(3)
For i = indice_inferior To indice_superior
If valores(i) < retorno And valores(i) >= 0 Then
retorno = valores(i)
End If
Next i
MsgBox [Ô]Retorno = [Ô] & retorno
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar