как найти среднее значение к программе в ВБА ЭКСЭЛЬ

[Sir.Jucce]

есть код программы, не знаю как написать программу к этим заданиям:

1.Напишите программу, которая для чисел, находит среднее значение, записывает его на Лист Excel и выделяет цветом числа, большие вычисленного среднего значения на 5%.
2.Среди значений Z из диапазона найти первое, которое окажется больше соответствующего ему значения Y.

Sub ЛР6_1()
Range("A1").Value = "X"
Range("B1").Value = "Y"
Range("C1").Value = "Z"
Dim x As Single, y As Single, z As Single
Dim a As Single, b As Single, h As Single
i = 2
For x = -1 To 1 Step 0.1
If x <= 0.5 And x > 0.5 Then
y = Sqr(1 + Abs(x))
Else
y = (1 + 3 * x) / (2 + (1 + x) ^ 1 / 3)
End If
z = 3 * Cos(2 * y)
Cells(i, 1).Value = x
Cells(i, 2).Value = y
Cells(i, 3).Value = z
i = i + 1
Next x
End Sub

За ранее спасибо!

[doober]

Sub ЛР6_1()
    Range("A1").Value = "X"
    Range("B1").Value = "Y"
    Range("C1").Value = "Z"
    Range("D1").Value = "AVG="

    Dim x As Single, y As Single, z As Single
    Dim a As Single, b As Single, h As Single
    Dim M_Stop As Boolean
    i = 2
    For x = -1 To 1 Step 0.1
        If x <= 0.5 And x > 0.5 Then
            y = Sqr(1 + Abs(x))
        Else
            y = (1 + 3 * x) / (2 + (1 + x) ^ 1 / 3)
        End If
        z = 3 * Cos(2 * y)
        h = h + z
        Cells(i, 1).Value = x
        Cells(i, 2).Value = y
        Cells(i, 3).Value = z

        If M_Stop = False And z > x Then
            M_Stop = True
            Cells(i, 4).Value = "первое" & z
        End If


        i = i + 1
    Next x
    h = h / (i - 2)
    Range("E1").Value = h

    For x = 2 To 21

        If Cells(x, 3).Value > h * 1.05 Then
            Cells(x, 3).Interior.ColorIndex = 6
            Cells(x, 3).Font.ColorIndex = 3
        End If

    Next
    
End Sub

[DiemonStar]

Вообще-то задача 1 решается ещё проще:

Sub ff()
  Set R = [A1:A10]
  S = "Average(" & R.Address & ")"
  [B1] = Evaluate(S)
  Set FC = R.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=$B$1*1,05")
  FC.Interior.ColorIndex = 6
  FC.Font.ColorIndex = 3
End Sub

[doober]

Преподаватели мыслят совсем по другому.Им надо так.как в методичке описано,опыт в этом вопросе есть.

[Sir.Jucce]

большое спасибо вам за помощь)

[Sir.Jucce]

Сообщение от doober

Sub ЛР6_1()
    Range("A1").Value = "X"
    Range("B1").Value = "Y"
    Range("C1").Value = "Z"
    Range("D1").Value = "AVG="

    Dim x As Single, y As Single, z As Single
    Dim a As Single, b As Single, h As Single
    Dim M_Stop As Boolean
    i = 2
    For x = -1 To 1 Step 0.1
        If x <= 0.5 And x > 0.5 Then
            y = Sqr(1 + Abs(x))
        Else
            y = (1 + 3 * x) / (2 + (1 + x) ^ 1 / 3)
        End If
        z = 3 * Cos(2 * y)
        h = h + z
        Cells(i, 1).Value = x
        Cells(i, 2).Value = y
        Cells(i, 3).Value = z

        If M_Stop = False And z > x Then
            M_Stop = True
            Cells(i, 4).Value = "первое" & z
        End If


        i = i + 1
    Next x
    h = h / (i - 2)
    Range("E1").Value = h

    For x = 2 To 21

        If Cells(x, 3).Value > h * 1.05 Then
            Cells(x, 3).Interior.ColorIndex = 6
            Cells(x, 3).Font.ColorIndex = 3
        End If

    Next
    
End Sub

Пожалуйста, объясни что ты написал. никак понять не могу)