![Список форумов on-line-teaching.com](templates/subSilver/images/logo_phpBB.gif) |
on-line-teaching.com Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
|
Предыдущая тема :: Следующая тема
|
Автор |
Сообщение |
Ju-dith Гость
|
Добавлено: Пт Сен 23, 2005 8:35 pm Заголовок сообщения: Произведение |
|
|
Есть 1000 чисел (первое - 10, остальные получены умножением этого числа на 1.7), нужно найти числа, принадлежащие интеревалу (400; 1000] и найти их произведение.
Помощь нужна в течение недели!!! |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Гость
|
Добавлено: Пн Сен 26, 2005 9:20 am Заголовок сообщения: |
|
|
Числа находятся в ячейках?
или просто типа массива?
Если в ячейках, то можно выделить диапозон и числа удовлетворяющие условию - перемножать:
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
Удачи |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|