Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия - VBA
Формулировка задачи:
Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия и записывать результат в смежную с диапазоном колонку: Выделить цветом значения, величина которых находится в интервале от 100 до 200, и подсчитать количество таких значений.
Каркас для макроса написала,но не могу понять как в условие впихнуть интервал от 100 до 200?
Листинг программы
- 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
Решение задачи: «Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные действия»
textual
Листинг программы
- If 100<=(Abs(ActiveCell.Offset(count2, count1).Value)) And (Abs(ActiveCell.Offset(count2, count1).Value))<=200 Then
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д