End Sub. Рисунок 4. Результат работы процедуры
Рисунок 4. Результат работы процедуры Задание 5. В MS Excel, используя VBA, напишите функцию, рассчитывающую произведение чисел больших 5 в выделенном пользователем диапазоне. Проверьте правильность расчетов. Function ПроизведениеЧиселБольших5(Диапазон As Range) As Variant Dim Ячейка As Range, Произведение As Long Dim КоличествоЧиселБольших5 As Integer
КоличествоЧиселБольших5 = 0 'предполагаем, что чисел больших 5 нет Произведение = 1 'вспомогательную переменную Произведение инициируем значением 1
For Each Ячейка In Диапазон 'для каждой ячейки в выделенном диапазоне If Ячейка.Value > 5 Then 'если значение в ячейке больше 5 Произведение = Произведение * Ячейка.Value 'произведение увеличивается на значение данной ячейки КоличествоЧиселБольших5 = КоличествоЧиселБольших5 + 1 'количество чисел 'больших 5 увеличивается на 1 End If Next
If КоличествоЧиселБольших5 > 0 Then 'были найдены числа большие 5 ПроизведениеЧиселБольших5 = Произведение 'значение функции принимает значение вычисленного произведения Else ПроизведениеЧиселБольших5 = "Нет чисел больших 5" 'значение функции сообщает об отсутствии чисел больших 5 End If
|
