Страница 1 из 1

Сборная для значений :-)

Добавлено: 28 авг 2010, 09:54
Dark
For I = 12 To 17
P = Me.Controls("TextBox" & I).Text - ((Me.Controls("TextBox" & I).Text * 13) / 100) / 6
Next I

Есть начало макроса. Вопрос состоит в том, чтобы после расчета и присвоения значению P, была какая сборная для этих значений P(12,13,14.....), которая бы их сумировала. :confused:

[INDENT][INDENT][INDENT]ЗАРАНЕЕ СПАСИБО!![/INDENT][/INDENT][/INDENT]

Re: Сборная для значений :-)

Добавлено: 28 авг 2010, 10:57
Busine2009
Я в этом не разбираюсь, но мне пришло в голову использовать массив. Т.е. в моём случае ключевым элементом является массив:

Код: Выделить всё

Option Base 1
Sub m_2()
Dim myArray(6) As Single
Dim i As Long
Dim vСумма As Single
For i = 1 To 6
  P = InputBox("Введите число")
  myArray(i) = P
Next
For i = 1 To UBound(myArray)
  vСумма = myArray(i) + vСумма
Next
MsgBox vСумма
End Sub

Re: Сборная для значений :-)

Добавлено: 28 авг 2010, 12:06
VictorM
Не совсем понял что такое "сборная", но если это сумма всех Р в цикле, можно видимо сделать так:

Код: Выделить всё

s = 0 'сборная
For I = 12 To 17
P = Me.Controls("TextBox" & I).Text - ((Me.Controls("TextBox" & I).Text * 13) / 100) / 6
s = s + P
Next I
MsgBox s