Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите создать макрос в Exele находящий и считающий числа, попадающие в задаваемый диапазон значений [-a;a],

73K
13 марта 2012 года
alexander1994
12 / / 18.02.2012
Помогите создать макрос в Exele находящий и считающий числа, попадающие в задаваемый диапазон значений [-a;a],
52K
14 марта 2012 года
Sabit
42 / / 29.10.2010
что то наподобие этого наверное...
можешь переделать из этого примера

Код:
Public Sub callc()

a_max = 1   ' верхний диапазон значений
a_min = -1  ' нижний диапазо значений

row_count = 5   ' кол-во строк
col_count = 4   ' кол-во столбцов

find_count = 0  ' кол-во найденных значений удовлетворяющие условие

For i = 1 To row_count
    For j = 1 To col_count
        If (Cells(i, j) <= a_max) And (Cells(i, j) >= a_min) Then
            find_count = find_count + 1
            ' <- сдесь можешь чтото вычислять cells(i, j) - это число удовлетворящий твое условие
       End If
    Next j
Next i

MsgBox (find_count) ' вывод кол-во найденных чисел, можешь удалить строку

End Sub
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог