Public Sub Числа_4_3()
Dim I As Integer
Call Очистка_Numbers 'Очистка чисел, результатов подсчетов, перенесенных чисел
Randomize Timer
For I = 1 To 10
Sheets("Numbers").Cells(I, 1) = Int(Rnd * 100) - 50
Next I
End Sub
Public Sub Очистка_Numbers()
With Sheets("Numbers")
.Range("A1:A10").ClearContents
.Range("C2:D5").ClearContents
End With
End Sub
Public Sub Вычисления_4_3_V1()
' Объявление переменных
Dim ValMax As Integer '— переменная для вычисления максимума чисел
Dim ValMin As Integer '— переменная для вычисления минимума чисел
Dim ValAve As Double '— переменная для вычисления среднего чисел
Dim ValPro As Double '— переменная для вычисления произведения чисел
Dim Summa As Integer '— переменная для вычисления суммы чисел
Dim I As Integer '— переменная цикла
Dim R As Integer '— переменная для текущего значения ячейки
With Sheets("Numbers")
ValMax = .Range("A1") ' начальное значение максимума
ValMin = .Range("A1") ' начальное значение минимума
Summa = 0 ' начальное значение суммы
ValPro = 1 ' начальное значение произведения
For I = 1 To 10 ' Суммируем числа в цикле
R = .Cells(I, 1)
Summa = Summa + R
If ValMax < R Then ValMax = R
If ValMin > R Then ValMin = R
ValPro = ValPro * R
Next I
ValAve = Summa / 10
.Range("C2") = "Максимум чисел (V1)=" 'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
.Range("D2") = ValMax
.Range("C3") = "Минимум чисел (V1)="
.Range("D3") = ValMin
.Range("C4") = "Среднее чисел (V1)="
.Range("D4") = ValAve
.Range("C5") = "Произведение чисел (V1)="
.Range("D5") = ValPro
End With
End Sub
Public Sub Вычисления_4_3_V2()
With Sheets("Numbers")
.Range("C2") = "Максимум чисел (V2)=" 'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
.Range("D2") = Application.WorksheetFunction.Max(Sheets("Numbers").Range("A1:A10"))
.Range("C3") = "Минимум чисел (V2)="
.Range("D3") = Application.WorksheetFunction.Min(Sheets("Numbers").Range("A1:A10"))
.Range("C4") = "Среднее чисел (V2)="
.Range("D4") = Application.WorksheetFunction.Average(Sheets("Numbers").Range("A1:A10"))
.Range("C5") = "Произведение чисел (V2)="
.Range("D5") = Application.WorksheetFunction.Product(Sheets("Numbers").Range("A1:A10"))
End With
End Sub
Public Sub Вычисления_4_3_V2()
With Sheets("Numbers")
.Range("C2") = "Максимум чисел (V2)=" 'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
.Range("D2") = Application.WorksheetFunction.Max(Sheets("Numbers").Range("A1:A10"))
.Range("C3") = "Минимум чисел (V2)="
.Range("D3") = Application.WorksheetFunction.Min(Sheets("Numbers").Range("A1:A10"))
.Range("C4") = "Среднее чисел (V2)="
.Range("D4") = Application.WorksheetFunction.Average(Sheets("Numbers").Range("A1:A10"))
.Range("C5") = "Произведение чисел (V2)="
.Range("D5") = Application.WorksheetFunction.Product(Sheets("Numbers").Range("A1:A10"))
End With
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.