Maximum Value

[bijoej]

Hi Everybody,

I have a simple question and request any one of you to provide me with a simple logic.

I have 10 variables with 10 different values in it.
I would like to find the maximum value from those variables. I dont want to use If Then Else statement. So can anyone help me out in this logic.

Thanks in Advance.

Rgrds

[amrita]

1. Store all the values in an array.
2.

Dim arr(10) As Integer
' find the largest
Dim n As Long, j As Single, k As Long
k = LBound(arr)
For n = LBound(arr) To UBound(arr)
If arr(n) > j Then j = arr(n): k = n
Next n
 
MsgBox arr(k)

Hope this helps!

[leinad31]

If variables are already declared, to transfer them to an array

Dim aaa As Long
Dim bbb As Byte
Dim ccc As String
Dim MyArr As Variant
 
   aaa = 5
   bbb = 2
   ccc = "weee"
 
   MyArr = Array(aaa, bbb, ccc)
   MsgBox MyArr(2)