Расчет формулы в VBА
Формулировка задачи:
здравствуйте очень нужна ваша помощь нужно написать програмку чтобы она делала расчет по этой формуле Mn = n / (1 / a1 + 1 / a2 + 1 / an)
в VBA.Начала делать но запуталась вот что у меня получилось:
Sub zad()
Dim n As Integer
Dim a(1 To n) As Single
Dim m As Single
n = Range("A2").Value
a = Range("B2").Value
Mn = Range("C2").Value
Mn = n / (1 / a1 + 1 / a2 + 1 / an)
End Sub
большая просьба написать где ошибки..и если возможно написать как правильно.Спасибо.
Решение задачи: «Расчет формулы в VBА»
textual
Листинг программы
Sub zadacha() Dim A() As Double Dim m As Integer, i As Integer, s As Single Dim Mn As Single, n As Integer s = 0 m = Selection.Rows.Count ReDim A(m) For i = 1 To m A(i) = Selection.Cells(i).Value Next n = Val(InputBox("Введите число")) For i = 1 To m s = s + 1 / A(i) Next Mn = n / s Worksheets("Лист2").Select Cells(1, 1) = Mn End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д