Помогите создать макрос в Exele находящий и считающий числа, попадающие в задаваемый диапазон значений [-a;a],
Помогите создать макрос в Exele находящий и считающий числа, попадающие в задаваемый диапазон значений [-a;a],
можешь переделать из этого примера
Код:
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
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