[okshef]

Откуда берутся Xi?
Каково значение n?
Куда сохранять результат?

[JON4]

Xi »

Это переменная

Куда сохранять результат? »

Значение переменных вводятся в таблицу Excel, и это значение расчитывается при нажатии на кнопку которая ссылается на этот "макрос" + нужно, чтоб расчитывалась сумма. Это задача по информатике, больще условий не дается, хочу на примере понять как они решаются

[okshef]

Хорошо, тогда такой вариант, как пример:
1. В ячейках A1:A10 - значения X
2. В ячейках B1:B10 - формула

Код:

=корень(А1-1)
=корень(А2-1)
...
=корень(А10-1)

3. В ячейке В11 формула

Код:

=СУММ(B1:B10)

но это - без VBA. Макрос - чуть позже.
А вот и макрос

Код:

Sub sum_sqr()
i = 1 ' присвоение начальных значений
S = 0
Do While Cells(i, 1) <> "" ' цикл - до тех пор, пока в ячейке не будет пусто
    S = S + Sqr(Cells(i, 1).Value - 1) ' последовательное суммирование результатов вычислений
    i = i + 1
Loop
Cells(i, 1) = S ' запись в ячейку, следующую за последним элементом массива суммы вычислений
End Sub

[JON4]

okshef, большое спасибо! Буду разбиратся.

[JON4]

okshef, помогите, пожалуйста. Не могу разобраться:
1. Если к примеру у меня будет 2 переменных, как мне ввести 2?
2. Если под корнем будет выражение такого типа: a+b*2.1/(x^2-3) или x-2/(x+3), (к примеру), как мне его ввести?
3.

Do While Cells(i, 1) <> "" ' цикл - до тех пор, пока в ячейке не будет пусто »

Для чего это нежно?

[okshef]

1. Введите две переменные, значения которых записаны в столбцах A и B:

Код:

x1=Cells(i,1)
x2=Cells(i,2)

2. Как я понимаю a и b - постоянные? Задайте их до начала цикла: A=a: B=b. Можно присваивать значение x до вычисления суммы, добавив выражение

Код:

x=Cells(i, 1)

Тогда формула в цикле будет иметь вид

Код:

S=S+a+b*2.1/(x^2-3)

Соответственно, во втором случае поменяется только формула.
3. Для того, чтобы не быть ограниченным в количестве ячеек с данными. Как только данные закончились - вышли из цикла. Можно, конечно, заменить на явно заданный цикл

Код:

For i=1 to N
....
Next

Но это только в том случае, если известно N

[JON4]

okshef, тогда при условии:

Код:

    
     n
S= Ʃ    (Под корнем) a+b*2.1/(x^2-3)
    i=1

Получается так?

Код:

Sub sum_sqr()
i = 1 ' присвоение начальных значений
S = 0
a=Cells(i,1)
b=Cells(i,2)
x=Cells(i,3)
Do While Cells(i, 1) <> "" ' цикл - до тех пор, пока в ячейке не будет пусто
    S = S + Sqr(Cells(i, 1).Value + Cells(i,2)*2.1/(Cells(i,3)^2-3)) ' последовательное суммирование результатов вычислений
    i = i + 1
Loop
Cells(i, 1) = S ' запись в ячейку, следующую за последним элементом массива суммы вычислений
End Sub

Как я понимаю a и b - постоянные? »

Они могут быть и постоянными и переменными.
1. Что делают эти операторы Loop, как я понимаю, это конец цикла? Value и Cells.
2. Как сделать, чтоб значения которые я ввожу были не превязаны к определенной ячейке, а назначались, к примеру буквами a, b, x.

[okshef]

Присвоение значений переменных нужно внести в цикл.

Код:

Do While Cells(i, 1) <> ""
a=Cells(i,1).Value
b=Cells(i,2).Value
x=Cells(i,3).Value
    S = S + Sqr(a + b*2.1/(x^2-3))
    i = i + 1
Loop

Вы уж, пожалуйста, справку сами читайте: Оператор Do...Loop (Visual Basic)

Value и Cells. »

Cells - объект, с которым вы работаете - ячейка. Чтобы воспользоваться одним из ее свойств "значение" обычно пишут .Value.