Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
volodya25.07
0 / 0 / 3
Регистрация: 20.11.2011
Сообщений: 22
1

Значения диапазона, попадающие в заданный интервал, возвести в квадрат

23.11.2011, 19:51. Просмотров 1582. Ответов 3
Метки нет (Все метки)

Здравствуйте. Помогите, пожалуйста.
Значения диапазона, попадающие в заданный интервал, возвести в квадрат. Поместить новый диапазон справа от выделенного диапазона.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2011, 19:51
Ответы с готовыми решениями:

Значения диапазона, попадающие в заданный интервал, заменить нулями
Значения диапазона, попадающие в заданный интервал, заменить нулями. Поместить новый диапазон...

Составить функцию, которая суммирует значения диапазона, попадающие в заданный интервал
составьте функцию которая сумирует значения диапазона попадающие в заданный интервал

Вычислить количество элементов диапазона, не попадающих в заданный интервал.
17. Составьте функцию, которая вычисляет количество элементов диапазона, не попадающих в заданный...

Составьте функцию, которая вычисляет произведение элементов диапазона, попадающих в заданный интервал.
Составьте функцию, которая вычисляет произведение элементов диапазона, попадающих в заданный...

Вычислить сумму элементов, чьи значения попадают в заданный интервал
вычислить сумму элементов чьи значения попадают в интервал (-12.5;35) в одномерном массиве размера...

3
Казанский
14905 / 6308 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
23.11.2011, 22:27 2
Visual Basic
1
2
3
Sub bb()
Selection.Offset(, Selection.Columns.Count).Value = Evaluate(Replace("IF((~>=2)*(~<=5),~^2,"""")", "~", Selection.Address))
End Sub
>=2, <=5 - заданный интервал.
1
19vitek
727 / 403 / 95
Регистрация: 19.12.2010
Сообщений: 756
23.11.2011, 22:31 3
как вариант.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub sum_n()
Cells.Clear
Dim col As Range
kol = Val(InputBox("Введите к-во эл-тов", , 5))
n_gr = Val(InputBox("Нижняя граница интервала", , 10))
w_gr = Val(InputBox("Верхняя граница интервала", , 18))
Set Rng = Range(Cells(1, 1), Cells(kol, 1))
Randomize
For Each col In Rng
    col.Value = Int(Rnd * 20) + 1
    If col.Value > n_gr And col.Value < w_gr Then
        col.Offset(, 1) = col.Value ^ 2
    End If
Next col
End Sub
2
volodya25.07
0 / 0 / 3
Регистрация: 20.11.2011
Сообщений: 22
24.11.2011, 17:47  [ТС] 4
Благодарю вас обоих
0
24.11.2011, 17:47
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2011, 17:47

Вычислить сумму элементов массива, чьи значения попадают в заданный интервал
Вычислить сумму элементов, чьи значения попадают в интервал (-5;20) в одномерном массиве размера n....

Найти числа попадающие в интервал и возвести в квадрат
Здравствуйте. Помогите пожалуйста. Даны 3 действительных числа a,b,c; и интервал d,e; найти числа...

Найти элементы массива, попадающие в заданный интервал
Помогите с решением задачки. Вот условие(в скриншоте, см. ниже). Массив заполняется.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.