Funkcija v Excelu

Sub Median()
Dim Max As Long
Dim Min As Long
Dim i, a, rmax, rmin, curr, vsota3, temp, temps, a1, a2 As Integer

a = 7
Again:
rmax = 0
rmin = 10000
For i = 1 To 5
curr = Sheet1.Cells(a, i)
If curr > rmax Then rmax = curr
If curr < rmin Then rmin = curr
Next i
vsota3 = Sheet1.Cells(a, 1) + Sheet1.Cells(a, 2) + Sheet1.Cells(a, 3)
If vsota3 < 12 Then
Sheet1.Cells(a, 9) = "12"
Else
temps = 0
a1 = 0
a2 = 0
For i = 1 To 5
temp = Sheet1.Cells(a, i)
'Za iste številke
If temp = rmax And a1 = 0 Then temp = 0: a1 = 1
If temp = rmin And a2 = 0 Then temp = 0: a2 = 1
temps = temps + temp
Next i
Sheet1.Cells(a, 9) = temps
End If
a = a + 1
If a = 12 Then Exit Sub
GoTo Again
End Sub

Sub Median()
Dim Max As Long
Dim Min As Long
Dim i, a, rmax, rmin, curr, vsota3, temp, temps, a1, a2 As Integer

a = 7
Again:
rmax = 0
rmin = 10000
'Pregled min in max številke v poljih
For i = 1 To 5
curr = Sheet1.Cells(a, i)
If curr > rmax Then rmax = curr
If curr < rmin Then rmin = curr
Next i
'Pregled če je v vsaj 3 poljih vrednost < 12
vsota3 = 0
For a1 = 1 To 5
If Sheet1.Cells(a, a1) < 12 Then vsota3 = vsota3 + 1
Next a1
If vsota3 >= 3 Then
'Vrednost v vsaj treh poljih < 12
Sheet1.Cells(a, 9) = "12"
Else
'Izračunaj povprečje treh polj (brez polj z max in min številko)
temps = 0
a1 = 0
a2 = 0
For i = 1 To 5
temp = Sheet1.Cells(a, i)
'Izločitev max in min številke (Pazi, če jih je več enakih)
If temp = rmax And a1 = 0 Then temp = 0: a1 = 1
If temp = rmin And a2 = 0 Then temp = 0: a2 = 1
temps = temps + temp
Next i
Sheet1.Cells(a, 9) = temps / 3
End If
a = a + 1
If a = 12 Then Exit Sub
GoTo Again
End Sub