[Resolvido]Obter valor de Variáveis

Boa tarde
Parece simples, mas não consigo resolver esse problema:
Tenho um Módulo com sete Variáveis, que recebe 7 valores diferentes;

dim 1
dim 2
dim 3
dim 4
dim 5
dim 6
dim 7
dim resultado
como faço para obter o maior valor na Variável "Resultado"
Tentei com o Dmax, mas não conseguir
Obrigado

boas poderá fazer assim

Dim v1 As Integer
Dim v2 As Integer
Dim v3 As Integer
Dim v4 As Integer
Dim v5 As Integer
Dim v6 As Integer
Dim v7 As Integer
v1 = 1
v2 = 2
v3 = 3
v4 = 14
v5 = 5
v6 = 6
v7 = 7
Dim vResultado As Integer

If v1 > v2 And v1 > v3 And v1 > v4 And v1 > v5 And v1 > v6 And v1 > v7 Then
vResultado = v1
ElseIf v2 > v1 And v2 > v3 And v2 > v4 And v2 > v5 And v2 > v6 And v2 > v7 Then
vResultado = v2
ElseIf v3 > v1 And v3 > v2 And v3 > v4 And v3 > v5 And v3 > v6 And v3 > v7 Then
vResultado = v3
ElseIf v4 > v1 And v4 > v2 And v4 > v3 And v4 > v5 And v4 > v6 And v4 > v7 Then
vResultado = v4
ElseIf v5 > v1 And v5 > v2 And v5 > v3 And v5 > v4 And v5 > v6 And v5 > v7 Then
vResultado = v5
ElseIf v6 > v1 And v6 > v2 And v6 > v3 And v6 > v4 And v6 > v5 And v6 > v7 Then
vResultado = v6
Else
vResultado = v7
End If

---------------------------------------------------------------------------------------
ou assim

Dim vNum1 As Integer
Dim vNum2 As Integer
Dim vNum3 As Integer
Dim vNum4 As Integer
Dim vNum5 As Integer
Dim vNum6 As Integer
Dim vNum7 As Integer
Dim vNumMaior As Integer
vNum1 = 1
vNum2 = 2
vNum3 = 3
vNum4 = 4
vNum5 = 5
vNum6 = 6
vNum7 = 7

If vNum1 < vNum2 Then
vNumMaior = vNum1
Else
vNumMaior = vNum2
End If
If vNumMaior > vNum3 Then
vNumMaior = vNumMaior
Else
vNumMaior = vNum3
End If
If vNumMaior > vNum4 Then
vNumMaior = vNumMaior
Else
vNumMaior = vNum4
End If
If vNumMaior > vNum5 Then
vNumMaior = vNumMaior
Else
vNumMaior = vNum5
End If
If vNumMaior > vNum6 Then
vNumMaior = vNumMaior
Else
vNumMaior = vNum6
End If
If vNumMaior > vNum7 Then
vNumMaior = vNumMaior
Else
vNumMaior = vNum7
End If
--------------------------------------------------------------------------------------------------------

ou assim , talvez seja o melhor tem menos cod.


If vNum1 > vNum2 Then
vNumMaior = vNum1
Else
vNumMaior = vNum2
End If
If vNumMaior < vNum3 Then
vNumMaior = vNum3
End If
If vNumMaior < vNum4 Then
vNumMaior = vNumMaior
End If
If vNumMaior < vNum5 Then
vNumMaior = vNum5
End If
If vNumMaior < vNum6 Then
vNumMaior = vNum6
End If
If vNumMaior < vNum7 Then
vNumMaior = vNum7
End If



cumps
acao

Muito obrigado Acao, funfou legal.

Bom dia Amigos, bem como diz nosso Mestre João Paulo, veja o simples

* Crie uma variável do tipo Array
* Carregue ela com os valores desejados
* Use o comando UBound para retorna o maior valor na variável ou o LBound para o menor valor

Private Sub Comando619_Click()
Dim VarTeste(1 To 5) As Integer

Dim VarResult As Integer

VarTeste(1) = 1
VarTeste(2) = 2
VarTeste(3) = 3
VarTeste(4) = 4
VarTeste(5) = 5

varResultado = UBound(VarTeste)
MsgBox varResultado


Lembrando que se criar a variável Array com valores adicionais

se Varteste(9) - Deves considerar do 0 ao 9 (dez numeros)

Se deseja especificar:
VarTeste(1 To 10)
End Sub


Abraços

boas
amigo Harysohn no seu exemplo altere o valor do array ao indice 3 para valor 13, ou seja VarTeste(3)= 13
e teste o seu exemplo.
cumps
acao

Caro Harysohn,
Simples e Perfeito. A luz que me deste brilha tanto que Tico já consegue ver Teco no meio da escuridão cinza.
Muito obrigadoooooooooooooooooooooooooooo...

amigo cal47
não percebi bem o seu post
mas teste conforme eu indiquei no post anterior e veja se o resultado é o pretendido.
ou veja isto:

Nota Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função UBound para determinar o índice maior disponível da dimensão indicada de uma matriz.

Dim Upper
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.

http://office.microsoft.com/pt-pt/access-help/funcao-ubound-HA001228929.aspx

Realmente eu creio que dei uma viajada, no entanto não tenho como fazr isto agor..

Mas para o colega uma solução utilizando o for e Next economizaria mais linhas de código, ou seja a cada loop faria a comparação.. e melhor e mais pratico que a utilização do If...

Se tiver tempo de uma tentada com o for... se eu puder depois faço um exemplo...


*** Quanto as variáveis ela busca o indice realmente e não o valor.. creio que me equivoquei.
obrigado pela observação.

Abraços

Me redimindo do Erro.. rrsrs


Ao click de um botão...

Código:

Private Sub Comando0_Click()
Dim VarTeste(1 To 10) As Integer
Dim VarResult As Integer
Dim X, A As Integer

VarTeste(1) = 3
VarTeste(2) = 5
VarTeste(3) = 10
VarTeste(4) = 88
VarTeste(5) = 78
VarTeste(6) = 14
VarTeste(7) = 12
VarTeste(8) = 16
VarTeste(9) = 45
VarTeste(10) = 9
X = 1
VarResult = 0
For X = 1 To 10
A = VarTeste(X)

    If VarResult < A Then
    VarResult = A
    End If
Next X
   
    MsgBox VarResult
End Sub


Abraços

Como não houve resposta o tópico passa a resolvido, caso necessite reabre-o.

Moderação