Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия

@nastenaky · Регистрация: 20.09.2016

Author24 — интернет-сервис помощи студентам

Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с диапазоном колонку: Выделить цветом значения, величина которых находится в интервале от 100 до 200, и подсчитать количество таких значений.
Каркас для макроса написала,но не могу понять как в условие впихнуть интервал от 100 до 200?

Visual Basic

Sub Count_()
Dim count1, count2, count As Integer
count = 0
For count1 = 0 To 2
For count2 = 0 To 4
If 100<=(Abs(ActiveCell.Offset(count2, count1).Value))<=200 Then
count = count + 1
ActiveCell.Offset(count2, count1).Font.Color = -16776961
End If
Next count2
Next count1
MsgBox ("К-во ячеек  в интервале от 100 до 200 = " & count)
End Sub

@The_Prist · 18.10.2016, 16:49

Visual Basic

1	If 100<=(Abs(ActiveCell.Offset(count2, count1).Value)) And (Abs(ActiveCell.Offset(count2, count1).Value))<=200 Then

Не?

	18.10.2016, 16:49

Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия

Решение