Расчет формулы в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы