on-line-teaching.com

[Ju-dith]

Есть 1000 чисел (первое - 10, остальные получены умножением этого числа на 1.7), нужно найти числа, принадлежащие интеревалу (400; 1000] и найти их произведение.
Помощь нужна в течение недели!!!

[Гость]

Числа находятся в ячейках?
или просто типа массива?

Если в ячейках, то можно выделить диапозон и числа удовлетворяющие условию - перемножать:
Dim a As Range
Dim aа As Range
Dim itogo as double
Set a = Range("e17:e384")
itogo = 1
For Each aa In a
If (aa.Value > 400) or (aa.Value < 1000) Then
itogo = itogo * aa.Value
end if
Next aa

Удачи