Вычислить модуль вектора - VBA
Формулировка задачи:
Используя MS Excel создать на языке VBA модуль вычисления функции которая:
6. Вычисляет модуль вектора.
Решение задачи: «Вычислить модуль вектора»
textual
Листинг программы
Function myFunction1(oRange As Excel.Range) As Double Dim oCell As Range myFunction1 = 0 For Each oCell In oRange myFunction1 = myFunction1 + oCell.Value ^ 2 Next myFunction1 = Sqr(myFunction1) End Function