Dizi içerisinde maks değerin bulunması

[c_235]

Mrb arkadaşlar,

Z2(0) = 0
For i = 1 To 2200
Z1(i) = Cells(i + 5, 8)
If Z1(i) < Cells(2, 9) Then Z2(i + 1) = Z2(i) + 1
Next i


Z2(i + 1) dizisi içerisindeki maksimum değeri nasıl bulabiliriz...? .herkese kolay gelsin....

 

[hamitcan]

Basit bir örnek hazırladım, örneği inceleyin.

Option Base 1
Sub enbuyukdeger()
Dim i() As Integer, t As Integer, j As Integer, b As Integer
    For t = 1 To 7
       ReDim Preserve i(t)
        i(t) = Cells(t, 1)
    Next
    
        For j = 1 To 7
            If b < i(j) Then b = i(j)
        Next
        MsgBox "En Büyük Değer: " & b
End Sub